日時フォーマット関数

VBScriptの標準関数を使った日時のフォーマット関数

関数定義

function format(datetime, style)
	dim y,m,d,h,n,s,w
	y = Year(datetime)
	m = Month(datetime)
	d = Day(datetime)
	h = Hour(datetime)
	n = Minute(datetime)
	s = Second(datetime)
	w = Weekday(datetime)

	format = style
	format = Replace(format, "yyyy", y)
	format = Replace(format, "yy"  , Right(y, 2))
	format = Replace(format, "mmm" , MonthName(m))
	format = Replace(format, "mm"  , Right("0" & m, 2))
	format = Replace(format, "m"   , m)
	format = Replace(format, "ddd" , WeekdayName(w))
	format = Replace(format, "dd"  , Right("0" & d, 2))
	format = Replace(format, "d"   , d)
	format = Replace(format, "hh"  , Right("0" & h, 2))
	format = Replace(format, "h"   , h)
	format = Replace(format, "nn"  , Right("0" & n, 2))
	format = Replace(format, "n"   , n)
	format = Replace(format, "ss"  , Right("0" & s, 2))
	format = Replace(format, "s"   , s)
	format = Replace(format, "w"   , w)
end function

使い方

n = Now()
msgbox format(n, "yy/m/d h:n:s")
msgbox format(n, "yyyymmddhhnnss")
msgbox format(n, "yyyy年mmmd日ddd 週のw番目の日")