程序開發時將系統日期轉換成「2018-04-01」的格式

來自專欄聽風別苑

在程序開發的時候，我們經常會用到將系統日期轉換成「0000-00-00」格式的日期，對於頻繁使用的代碼，可以封裝成一個自定義函數來調用，小編簡單整理了一下，以備不時之需，也希望能夠幫助需要幫助的人。內容如下：

Function NowDate() 將當前日期轉換成「2018-04-01」的格式，在其他地方引用時，直接使用：NowDate()即可

nowyear = year(date())

nowmonth = month(date())

nowday = day(date())

if len(nowmonth)<2 then

nowmonth="0"&nowmonth

end if

if len(nowday)<2 then

nowday="0"&nowday

end if

nowdate = nowyear&"-"&nowmonth&"-"&nowday

End Function

Function TypeDate(str) 將指定日期轉換成「2018-04-01」的格式，在其他地方引用時，直接使用：TypeDate(str)即可

nowyear = year(str)

nowmonth = month(str)

nowday = day(str)

if len(nowmonth)<2 then

nowmonth="0"&nowmonth

end if

if len(nowday)<2 then

nowday="0"&nowday

end if

TypeDate = nowyear&"-"&nowmonth&"-"&nowday

End Function