Internationale Probleme mit Systemdatum
07.08.2002 12:34:40
Michael
Am Anfang des Programms wird das Systemdatum mit einem vorgegebenen Datum verglichen (siehe unten). Wenn das vorgegebene Datum ueberschritten wird, loescht sich die Datei (funktioniert bei mir in Deutschland).
In Italien scheint dies aber nicht zu funktionieren. Obwohl das vorgegebene Datum noch nicht erreicht ist, wird der Loeschvorgang gestartet.
Kann mir jemand sagen ob es unterschiede bei den Laenderversionen gibt bzw. wie man das Problem beheben kann (Ich gehe davon aus,dass das Systemdatum richtig eingestellt war und keine 2 Monate vordatiert war).
Vorab Danke!
Michael
Const Enddatum As Date = "12.08.02"
Dim Antwort
If Enddatum < DateSerial(Year(Now), Month(Now), Day(Now)) Then
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.DisplayAlerts = True
ThisWorkbook.Close False
Application.Visible = True
End If