Dim I64 As Int64 = BitConverter.DoubleToInt64Bits(New Date(2008, 4, 4, 19, 30, 44).ToOADate) Dim Str As String = Hex(I64)
40E34EDA042BFE7C
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim MaDate() As Byte = BitConverter.GetBytes(New Date(2008, 1, 21, 1, 0, 0).ToOADate)
Une date OLE Automation est implémentée en tant que nombre à virgule flottante dont la valeur correspond au nombre de jours écoulés à compter du 30 décembre 1899 à minuit. Par exemple, le 31 décembre 1899, minuit, est représenté par 1.0 ; le 1er janvier 1900, 6 A.M., est représenté par 2.25 ; le 29 décembre 1899, minuit, est représenté par -1.0 et le 29 décembre 1899, 6 A.M., est représenté par -1.25.
Dim dbldate As Double dbldate = 1 Dim I64 As Byte() I64 = BitConverter.GetBytes(dbldate)