VBScript の関数、DatePart
MsgBox DatePart("yyyy", Date) MsgBox DatePart("q", Date) MsgBox DatePart("m", Date) MsgBox DatePart("y", Date) MsgBox DatePart("d", Date) MsgBox DatePart("w", Date) MsgBox DatePart("ww", Date) MsgBox DatePart("h", Date) MsgBox DatePart("n", Date) MsgBox DatePart("s", Date)