Discussion :

[silhouette]

Bonjour,

Je cherche à obtenir uniquement l'heure à partir d'un enregistrement "hh:mm:ss a.m/p.m".

Exemple : 08:21:18 a.m -> 8 ; 08:21:18 p.m -> 20.

J'ai une table Access 2010 contenant un champs DHeure avec pour donnée "08:21:18 p.m" au format texte (Je ne peux pas changer le type dans la base, je l'importe d'une autre application).

J'utilise dans une requête la fonction heure() comme suit : Heure([DHeure]) mais j'ai le message #Erreur.

Si je supprime manuellement la partie a.m ou p.m (08:21:18) directement dans le résultat de la requête, la fonction Heure me renvoie bien l'heure (sans les minutes et les secondes), par contre, je ne sais pas si c'est AM ou PM.

Comment faire pour récupérer uniquement la partie heure au format 24H ?

Merci

[madefemere]

Bonjour,

Une fonction VBA devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
Public Function convAMPM_Heure24H(prDate As String) As Date
If Mid(prDate, 10, 1) = "p" Then
    convAMPM_Heure24H = DateAdd("h", 12, CDate(Left(prDate, 8)))
Else
    convAMPM_Heure24H = CDate(Left(prDate, 8))
End If
End Function

Tu peux l'interpréter directement comme source d'un champ avec les fonctions VRAIFAUX, GAUCHE, AjjDate et CDate.

Cordialement,

[silhouette]

Bonsoir,

Merci Madefemere, je vais adapter ta solution qui me convient d'avantage que celle que j'ai mise en place entre temps, bien que similaire mais je cherchais plutôt une fonction VBA.

Pour info, voici le code SQL de ma procédure :

SELECT MEquipoUso.DFecha, MEquipoUso.DHora, MEquipoUso.DTEquipo, MEquipoUso.DNumEquipo, Year([DFecha]) AS Año, DatePart("ww",[DFecha],2) AS Semana, Weekday([DFecha],2) AS Dia, Left([Dhora],2) AS H12, Right([Dhora],3) AS AMPM, IIf([AMPM]="p.m",[H12]+12,[H12]) AS H24
FROM MEquipoUso
WHERE (((MEquipoUso.DTEquipo)="S") AND ((Year([DFecha]))=2015) AND ((DatePart("ww",[DFecha],2))=24));

Cordialement,