This function Adds a leading zero to the month and day in a date (09/09/2001). You may have to make changes depending on your server time format and region.
Function FixDate()
Dim DateArray, CurrMonth, CurrDay
DateArray = Split(Date(), "/")
CurrMonth = DateArray(0)
If CurrMonth < 10 Then
CurrMonth = "0" & DateArray(0)
End If
CurrDay = DateArray(1)
If CurrDay < 10 Then
CurrDay = "0" & DateArray(1)
End If
FixDate = CurrMonth & "/" & CurrDay & "/" & DateArray(2)
End Function
Source: Chuck Dearbeck
Viewed 9580 times