uses SysUtils; var Date1,Date2: TDate; Y,M,D: Word; begin Date1 := EncodeDate(2012,12,21); Date2 := EncodeDate(2013,01,01); DecodeDate(Date2 - Date1,Y,M,D); // you have them in Y, M and D, respectively end.
-- View this message in context: http://free-pascal-lazarus.989080.n3.nabble.com/Lazarus-DateDif-function-needed-tp4034182p4034184.html Sent from the Free Pascal - Lazarus mailing list archive at Nabble.com. -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
