[mso] Re: Access 2000 date routines ? Pre-written somewhere? :VSMail mx5

Robert,

Did this do what you were looking for or is it still an issue?

James

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx]On
Behalf Of James LaBorde
Sent: Monday, June 19, 2006 8:47 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Access 2000 date routines ? Pre-written somewhere?
:VSMail mx5


Robert,

I don't recall seeing it, but it should be possible with code.  If you =
=3D
want to give it a shot I would be happy to help (and I won't even charge =
=3D
you $25/yr for the code).

Plug this into a module, compile and save it:

**********Snip Here*****************
Function GeneologyAge(DtBegin As Date, DtEnd As Date) As String

Dim strYears As String
Dim IntYears As Integer
Dim strMonths As String
Dim IntMonths As Integer
Dim strDays As String
Dim IntDays As Integer

IntYears =3D3D DateDiff("yyyy", DtBegin, DtEnd)
strYears =3D3D CStr(IntYears)

Do
If Len(strYears) < 3 Then
strYears =3D3D "0" + strYears
End If
Loop Until Len(strYears) =3D3D 3

DtBegin =3D3D DateAdd("yyyy", IntYears, DtBegin)

IntMonths =3D3D DateDiff("m", DtBegin, DtEnd)
strMonths =3D3D CStr(IntMonths)

If Len(strMonths) < 2 Then
strMonths =3D3D "0" + strMonths
End If

DtBegin =3D3D DateAdd("m", IntMonths, DtBegin)

IntDays =3D3D DateDiff("d", DtBegin, DtEnd)
strDays =3D3D CStr(IntDays)

If Len(strDays) < 2 Then
strDays =3D3D "0" + strDays
End If

GeneologyAge =3D3D strYears + strMonths + strDays

End Function
************Snip Here********************

After you do that all you have to do is Call the GeneologyAge function =
=3D
in your query and plug in your begining and ending dates.  This should =
=3D
return the data in the format you are looking for.

If you need any more assistance with it please feel free to ask.

Thank You,
James La Borde






-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx]On
Behalf Of Robert Carneal
Sent: Friday, June 16, 2006 4:50 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Access 2000 date routines ? Pre-written somewhere?
:VSMail mx1


It seems as though I saw a site with some "genealogy-related date =3D
routines
for Access 2000" somewhere. Where you were allowed to view the code (in =
=3D
some
cases, copy it if you wanted); and I think there was a small fee =3D
involved.
($25.00/yr ??) If anyone knows what I am talking about, please let me =
=3D
know.
I searched through my Archives and MSO Archives to no avail.

What I very much would like to do in Access is have two dates (one or =
=3D
both
may be before 1900-01-01) and properly calculate the date to give a
seven-digit representation of age.
Example:
Date 1: 1855-01-15
Date 2: 1935-04-09

Age in years, months, days is 80yrs, 2mths, 25 days. Or, in YYYMMDD =3D
format,
0800225. A YYYMMDD format allows for a max age of 9991230, 999yrs, 12 =
=3D
mths,
& 30 days. Does anyone recall this please?

Thank you.

Robert

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
=3D
or MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the =
=3D
dropdown menu at the top.  This will allow you to unsubscribe your email =
=3D
address or change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, =
=3D
send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an =
=3D
invitation with instructions.  Once you are a member of the files group, =
=3D
you can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles

If you are using Outlook and you see a lot of unnecessary code in your =
=3D
email messages, read these instructions that explain why and how to fix =
=3D
it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
or MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the =
dropdown menu at the top.  This will allow you to unsubscribe your email =
address or change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, =
send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an =
invitation with instructions.  Once you are a member of the files group, =
you can go here to upload/download files:
http://www.smartgroups.com/vault/msofiles

If you are using Outlook and you see a lot of unnecessary code in your =
email messages, read these instructions that explain why and how to fix =
it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: