VBA/Excel/Access/Word/Data Type Functions/CDate

CDate() convert value to Date

   <source lang="vb">

Sub dateValue()

   Debug.Print CDate(366.5)

End Sub

</source>