[Lazarus] DateDif function needed
leledumbo
leledumbo_cool at yahoo.co.id
Sat Nov 9 06:55:22 CET 2013
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.
More information about the Lazarus
mailing list