Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
525 B
1
Indexable
Never
Dim day As Integer
Dim month As Integer
Dim year As Integer
Dim time As Integer
Dim dateTime As Long

' Extracting date and time components
day = CInt(Mid(Trim(Tabit(10)), 1, 2))
month = CInt(Mid(Trim(Tabit(10)), 3, 2))
year = CInt(Mid(Trim(Tabit(10)), 5, 2))
time = CInt(Mid(Trim(Tabit(10)), 7, 4))

' Constructing the 10-digit numeric value
dateTime = year * 100000000 + month * 1000000 + day * 10000 + time

' Passing the numeric value to ConvertToDateTime function
Sql_Rst![MOF08E_DATETIME] = ConvertToDateTime(dateTime)
Leave a Comment