Age function how to

P

pcor

Will someone PLEASE tell me in detail exactly how to use the code below to
obtain a viable result.

Where do you put the code

How do you call it

From where

Thanks very much for any help you provide



Function Age(Date1 As Date, Date2 As Date) As String
Dim Y As Integer
Dim M As Integer
Dim D As Integer
Dim Temp1 As Date
Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1))
Y = Year(Date2) - Year(Date1) + (Temp1 > Date2)
M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2))
D = Day(Date2) - Day(Date1)
If D < 0 Then
M = M - 1
D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1
End If
Age = Y & " years " & M & " months " & D & " days"
End Function
 
P

pcor

Thanks a pile BUT.....

I still would like to kmow the following:
If I was using the VBA code How/where do I call it from
Thanks
 
C

Chrissy

Bugger - I knew I should have actually done it to
check what I wrote :)

Thanks for the added info.

Chrissy.

Dave Peterson wrote
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top