Wenn ich das beim flüchtigen drüberlesen richtig sehe werden Tage ermittelt, mit 86400 multipliziert und anschließend beim ProcedureReturn wieder durch 86400 geteilt um wieder die Tage zu erhalten.DrFalo hat geschrieben:
Fehler oder sonstige Anmerkungen
JawollNicknameFJ hat geschrieben:Die Multiplikation und Division könnte man sich wohl sparen - ungetestet.DrFalo hat geschrieben:Fehler oder sonstige Anmerkungen
Code: Alles auswählen
Procedure Wochentag(Datum.s)
Protected SchaltTag, ZeitWert.q
Protected Jahr = Val(StringField(Datum, 3, "."))
Protected Monat = Val(StringField(Datum, 2, "."))
Protected Tag = Val(StringField(Datum, 1, "."))
For A = 0 To Jahr - 1
If Not A % 400 Or (Not A % 4 And A % 100)
SchaltTag + 1
EndIf
Next A
ZeitWert = (Jahr - 1) * 365 + SchaltTag
For A = 1 To Monat - 1
Zeitwert + Val(StringField("31,28,31,30,31,30,31,31,30,31,30,31", A, ","))
Next A
If Monat > 2 Or (Monat = 2 And Tag = 29)
If Not Jahr % 400 Or (Not Jahr % 4 And Jahr % 100)
ZeitWert + 1
EndIf
EndIf
ZeitWert + (Tag - 1)
ProcedureReturn Zeitwert % 7
EndProcedure
Debug Wochentag("21.11.1964")
Code: Alles auswählen
Protected A
Da nur alle 4 Jahre ein Schaltjahr sein kann, sollte auch in der ersten Schleife ein "Step 4" etwas zur Geschwindigkeit beitragen können.DrFalo hat geschrieben:
P.S. Die dürfte in der ersten Schleife zu holen sein, in dem man nicht beim Jahr 0 anfängt sondern z.B. bei 1950 (in meinem Fall z.B.)...
Yes.ts-soft hat geschrieben:Vielleicht noch ein:da rein, dann passt esCode: Alles auswählen
Protected A
Auch Yes.NicknameFJ hat geschrieben:Da nur alle 4 Jahre ein Schaltjahr sein kann, sollte auch in der ersten Schleife ein "Step 4" etwas zur Geschwindigkeit beitragen können.DrFalo hat geschrieben:
P.S. Die dürfte in der ersten Schleife zu holen sein, in dem man nicht beim Jahr 0 anfängt sondern z.B. bei 1950 (in meinem Fall z.B.)...
Grüße
NicknameFJ
Code: Alles auswählen
Procedure Wochentag(Datum.s)
Protected SchaltTag, ZeitWert, A
Protected Jahr = Val(StringField(Datum, 3, "."))
Protected Monat = Val(StringField(Datum, 2, "."))
Protected Tag = Val(StringField(Datum, 1, "."))
For A = 1952 To Jahr - 1 Step 4
If Not A % 400 Or (Not A % 4 And A % 100)
SchaltTag + 1
EndIf
Next A
ZeitWert = (Jahr - 1) * 365 + SchaltTag
For A = 1 To Monat - 1
Zeitwert + Val(StringField("31,28,31,30,31,30,31,31,30,31,30,31", A, ","))
Next A
If Monat > 2 Or (Monat = 2 And Tag = 29)
If Not Jahr % 400 Or (Not Jahr % 4 And Jahr % 100)
ZeitWert + 1
EndIf
EndIf
ZeitWert + Tag - 1 + 4; +4 weil Start bei Jahr 1952 statt Jahr 0
ProcedureReturn Zeitwert % 7
EndProcedure
Debug Wochentag("21.11.1964")Das war klar.ts-soft hat geschrieben:- 1 + 4 kann man aber vielleicht kürzen
Kann man machen, aber muß man nicht...ts-soft hat geschrieben:- 1 + 4 kann man aber vielleicht kürzen
PB-Compiler mit /COMMENTED-Schalter hat geschrieben:; ZeitWert + Tag - 1 + 4; +4 weil Start bei Jahr 1952 statt Jahr 0
MOV ebx,dword [esp+8]
ADD ebx,dword [esp+24]
ADD ebx,3
MOV dword [esp+8],ebx
