01-15-2010, 03:04 PM
Hi ,
Try in the below way
Try in the below way
Code:
Dim TestDate
TestDate = DateAdd("d", -65, Date)
dpart=datepart("d",TestDate)
mpart=datepart("m",TestDate)
ypart=datepart("yyyy",TestDate)
Final_TestDate=dpart&"."&mpart&"."&ypart
msgbox Final_TestDate