Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
Delphi XE2 Professional
|
Re: EncodeDateTime mit Werten <1?
22. Okt 2006, 19:04
Ich denke, das Problem liegt in der Zeile von:
ADay := DaysInAMonth(AYear, AMonth-1) + ADay;
Ich hab AMonth = 2 gemacht und da passiert es, dass die Function "DaysInAMonth" als Montag die 0 erhält (laut Debugger).
Dann ist ADay über 49000 und EncodeDate weiss nimmer was zu tun ist.
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
|