Не могу решить головоломку

[XairOn]

Hi All! Такая проблема, вобщем имеется 4 байта, которые содержат информацию о времени (не важно каком времени, важно знать, что время представлено в виде 00h 00m 00s или 00:00:00). Вобщем я не знаю, как значения этих байтов привести к такому виду. Что было понятнее, приведу парочку примеров:
1
HEX 2B A5 91 43 (тут собственно и есть эти 4 байта)
DEC 43 165 145 67 (это для удобства в DEC перевел, хотя мне эти числа время ну никак не напоминают)

=> 00:04:51 — а вот это время, которое представлено вышеуказанными байтами

2
HEX 8A 9B A5 42
DEC 138 155 165 66

=> 00:01:22

3
HEX F6 E1 9E 44
DEC 246 225 158 68

=> 00:21:11

Никак не могу уловить по какой логике это время кодируется. Помогите пожалуйста.
Чуть не забыл, эти байты представляют число (или числа) в вещественном формате (float32)

[keks-n]

Там у тебя явно не время, ибо в сутках 86400 секунд. Таким образом заполнить все 4 байта оно не может. Видимо, это - время и дата.
Скорее всего - это количество секунд, прошедшее, с некоторого момента. Точную дату - не скажу, ибо не помню, но связано с появлением первого компа.

З. Ы. Всё это лишь домыслы.

[GSerg]

Ну да.
Это тупо число секунд с полуночи.

Код: Выделить всё

Option Explicit

Private Type s
  s As Single
End Type

Private Type b
  b(1 To 4) As Byte
End Type

Private Sub Form_Load()
  Dim b As b, s As s
 
  b.b(1) = &H2B
  b.b(2) = &HA5
  b.b(3) = &H91
  b.b(4) = &H43
 
  LSet s = b
 
  MsgBox s.s & vbNewLine & "I.e. " & Format$(DateAdd("s", s.s, CDate(0)), "hh:mm:ss")
End Sub

Если очень нужен "принцип кодирования", то http://bbs.vbstreets.ru/viewtopic.php?p=42678#42678

[keks-n]

Не знал, что в VB есть встроенный CopyMemory.