• Home
 · 
• Active Server Pages
 · 
• formating Date for Web

formating Date for Web

formating Date for Web

Rate formating Date for Web

• 1
• 2
• 3
• 4
• 5

(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