Discussion :

[DANI49]

Bonjour,

Je souhaiterais, dans une requête, afficher la valeur d'un champ numérique d'une table (ex: 470) en heure et minute ( soit pour la valeur 470 - 07:50 )

Merci pour votre réponse

Dany

[Jean-Philippe André]

salut,
j'ai bricolé ca si tu veux :

Code :

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

SELECT Hour(Champ_en_minutes / (60 * 24)) & (Champ_en_minutes - 60 * Hour(Champ_en_minutes / (60 * 24))) FROM MaTable

[francishop]

Bonsoir,

On peut mettre dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function ConvMinuteHeure(Aconvertir As Long) As String
 ' Retourne une chaîne au format HH:MM
   Dim Heure As Integer, Minute As Integer
     If Aconvertir > 0 Then
        Heure = Aconvertir \ 60
        Minute = Aconvertir Mod 60
    ConvMinuteHeure = Format(Heure, "00") & ":" & Format(Minute, "00")
  End If
End Function

Qu'on appelera sous la forme :

Code :

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

=ConvMinuteHeure([LeChampAconvertir])

Cordialement.

[Jean-Philippe André]

salut,
@francishop, tu me confirmes aussi qu'il n'y a pas de fonction vba toute faite pour cette manipulation ? Ta méthode est bien plus esthétique et réutilisable que la mienne

[francishop]

Bonjour,

@francishop, tu me confirmes aussi qu'il n'y a pas de fonction vba toute faite pour cette manipulation ?

Je te confirmes que je n'ai pas encore trouvé de fonction de conversion. Et ce n'est pas faute d'avoir cherché dans toute cette littérature trés "saine" dont je m'entoures..Mais je n'ai pas renoncé, surtout en cette période de Noël. Il faut croire qu'on va mettre à jour cette fonction non documentée...J'y retournes!

Cordialement.

[DANI49]

Bonjour à tous,


Merci pour vos réponses. J'ai également cherché partout mais n'ai rien trouvé.

Seuls des calculs et des concaténations m'ont permis d'obtenir un résultat.

Encore merci

Dany