function actualdate 'call this function in your script
b date
a dateadd( d 4 b)
msgbox(a)
day1 day(a)
If day1<10 Then
day1 0 & day1
End If
msgbox(day1)
month1 month(a)
If month1< 10 Then
month1 0 & month1
End If
msgbox(month1)
year1 year(a)
msgbox(year1)
yy right(year1 2)
msgbox(yy)
getnewdate month1& / &day1& / &yy
msgbox(getnewdate)
actualdate getnewdate
end function
