Hallo,
ich hab deine Function mal ausprobiert, aber ohne dass ich eine
Exception erhalten habe.
Habs so aufgerufen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateTimeToStr(EncodeDateTime0Based(2005, 3, -5)));
end;
und erhalte:
Zitat:
---------------------------
Project1
---------------------------
27.03.2006
---------------------------
OK
---------------------------
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<