For me it works as expcted
var t: TDateTime; i: integer; s1, s2, s3, s4 : String; begin t := StrToDate('30-12-1899'); i := round (t); s1 := DateTimeToStr(t); s2 := IntToStr(i); t := StrToDate('29-12-1899'); i := round (t); s3 := DateTimeToStr(t); s4 := IntToStr(i); Memo1.Lines.Add (s1 + ' ' + s2 + ' ' + s3 + ' ' + s4); provides 30-12-99 0 29-12-99 -1 -Michael -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus