Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Calculating days, months, years

0 views
Skip to first unread message

Smily

unread,
Dec 10, 2001, 7:10:34 AM12/10/01
to
How can I calculate number of years, months and days between two dates. For
example:
Date1: 15.1.2000
Date2: 28.6.2001

I would like to know how many days, months and years is between this two
dates.

Thanks, Smily


Jesús Avilés Martínez

unread,
Dec 10, 2001, 8:36:48 AM12/10/01
to
Smily wrote:

Hi Smily,

if we supose that Date2 > Date1 then:

procedure DateDiff(Date1, Date2: TDateTime; var Year, Month, Day: Word);
begin
DecodeDate(Date2 - Date1,Year,Month,Day);
end;

--
JAM - Relájate y disfruta...

Phil Lambert

unread,
Dec 10, 2001, 8:47:11 AM12/10/01
to
Hi
Date1 - Date2 = number of days between.

Hope this helps
Phil

0 new messages