Dim HexNow As String
HexNow = HexStrFromLong(DateTime.Now)
Log("Now hex: " & HexNow)
'Requires the ByteConverter library
Public Sub HexStrFromLong(Value As Long) As String
Dim BC As ByteConverter
Return BC.HexFromBytes(BC.LongsToBytes(Array As Long(Value)))
End Sub