Discussion :

[Renardo]

bonjour
J'ai un numerique a convertir en heure voici mon code

Code :

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

Chaine1: Ent(([HeureChaine1]*3600)/3600) & ":" & ((([HeureChaine1]*3600) Mod 3600)/60)

j'obtien bien ma conversion (32:40,2)
mais j'aimerais enlever le(,2)quelqu'un aurait il une idee
Merci d'avance

[Jean-Philippe André]

ben met le ent aussi sur la deuxieme partie de ta concatenation

[Renardo]

Code :

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

Chaine1: Ent(([HeureChaine1]*3600)/3600) & ":" & Ent(([HeureChaine1]*3600) Mod 3600)/60

Ent ou pas j'ai toujour (,2)

[cafeine]

Hello,

tu peux utiliser les fonctions natives d'Access.

Code :

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

Format(<Nombre>, "hh:nn:ss")

fonctionne pour un type date.
Le type date exprime une durée 1 = 24 H ...

si tu ramènes tout à cette échelle ça devrait être bon ...

Code :

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

Format(MaDureeEnSecondes / 24 / 60 / 60, "hh:nn:ss")

[Renardo]

Merci pour ton aide mais sa ne marche pas

Code :

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

 Format([HeureChaine2]/24/60/60;"hh:nn:ss")

pour 219,00 Resultat 00:03:39
pour 7.50 resultat 00:00:07

[random]

en quelle unité est exprimée heurechaine ?

[cafeine]

Merci pour ton aide mais sa ne marche pas

Code :

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

 Format([HeureChaine2]/24/60/60;"hh:nn:ss")

pour 219,00 Resultat 00:03:39
pour 7.50 resultat 00:00:07

Ok, si ce sont des heures ...

Code :

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

 Format([HeureChaine2]/24;"hh:nn:ss")

[Renardo]

Je vient de tester sa fonctionne pour une duree inferieur a 24h
Mais je pense avoir resolut mon probleme grace a un module que je joint

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
Function ConvertSecondeHeure(aSeconde)
 
On Error GoTo Erreur
Dim lngHeure As Long
Dim lngMinute As Long
Dim lngSeconde As Long
 
If IsNumeric(aSeconde) Then
    lngHeure = Int(aSeconde / 3600)
    lngMinute = Int((aSeconde - (lngHeure * 3600)) / 60)
    lngSeconde = Int(aSeconde - (lngHeure * 3600) - (lngMinute * 60))
     ConvertSecondeHeure = Format(lngHeure, "00") & ":" & _
        Format(lngMinute, "00") & ":" & Format(lngSeconde, "00")
Else
    ConvertSecondeHeure = Null
End If
 
Sortie:
Exit Function
Erreur:
Resume Sortie
 
End Function

Avant de lancer le module il faut multiplier le champ *3600
Merci pour ton aide