VBScript の関数、DateSerial
MsgBox DateSerial(2011, 6, 27) MsgBox DateSerial(2011, 6, 31) ' 2011/07/01 MsgBox DateSerial(2011, 6, 0) ' 2011/05/31 MsgBox DateSerial(2011, 13, 1) ' 2012/01/01 MsgBox DateSerial(99, 6, 27) ' 1999/06/27
いまいち使い道が分かったような分からないような。
存在しない日付を入力するとそれっぽく直す仕様も便利なんだか場合によりそう〜。