How do you Subtract dates in VBA

[postlp60]

I am trying to get VBA to sutract a date inputed from a text box from todays date and then divide all by 365.25 to find age. I would like this to be the value of the variable, varAge. Once varAge is known I would VBA to input the rest of the information from the other textboxes into the sheet corresponding to the correct age. I can do this in the Excel formula bar but I cannot make it work in VBA. Can anyone help? Thank you.

Preston

[Ronin]

copy and paste this in your module (form or other module, except class)\

Sub MyProcedure()
Dim MyAge
If CDbl(Format(txtBirthDate, "mmdd")) >= CDbl(Format(Date, "mmdd")) Then
MyAge = DateDiff("yyyy", txtBirthDate, Date) Else MyAge = DateDiff("yyyy",
txtBirthDate, Date) - 1
MsgBox "You are " & MyAge & " years old as of today"
End Sub


Ronin

"postlp60" wrote:

>
> I am trying to get VBA to sutract a date inputed from a text box from
> todays date and then divide all by 365.25 to find age. I would like
> this to be the value of the variable, varAge. Once varAge is known I
> would VBA to input the rest of the information from the other textboxes
> into the sheet corresponding to the correct age. I can do this in the
> Excel formula bar but I cannot make it work in VBA. Can anyone help?
> Thank you.
>
> Preston
>
>
> --
> postlp60
> ------------------------------------------------------------------------
> postlp60's Profile: http://www.excelforum.com/member.php...o&userid=25532
> View this thread: http://www.excelforum.com/showthread...hreadid=397376
>
>