Date Format needs adjustment

[unbeliever]

Alert cancelled , solution is as follows:

Code:

Dim TestDate, RUDDate
TestDate = DateAdd("d", -65, Date)

Date1 = Datepart("d",TestDate)
month1 = Datepart("m",TestDate)
year1 = Datepart("yyyy",TestDate)

If len(Date1) = 1 then
Date1 = "0" & Date1
Else
Date1 = Date1
End If

If len(month1) = 1 then
month1 = "0" & month1
Else
month1 = month1
End If

RUDDate = month1 & "." & Date1 & "." & year1