formatage Heures negatives ou > 24:00 sur textbox

[wilfried_42]

Bonjour à tous

J'ai essayé de rechercher sur la FAQ et je n'ai rien trouvé, alors je poste

Voila j'ai eu un gros probleme de formatage d'heure sur textbox : calendrier 1904, avec bien entendu des heures negatives ainsi, histoire de compliquer le tout, des heures additionnées mensuellement donc depassant largement les 24:00 (ce serait trop simple sinon )

J'ai donc ecrit ma fonction de formatage que je poste

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function format_heure(target As Double) As String
    If target < 0 Then
        target = Abs(target)
        format_heure = "-" & Format(Int(target * 24), "##0") & " H " & Format(Minute(target), "00") & " Mn"
    Else
        If Minute(target) <> 0 Then
            format_heure = Format(Int(target * 24), "##0") & " H " & Format(Minute(target), "00") & " Mn"
        Else
            format_heure = Format(Int(target * 24) + Hour(target), "##0") & " H " & Format(Minute(target), "00") & " Mn"
        End If
    End If
End Function

La gestion des dates et des heures sont des parties tres sensibles en programmation, s'il y a des facons plus simples, je suis preneur