Problem mit Tagerkennung? Ich finde den Fehler einfach nicht
Verfasst: 14.03.2010 19:34
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
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())