Discussion :

[jack_1981]

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

[sovo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Hour(Heure) > 12 Then
        Msgbox DateAdd("H", -12, Heure)
    Else
        Msgbox Heure
End If

[ucfoutu]

Bonjour,

Je suggère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

ben si on utilise format il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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