Recherche
Recherche
Les mémos
Je débute...
Visites

 997940 visiteurs

 2 visiteurs en ligne

FAQ
Déplier Fermer  Problèmes de Date
Fonction pour formater une valeur numérique au format Heures/Minutes

Code :
Public Function fnMinutes2Heures(M) As String
'/Retourne une chaîne en format HH:MM
Dim iHrs As Integer, iMin As Integer

If Not IsNull(M) Then
iHrs = M \ 60
iMin = M Mod 60
'/Formater en heures et minutes
fnMinutes2Heures = Format(iHrs, "00") & ":" & Format(iMin, "00")
End If
End Function


Dans un formulaire on écrira directement dans une zone de texte indépendante:


Code :
= fnMinutes2Heures([Le-champ-numérique])


Dans une requête, on utilisera le champ calculé:

Code :
HeuresMinutes: fnMinutes2Heures([Le-champ-numérique])

Dernière modification :09/08/2010 : 22:00 Hyperlien