Bonjour tout le monde,
Je n'arrive pas à m'en sortir avec un champ numerique qui contient des secondes à convertir en minutes ou à convertir au format 00:00:00 heure:minute:seconde
exemple: j'ai un champ [DUREE] qui contien par exemple 6254 et je voudrais le convertir automatiquement en h:mn:s
j'ai trouve un code sur internet:
j'ai donc utilise ce code dans une requete.
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 Option Compare Database Function CalcDuree(TpsSec As Long) As String Dim DurHeur As Long Dim DurMin As Long Dim DurSec As Long 'Saisie du temps en secondes tps = InputBox("entrer un nombre de secondes") 'Détermine les heures DurHeur = Round(TpsSec / 3600) If (TpsSec Mod 3600) >= 1800 Then DurHeur = DurHeur - 1 End If 'Détermine les minutes DurMin = Round(TpsSec / 60) - DurHeur * 60 If (TpsSec Mod 60) >= 30 Then DurMin = DurMin - 1 End If 'Détermine les secondes DurSec = TpsSec - DurMin * 60 - DurHeur * 3600 'Ajoute un 0 devant les secondes et les minutes inférieures à 10 If (DurMin < 10 And DurSec < 10) Then CalcDuree = DurHeur & ":0" & DurMin & ":0" & DurSec ElseIf (DurMin >= 10 And DurSec < 10) Then CalcDuree = DurHeur & ":" & DurMin & ":0" & DurSec ElseIf (DurMin < 10 And DurSec >= 10) Then CalcDuree = DurHeur & ":0" & DurMin & ":" & DurSec Else CalcDuree = DurHeur & ":" & DurMin & ":" & DurSec End If End Function
temps: CalcDuree([DUREE])
mais ca ne marche pas et ca me retourne un message d'erreur: Fonction 'CalcDuree' non définie dans l'expression.
je ne suis pas developpeur et je ne m'en sort pas.
qui peu m'aider?
merci de votre aide
Partager