heuresRésolu

Question

Bonjour,

je cherche comment je pourai faire ( par macro  ou fonction )  pour convertir une heure en decimal sachant que je compte les heures au delas de 24 h.
exmple : convertir 755:48:95 en décimal 

j'ai déjà essayé de faire =(a1-ent(a1))*24 mais cela ne marche que pour les heures au format 24 h.

merci d'avance 

@+

PCPT · Accepted Answer

umm
j'suis même pas sûr que la demande ne soit pas juste de convertir en seconde...

bref en allégé sinon :

MsgBox GetDecimal("755:51:15")

Function GetDecimal(sTime As String) As Currency
    GetDecimal = (Left(sTime, InStr(1, sTime, 
":") - 1)) + (Mid(sTime, Len(sTime) - 4, 2) / 60) + (Right(sTime, 2) / 3600)
End Function

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_Exploreur · Answer

Salut,

Que réprésente : a1 ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

dodo1309 · Answer

un nombre d'heure donc par exemple 755:48:95

cs_Exploreur · Answer

Salut,

Faut convertir tes millisecondes en secondes, tes secondes en minutes, tes minutes en heures, et faire ton résultat(je pense)

A+
Exploreur

 Linux a un noyau, Windows un pépin

PCPT · Answer

salut

regarde sur codyx.org, ta demande doit y être

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_Exploreur · Answer

Salut Et Salut PCPT,

Sauf Erreur de ma part voici un petit exemple

Private Sub Form_Load()
Dim MyHeure As String
Dim MyMinutes As String
Dim MySecondes As String


MyHeure = "755"
MyMinutes = "51"
MySecondes = "15"


' Résultat en heure
 ' Transforme les secondes en minute
  MySecondes = CDbl(MySecondes) / 60 '>> Donne 0,25 minutes
  
 ' Transforme les minutes en heures
  MyMinutes = CDbl(MyMinutes) + MySecondes
  MyMinutes = MyMinutes / 60


 ' Résultat final
  MsgBox CDbl(MyHeure) + MyMinutes


End Sub
 


A+
Exploreur

 Linux a un noyau, Windows un pépin

Heures

6 réponses

Votre réponse

Discussions similaires