[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