convertir hh:mm en secondes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : convertir hh:mm en secondes

lemonsoda

Salut à tous,

je cherche à transformer du temps en décimal?

j'ai un champ1 saisi sous la forme:
12:38.87 et je voudrais obtenir> 7588.7 dixièmes
soit 12*600 + 38.87*10

mais je ne sais pas comment faire.

alors merci d'avance pour votre code ou vos propositions.

A+
Jack

Publicité

JihemAir

Je sais pas

Code :

Private Function Calc_Dixiemes(strTime As String) As Double
Dim iPos As Integer
Dim dblTemps As Double
' Heures
iPos = InStr(1, strTime, ":", vbTextCompare)
dblTemps = CLng(Mid(strTime, 1, iPos - 1)) * 600
strTime = Mid(strTime, iPos + 1, Len(strTime) - iPos)
' Minutes
iPos = InStr(1, strTime, ".", vbTextCompare)
dblTemps = dblTemps + CLng(Mid(strTime, 1, iPos - 1)) * 10
strTime = Mid(strTime, iPos + 1, Len(strTime) - iPos)
' Secondes
dblTemps = dblTemps + CLng(strTime) / 10
Calc_Dixiemes = dblTemps
End Function

Essaie ça. Attention au séparateur décimal. Le pb. aurait été plus simple avec la virgule.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

lemonsoda

Merci,

et ça donnerait quoi avec une virgule?
désolé d'être aussi ignare, mais je le plante où ce code???

je dois créer un nouveau module?

merci de ta patience. :-)

JihemAir

Je sais pas

La virgule, ça aurait permis de récupérer 38.87 directement, sans décomposer au niveau du point. Mais c'est pas grave.

Le code, tu le copies tel quel à la fin de ton module en cours.
Et dans ton module en cours, là où tu récupères la valeur du champ, tu écris qq chose comme

Code :

maValeur = Calc_Dixiemes(valeur_du_champ)

Voili voila..

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

convertir hh:mm en secondes

Sujets relatifs
Convertir des données en VBA vers Excel	Convertir QString en char
Comment convertir des bytes en Hexadécimal???	[Java] Problème pour convertir un string en entier [resolu]
[PHP]Retarder de quelques secondes une redirection	convertir du numérique en alphabetique [résolu]
convertir un double ou un float en string ou en char	Convertir des milisecondes en heures, minutes, secondes, ms
Convertir des millisecondes en heures-minutes-secondes	[VBSCRIPT] convertir un nb de secondes au format mm:ss
Plus de sujets relatifs à : convertir hh:mm en secondes

Page générée en 0.066 secondes