conversion des heures

salut tous le monde
je veux une fonction qui converti l'heure 15:00:00 en # 3:15:00 PM#
pouvez vous m'aider svp
merci en avance

il te suffit juste d'enlever 12 dans le cas ou l'heure est sup a 12.

Code:

---

1 2 3 4 5 6

If Hour(Heure) > 12 Then Msgbox DateAdd("H", -12, Heure) Else Msgbox Heure End If

---

Bonjour,

Je suggère :

Code:

---

1 2 3 4

Private Sub Command1_Click() MONHEURE = "15:00:00" MsgBox Format(MONHEURE, "HH:MM:SS AMPM") & IIf(Hour(MONHEURE) >= 12, "PM", "AM") End Sub

---

ben si on utilise format il faut faire :

Code:

---

1 2	msgbox Format(time,"HH:MM:SS AM/PM")

---

;)