codice:
    Private Function SerialToDate(ByVal seriale As Long) As DateTime
        'Dim d As New DateTime(1970, 1, 1, 2, 0, 0)
        'Dim t As Long = d.Ticks + seriale * 10000000 : PrintLn(d.Ticks)

        Return New DateTime(621356040000000000 + seriale * 10000000)
    End Function

    Private Function DateToSerial(ByVal data As DateTime) As Long
        Return (data.Ticks - 621356040000000000) \ 10000000
    End Function
vedi se va