No, that was from the top of my head. I think Carl has since given a better
explanation.
> -----Original Message-----
> From: Chris Crowe [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, 16 December 1999 20:51
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Date/Time calculations
>
> Did you try your code Myles?
>
> Var
> Y1, M1, D1 : Word;
> Y2, M2, D2 : Word;
> Age : INteger;
> begin
> DecodeDate( Date, Y1, M1, D1 );
> DecodeDate( AdrockDateTimeEdit1.Date.Date, Y2, M2, D2 );
> Age := (Y1 * 12 + M1) - (Y2 *12 + M2) div 12; //Do age calculation in
> ShowMEssage('Age = '+Inttostr(Age));
> end;
>
> I got my age based on DOB of 20th December 1966, supposidly in months is
> 22033 months...
>
> You should change
>
> Age := (Y1 * 12 + M1) - (Y2 *12 + M2) div 12; //Do age calculation in
>
> to
>
> Age := ((Y1 * 12 + M1) - (Y2 *12 + M2)) div 12; //Do age calculation in
>
> But it is still wrong..
>
> I am born in december, and your code without the Div 12 returns that I am
> 33, but infact I am only 32 until december 20th.
>
> This is quite important...
>
> I have a routine that does correctly generate a person's age in years, up
> to
> the correct Day of the month.
>
> But it is part of a larger library of 150+ date routines so I can't really
> paste the code here...
>
> Chris
>
> Christopher Crowe
> [EMAIL PROTECTED]
> http://www.adrock.com
>
> Want a free program to help you search the Microsoft Knowledge Base?, and
> other areas of Microsoft's site?, download it from
> http://www.adrock.com/msarticle
>
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Myles Penlington
> Sent: Thursday, 16 December 1999 17:28
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Date/Time calculations
>
>
> It is simple with the correct algorithm, otherwise can be very tricky ...
>
> Suggest you try
> DecodeDate( Date, Y1, M1, D1 );
> DecodeDate( DOB, Y2, M2, D2 );
> Age := (Y1 * 12 + M1) - (Y2 *12 + M2) div 12; //Do age calculation in
> months
>
>
> > -----Original Message-----
> > From: Patrick Dunford [SMTP:[EMAIL PROTECTED]]
> > Sent: Thursday, 16 December 1999 17:21
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: Date/Time calculations
> >
> > Has anyone else experienced problems with date/time calculations due to
> > Delphi offsetting the date by 30/12/1899
> >
> > The situation is that I wish to calculate a person's current age which
> > appeared to be simple: subtract their date of birth from the current
> date
> > then decode into actual years.
> >
> > But Delphi insists on adding this offset to the date so I end up with a
> > person having an age of 1901 years.
> > (Delphi 3)
> >
> > Code below:
> >
> > function CurrentAge(DOB:TDateTime):integer; //Return years only
> > var y,m,d:word;
> > CDate:TDateTime;
> > begin
> > CDate:=Date-DOB;
> > DecodeDate(CDate,y,m,d);
> > Result:=y;
> > end;
> >
> > The date subtraction is fine and in one example produces a result of 374
> > days, just over 1 year, Delphi then makes this into year 1901 but by the
> > calculation the actual number stored in the TDateTime is 1.0 something,
> > which it adds 30/12/1899 to
> >
> > The best I have come up with is to subtract 1900 from the year but this
> > will
> > be 1 day out.
> >
> >
> >
> --------------------------------------------------------------------------
> > -
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> --------------------------------------------------------------------------
> -
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz << File: Chris
> Crowe.vcf >>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
