formating Date for Web
formating Date for Web
Rate formating Date for Web
(3(3 Vote))
if Not IsDate(sDate) then exit function
sYear=Year(sDate)
if Len(sYear)<3 then sYear="20" & sYear
sMonth=Month(sDate)
if Len(sMonth)<2 then sMonth="0" & sMonth
sDay=Day(sDate)
if Len(sDay)<2 then sDay="0" & sDay
sDate=sYear & "-" & sMonth & "-" & sDay 'you can change sequence of arguments and delimiter
GetDate=sDate
end function
formating Date for Web Comments
No comments yet — be the first to post one!
Post a Comment