Convertir un hexadécimal en time!

Bonjour,
Je reçois d'un gps une trame de 46 octets en hexadécimal, dont 5 octets représentant l'heure sous le format indiqué sur l'image ci-joint.
Les 5 octets sont en héxa, je veux les convertir en format normal Heure,minutes...
en cherchant sur le net j'ai trouvé ça :
1 "hexheure" = 675 s × 8 = 1 H 30
1 "hexminute" = 675 s ÷ 32 ≥ 21.09 s
1 "hexseconde" = 675 s ÷ 512 ≤ 1.32 s

mais je sais pas vraiment comment obtenir le bon résultat
Merci d'avance

Ces 5 octets sont définis de la manière suivante (codage BCD):
- Heures, sur 1 octet, dizaines = b4 et b5, et unités = b0 à b3
- Minutes, sur 1 octet, dizaines = b4 à b7, et unités = b0 à b3
- Secondes, sur 1 octet, dizaines = b4 à b7, et unités = b0 à b3
- Fractions de secondes sur 2 octets:
• Octet de poids fort: dixièmes de seconde = b4 à b7 et centièmes de seconde = b0 à b3
• Octet de poids faible: millièmes de seconde = b4 à b7, réserve = b0 à b3. Cette réserve est positionnée à Hex'0' par défaut :0

Bonjour,

Sous réserve d'avoir bien compris le cahier des charges, voilà la solution que je vous propose :

soit octet1 l'octet des heures, octet2 l'octet des minutes, etc...

Code:

---

1 2 3 4 5

Dim heures, minutes, secondes As Integer   heures = BitsPoidsFort(octet1) * 10 + BitsPoidsFaible(octet1) minutes = BitsPoidsFort(octet2) * 10 + BitsPoidsFaible(octet2) secondes = BitsPoidsFort(octet3) * 10 + BitsPoidsFaible(octet3)

---

Fonctions associées :

Code:

---

1 2 3 4 5 6 7 8

' Retourne la valeurs entière correspondante aux 4 bits de poids fort d'un octet Private Function BitsPoidsFort(ByVal Octet As Integer) As Integer Return (Octet And &HF0) / &H10 End Function ' Retourne la valeurs entière correspondante aux 4 bits de poids faible d'un octet Private Function BitsPoidsFaible(ByVal Octet As Integer) As Integer Return (Octet And &HF) End Function

---

Pour les fractions de secondes, le système est le même.