VBScriptで日付フォーマットする簡単な関数

2019年3月11日

はじめに

VBScriptにはjavaでいうSimpleDateFormatみたいな便利なものがないみたいなので日付フォーマットする簡単な関数を書いてみました。
システムの海外対応等で日付のアメリカ式表記とかイギリス式表記にする必要もあると思うので難しく考えないで書ける簡単なもの。

プログラム

Function DateFormat(ByVal strDate)
     
    Dim strYear
    Dim strMonth
    Dim strDay
     
    strYear  = Year(strDate)
    strMonth = Right("0" & Month(strDate), 2)
    strDay   = Right("0" & Day(strDate), 2)
     
    DateFormat =  strMonth & "." & strDay & "." & strYear
     
End Function

Function DateFormat(ByVal strDate)

Dim strYear

Dim strMonth

Dim strDay

strYear = Year(strDate)

strMonth = Right("0" & Month(strDate), 2)

strDay = Right("0" & Day(strDate), 2)

DateFormat = strMonth & "." & strDay & "." & strYear

End Function

月と日付は0パディングするようにしています。（2桁になるように0埋め）