FAQ

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])

Date de création :09/08/2010 19:16 Dernière modification :09/08/2010 22:00