Discussion :

[jph86]

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:

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

j'ai donc utilise ce code dans une requete.
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

[User]

Salut,

Essaie cette fonction qui renvoie un string "00:00:00"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function formatHeure(sec As Long) As String
Dim h As Integer, m As Integer, s As Integer
 
h = sec \ 3600
s = sec Mod 3600
 
m = s \ 60
 
s = s Mod 60
 
formatHeure = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")
 
End Function

resultat dans la fenêtre d'exécution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
? formatHeure(6254)
01:44:14

[jph86]

Un grand merci.
Je viens d'essayer ta fonction et ca marche mieux que bien. Merci encore

[jph86]

Salut,

Essaie cette fonction qui renvoie un string "00:00:00"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function formatHeure(sec As Long) As String
Dim h As Integer, m As Integer, s As Integer
 
h = sec \ 3600
s = sec Mod 3600
 
m = s \ 60
 
s = s Mod 60
 
formatHeure = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")
 
End Function

resultat dans la fenêtre d'exécution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
? formatHeure(6254)
01:44:14

Je me suis emallé un peu trop vite je pense.
Tout à l'heure ca a marche puis j'ai fermé l'application et à l'instant j'ai voulu ouvrir la requete qui appele la fonction et ca ne marche plus.
en fait lorsque j'insere dans une requete une colonne suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Expr1: formatHeure([DUREE])

et lorsque j'execute cette requete j'ai le message suivant :Fonction 'formatHeure' non définie dans l'expression.

decidement je ne comprends pas

[User]

Vraiment très étrange cette histoire:

Essaie de renommer ta fonction ...

[jph86]

Vraiment très étrange cette histoire:

Essaie de renommer ta fonction ...

Bonjour,
J'ai essayé de renommer la fonction et le probleme etait le même.
j'ai alors copié ton code à la suite de code existant dans la base et là ca marche.
Peut-etre que le fait d'avoir crée un modul pour ton code n'etait pas la bonne methode.
Quoi qu'il en soit aujourd'hui ca marche et une fois encore je t'en remercie.