År mellem birthday date1

fra hjælpen

Unit

DateUtils

Category

datetime routines

Delphi syntax:

function YearsBetween(const ANow, AThen: TDateTime): Integer;

C++ syntax:

extern PACKAGE int __fastcall YearsBetween(const System::TDateTime ANow, const System::TDateTime AThen);

Description

Call YearsBetween to obtain the difference, in years, between two TDateTime values. Because years are not all the same length (e.g. leap years), YearsBetween returns an approximation based on an assumption of 365.25 days per year. Fractional years are not counted. Thus, for example, YearsBetween reports the difference between Jan 1 and Dec 31 as 0 on non-leap years and 1 on leap years.

Stoney

glemte denne

DateUtils

Category

datetime routines

Delphi syntax:

function IsInLeapYear(const AValue: TDateTime): Boolean;

C++ syntax:

extern PACKAGE bool __fastcall IsInLeapYear(const System::TDateTime AValue);

Description

Call IsInLeapYear to determine whether the year of the date specified by AValue occurs in a leap ye

Stoney

Jeg syntes ellers jeg har gloet mig blind i hjælpen :-s

Men takker for at du sparkede synet frem igen stoney....

Lægger du et svar så sender jeg point'ne til dig ;-)

Takker.

ellers check www.synoptik.dk

:-)

Stoney