Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Neuen Beitrag zur Code-Library hinzufügen (https://www.delphipraxis.net/33-neuen-beitrag-zur-code-library-hinzufuegen/)
-   -   Was haut bei dieser Wochentagsberechnung nicht hin? (https://www.delphipraxis.net/198357-haut-bei-dieser-wochentagsberechnung-nicht-hin.html)

Ave 26. Okt 2018 19:42

Was haut bei dieser Wochentagsberechnung nicht hin?
 
Hey:hello:,
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 26. Okt 2018 19:51

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
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 26. Okt 2018 19:57

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
Bitte benenne die Variablen aussagekräftig. Mit b1 bis b4 kann keiner was anfangen. :roll:

DieDolly 26. Okt 2018 20:02

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
Ich werfe mal die DateUtils in den Raum
https://www.freepascal.org/docs-html...s/index-5.html

hoika 26. Okt 2018 21:17

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
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 26. Okt 2018 21:23

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
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 26. Okt 2018 21:52

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
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 26. Okt 2018 21:56

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
Zitat:

Zitat von Klaus01 (Beitrag 1416837)
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 26. Okt 2018 22:00

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
Wartet doch erst mal eine Rückmeldung ab.

OLDIE1950 26. Okt 2018 22:22

AW: Was haut bei dieser Wochentagsberechnung nicht hin?
 
Zitat:

Zitat von hoika (Beitrag 1416836)
"Geht nicht", ist keine Fehlermeldung.

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:14 Uhr.
Seite 1 von 3  1 23   

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf