Was haut bei dieser Wochentagsberechnung nicht hin?

[Ave]

Hey,
in der Schule haben wir ein Programm geschrieben, welches ausrechnen sollte, welcher Wochentag an dem angegebenen Datum war/ist/sein wird...
So wie das Programm ist, funktioniert es theoretisch, allerdings hat es irgendwo einen Fehler, welcher dazu führt, dass der Wochentag nicht dem entspricht, welcher er eigentlich sein sollte. Vielleicht findet Ihr ihn ja...
Schon mal, Danke im Voraus!

P.S. Wir arbeiten mit free Pascal, also Lazarus.

Quellcode:

Delphi-Quellcode:

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var a,b1,b2,b3,b4,d,d1,m,i:integer;
c:array [1..12] of integer;

begin
   For i:=1 to 12 do   c[i]:=0;   // Vorbelegen des Arrays mit 0
   c[1]:=31;                      // Januar
   c[2]:=c[1]+28;                 // Februar
   c[3]:=c[2]+31;                 // ...
   c[4]:=c[3]+30;
   c[5]:=c[4]+31;
   c[6]:=c[5]+30;
   c[7]:=c[6]+31;
   c[8]:=c[7]+31;
   c[9]:=c[8]+30;
   c[10]:=c[9]+31;
   c[11]:=c[10]+30;               // November


   a:=strtoint(edit1.Text);       // Wochentag des 01.01.
   b1:=5*((a-1) mod 4)+1;          // nach: Carl Friedrich Gauss
   b2:=4*((a-1) mod 100);
   b3:=6*((a-1) mod 400);
   b4:= (b1+b2+b3) mod 7;
                                   //  ShowMessage (inttostr(b4));
   case b4 of
   0: label3.caption:='Sonntag';
   1: label3.caption:='Montag';
   2: label3.caption:='Dienstag';
   3: label3.caption:='Mittwoch';
   4: label3.caption:='Donnerstag';
   5: label3.caption:='Freitag';
   6: label3.caption:='Samstag';
   end;

   d:=strtoint(edit2.Text);  // Tag   // Berechnung der Tagesanzahl
   m:=strtoint(edit3.Text);  // Monat

   case m of
   1: d1:=d;
   2: d1:=c[1]+d;
   3: d1:=c[2]+d;
   4: d1:=c[3]+d;
   5: d1:=c[4]+d;
   6: d1:=c[5]+d;
   7: d1:=c[6]+d;
   8: d1:=c[7]+d;
   9: d1:=c[8]+d;
   10: d1:=c[9]+d;
   11: d1:=c[10]+d;
   12: d1:=c[11]+d;
   end;
   ShowMessage (inttostr(d1));
   d1:=d1-1;                    // Minus ein Tag

   d1:= d1 mod 7;               //  Tag des Datums
   ShowMessage (inttostr(d1));
   If ((a mod 4) = 0) and  ((a mod 100) = 0) and ((a mod 400) = 0)
        then d1:=d1+1 ;          // ? Schaltjahr


   case d1 of
   0: label6.caption:='Sonntag';
   1: label6.caption:='Montag';
   2: label6.caption:='Dienstag';
   3: label6.caption:='Mittwoch';
   4: label6.caption:='Donnerstag';
   5: label6.caption:='Freitag';
   6: label6.caption:='Samstag';
   end;

end;

end.

[DieDolly]

Hi,

1) Delphi-Tags lassen Code schöner aussehen
2) Code formatieren lässt den Code 2x schöner aussehen
3) Meiner Meinung nach ist der Code ver-kompliziert. Hat Lazurus sowas wie die DateUtils nicht?
Ja es geht irgendwo um den Lerneffekt. Aber der bleibt bei unformatiertem Code wo zusätzlich die Groß- und Kleinschreibung missachtet wird komplett aus.

Delphi ist was Groß- und Kleinschreibung angeht tolerant. Andere Sprachen nicht.

[Luckie]

Bitte benenne die Variablen aussagekräftig. Mit b1 bis b4 kann keiner was anfangen.

[DieDolly]

Ich werfe mal die DateUtils in den Raum
https://www.freepascal.org/docs-html...s/index-5.html

[hoika]

Hallo,
was funktioniert denn konkret nicht?
Mal ein Beispiel sagen, wo der Wochentag falsch ermittelt wird.

Schon mal F5/F7/F8 benutzt?

"Geht nicht", ist keine Fehlermeldung.

[Klaus01]

ich verstehen nicht, warum für z.B Februar die Anzahl der Tage des Januars hinzugefügt werden.
Somit hätte der Februar 59 Tage.
Der März dann 90 Tage usw.

Grüße
Klaus

[p80286]

nö der Letzte Februartag ist der 59 Tag des Jahres, wenn kein Schaltjahr vorliegt.
Der 5. März ist dann der 64. Tag.

Gruß
K-H

[DieDolly]

Zitat von Klaus01:

ich verstehen nicht, ...

Die Kommentare die da zu sehen sind, sind absolut nicht aussagekräftig.
Ich glaube hier wurde einfach nur irgendeine 0815 Technik eines Lehrers übernommen.

Techniken von Lehrern übernehmen halte ich für leichtsinnig. Die besten Techniken und Codes entwirft man eigenständig.
Dann versteht man das was da steht auch. Aber einfach irgendwas vom Lehrpersonal übernehmen kann nur schiefgehen.

Kurz gesagt würde ich den gesamten Code über den Haufen werfen und richtig neu beginnen.

[Luckie]

Wartet doch erst mal eine Rückmeldung ab.

[OLDIE1950]

Zitat von hoika:

"Geht nicht", ist keine Fehlermeldung.

Das Komma ist kein Design-Merkmal.
https://de.wikipedia.org/wiki/Kommaregeln