Hello Fastream, FT> - either days passed since 1,1, 2000
No floating point nececary since you only need days. So: BaseDate, ElapDays: integer; BaseDate := integer(EncodeDate(2000, 1, 1)); ElapDays := Trunc(Now) - BaseDate; --- Rgds, Wilfried http://www.mestdagh.biz __________________________________________________ Delphi-Talk mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi-talk
