Option Explicit

'レジストリに登録する日付をプロパティに設定
Sub SetInstallDate
	Session.Property("INSTALLDATE") = YYYYMMDD
End Sub

'YYYYMMDD形式の日付を返す
Function YYYYMMDD

	YYYYMMDD = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2)

End Function