è una funzione
codice:
dim d as date

d = datevalue("19 febbraio 1969")

msgbox cstr(d)