Salut à tous
J'utilise ce module pour afficher des heures décimales en heures:minutes
Sur mon pc perso sous Windows 7 il fonctionne parfaitement. Lorsque j'essaye de l'utiliser sur les pc de mon boulot j'ai l'erreur "Projet ou bibliothèque introuvable." et je suis renvoyé à la ligne EnHeure=... avec Format surligné
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 'Permet de trouver un nombre d'heures > 24 : Public Function EnHeure(ParTemps As Double, Optional ParSecondesAffichees As Boolean = False) Dim VarJours As Double, VarHeures As Long, VarMinutes As Long, VarSecondes As Long VarJours = Int(ParTemps) ParTemps = (ParTemps - VarJours) * 86400 'nombre de secondes VarSecondes = ParTemps Mod 60 ParTemps = ParTemps - VarSecondes VarMinutes = (ParTemps Mod 3600) / 60 ' Minutes ParTemps = ParTemps - VarMinutes * 60 VarHeures = (ParTemps Mod 86400) / 3600 ' Heures VarHeures = VarHeures + VarJours * 24 If IsMissing(ParSecondesAffichees) Or ParSecondesAffichees = True Then EnHeure = VarHeures & ":" & Format(VarMinutes, "00") & ":" & Format(VarSecondes, "00") Else EnHeure = VarHeures & ":" & Format(VarMinutes, "00") End If End Function
Avez-vous une idée rapidement???
Merci beaucoup![]()
Partager