Discussion :

[Pago283]

bonjour,

ma question est peut-être simpliste,

mais pourquoi en vba il n'existe pas de méthode directe pour convertir une heure en décimal et inversement, du style

ConvertVersDec (hh:mm)

quand on voit le nombre de personne qui en aurait l'utilité
ce serait génial

merci pour vos commentaires

Pascal

[Dolphy35]

Bonsoir,

Code :

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

1
2
?CDec(Date())
 41351

Code :

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

1
2
?CDate(41351)
18/03/2013

@+

[Pago283]

bonjour Dolphy35

mais si j'ai en entrée

3.5 et que j'utilise ta fonction ainsi

Cdate(3.5)
j'aurai en sortie

03:30

et si j'ai
en entrée 04:30
et que j'utilise

Cdec(#04:30#)

j'aurai en sortie

4.5

c'est ça?

merci

[paidge]

Bonjour,

Si ça peut t'aider :

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
Public Function HeureToDec(pHeure As Date) As Single
    Dim nbHeures As Integer, nbMinutes As Integer, nbSecondes As Single
 
    nbHeures = DatePart("h", pHeure, vbMonday, vbFirstFourDays)
    nbMinutes = DatePart("n", pHeure, vbMonday, vbFirstFourDays)
 
    nbSecondes = nbMinutes * 60 + DatePart("s", pHeure, vbMonday, vbFirstFourDays)
    nbSecondes = nbSecondes / 3600
    HeureToDec = nbHeures + nbSecondes
 
End Function
 
Public Function DecToHeure(pHeure As Single) As Date
    Dim nbHeures As Integer, nbMinutes As Integer, nbSecondes As Single
 
    nbHeures = Int(pHeure)
    nbSecondes = (pHeure - nbHeures) * 3600
    nbMinutes = Int(nbSecondes / 60)
    nbSecondes = nbSecondes - (nbMinutes * 60)
 
    DecToHeure = TimeSerial(nbHeures, nbMinutes, nbSecondes)
 
End Function

[Dolphy35]

Bonjour,

Désolé je suis partit sur les date, je ne sais pas pourquoi. En fait c'est les heures qui t'interresse ?

[mumen]

mais pourquoi en vba il n'existe pas de méthode directe pour convertir une heure en décimal et inversement, du style

En fait, je comprend que tu parles de convertir une date/heure, qui est fondamentalement un instant, en une durée. Ceci n'a pas trop de sens sans avoir deux moments à comparer.

Pour représenter une durée, il faut savoir de quelle durée on parle : années, jours, secondes, millisecondes, trimestres, semaines, phases lunaires ? et bien sur le type de la variable à représenter qui nous donnera la précision et l'étendue de cette durée : décimal, entier, réel ?

Si ensuite on désire afficher cette durée, il faut connaître les bornes de l'intervalle à représenter : de la milliseconde au millénaire ?

Par ta question, tu demandes implicitement la durée écoulée en heures depuis le début de la journée, à représenter dans un nombre à virgule. Et c'est ce que te répond paidge avec ses deux procédures. Access à sa propre représentation interne qui est le nombre de millisecondes écoulées depuis le début de la journée, et c'est ce que te répond Dolphy.

C'est pour ces raisons que Access ne propose pas de fonction toute faite. Il est impossible de prédire la fourchette d'utilisation que chacun voudra en faire, alors qu'il est facile de fabriquer sa propre nomenclature.

[Pago283]

Bonjour,

j'ai essayé ainsi,

Code :

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

1
2
Dim Thhmmss As Date
Thhmmss = (Tdecimal / 24)

apparement cela fonctionne, dois-je m'attendre à qqch que le vba Access ne gère pas,genre incohérence des données , limitation de transformation.....

merci pour votre avis,
cette solution me paraît en regard des autres solutions proposées trop simple,
pour être exploitable.....


Pascal

[mumen]

Bonjour

Code :

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

1
2
?HeureToDec(#04:30#)
4,5

[paidge]

Pago283, copies/colles les 2 fonctions que j'ai postées dans un module. Ensuite, comme l'a écrit mumen, tu peux utiliser ces fonctions dans des procédures, des fonctions, des requêtes, des expressions....Normalement cela répond à ce que tu souhaites faire Par exemple :

Code :

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

1
2
3
4
5
Private Sub Commande0_Click()
 
MsgBox HeureToDec(Time())
 
End Sub

Ca va t'afficher l'heure actuelle sous forme décimale HF

[Pago283]

bonjour à tout deux...

merci tout d'abord pour ton aide....

j'ai essayé ton code et il marche très bien,

mais si je fais

donc si je fais avce la façon si dessous

la conversion decimal vers heure, ainsi

Code :

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

1
2
Dim Thhmmss As Date
Thhmmss = (Tdecimal / 24)

ce serait ok comme cela aussi?

j'ai vu que mumen avait rajouter

un ? devant la fonction a veux dire quoi?

Code :

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

?HeureToDec(#04:30#)

merci et désolé pour mes nombreuses questions

[mumen]

Salut,

Oups.

Quand tu veux tester une variable ou une fonction dans la fenêtre de débogage, tu tapes Ctrl G et dans cette fenêtre du tapes print xxx. Une abréviation (qui remonte aux premiers Basics) pour cette instruction est le ? justement. Donc dans la fenêtre de débogage,

Code :

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

?xxx

est identique à

Code :

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

print xxx

De plus, si tu veux faire la même chose dans le code tu es obligé de mettre

Code :

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

Debug.print xxx

pour indiquer que tu fais print dans l'objet débogage

[Pago283]

bonsoir....
j'avance gentiment ....

mais mon bout de code est-il bon ou pas pour convertir du décimal en hhmmss
ou non?

Code :

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

1
2
Dim Thhmmss As Date
Thhmmss = (Tdecimal / 24)

merci

Pascal

[mumen]

aurais-tu la gentilesse de me dire si ce code si dessous fonctionne de manière correcte ou non,
j'ai essayé ainsi et cela fonctionne

Code :

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

1
2
Dim Thhmmss As Date
Thhmmss = (Tdecimal / 24)

vais-je avoir un soucis à la longue?

Ton code ne semble pas adapté à ce que tu demandes.

La bonne méthode t'a été rapportée par paidge. Les procédures
HeureToDec et DecToHeure font ce qu'il te faut. Tu dois juste le copier coller dans un module et le utiliser comme ça par exemple

Code :

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

1
2
3
4
5
6
7
8
Dim TDec As Single
Dim Thhmmss As Date
 
Thhmmss=#04:30#
TDec = HeureToDec(Thhmmss)
 
TDec=4,5
Thhmmss = DecToHeure(Tdecimal)

[LedZeppII]

Bonsoir,

mon bout de code est-il bon ou pas pour convertir du décimal en hhmmss
ou non?

Code :

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

1
2
Dim Thhmmss As Date
Thhmmss = (Tdecimal / 24)

Ton bout de code fonctionne si Tdecimal est en heures.
On peut lire ici que VBA stocke la date et l'heure sous la forme d'un nombre réel.
Et dans ce format de stockage 1H = 1/24.

A+