Problem mit Tagerkennung? Ich finde den Fehler einfach nicht

[Sauer-RAM]

Hi,

es ist zum verrücktwerden. Ich kann doch tatsächlich den Fehler in 10 Zeilen Code nicht finden. Ich hoffe ihr könnt mir de helfen. Ich saß schon einen halben Tag lang dran

Code: Alles auswählen

erstellt = GetFileDate(ProgramFilename(),#PB_Date_Created)
zugriff = GetFileDate(ProgramFilename(),#PB_Date_Modified)

If DayOfYear(Date()) = DayOfYear(erstellt)
Else
  If DayOfYear(Date()) = DayOfYear(zugriff)
    MessageRequester("","Sorry, aber nur einmal pro Tag verwendbar.")
    End
  EndIf
EndIf
SetFileDate(ProgramFilename(),#PB_Date_Modified,Date())

[STARGÅTE]

Also bei mir gibs kein Fehler

Wenn ich starte wir die Temp-Exe erstellt und der ErstellungsDag ist Heute, damit kommt schon mal kein MessageRequester

und n Fehler in Zeile 10 gibs bei mir auch nicht ...

Was verstehst du denn unter fehler ?

[Sauer-RAM]

Also bei mir gibs kein Fehler

Wenn ich starte wir die Temp-Exe erstellt und der ErstellungsDag ist Heute, damit kommt schon mal kein MessageRequester

Ja, aber wenn man das erstellungsdatm ein paar tage zurücksetzt, kommt immer der messagerequester. Auf alle Fälle bei mir

und n Fehler in Zeile 10 gibs bei mir auch nicht ...

Eigentlich meinte ich auch nicht in Zeile 10 sondern in 10 Zeilen

[c4s]

Schon #PB_Date_Access probiert?