Data Type Functions VisualBasic Script

Sub dateValue()
    Debug.Print CDate(366.5)
End Sub