Дата как номер VB

Date.Parse("01.01.2001").ToOADate
Salty Joe