geht immer noch nicht
hier mal den vollständigen quelltext:
Delphi-Quellcode:
procedure TForm1.OnClick(Sender: TObject);
var t, m, j, w, y, c: integer;
begin
// t = Tag, m = Monat, j = Jahr
t := StrToInt (Edit1.Text);
m := StrToInt (Edit2.Text);
j := StrToInt (Edit3.Text);
// Zusatzangaben vom Aufgabenblatt
y := j mod 100;
c := j div 100;
// Rechnung
w := (t+(13*(m+1))div 5 + y + y div 4 + c div 4 - 2*c) mod 7;
// Abfragen für w --> Welcher Wochentag ist?
if (w = 1)
then Edit4.Text := 'Sonntag';
if (w = 2)
then Edit4.Text := 'Montag';
if (w = 3)
then Edit4.Text := 'Dienstag';
if (w = 4)
then Edit4.Text := 'Mitwoch';
if (w = 5)
then Edit4.Text := 'Donnerstag';
if (w = 6)
then Edit4.Text := 'Freitag';
if (w = 0)
then Edit4.Text := 'Samstag';
// Problem für Zahlen die Kleiner 0 Werden --> Entsteht im Januer und Februar
while w < 0 do
w := w + 7;
end;
vielleicht mach ich ja was anderes falsch