convertir 8800h35m27s

Le
Le Nordiste
bonjour,

j'importe des données sous forme .txt.
en particulier des heures sous le format 8800h35m27s.
Comment puis je convertir en type date/heure


remerciements anticipés.

le Nordiste
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6381921
bonjour,

j'importe des données sous forme .txt.
en particulier des heures sous le format 8800h35m27s.
Comment puis je convertir en type date/heure


remerciements anticipés.

le Nordiste

Salut

Function Convers(Zone as string) as string
Dim Jour,heure,min,sec as integer
Heure=left(zone,instr(zone,"h")-1)
Min=Mid(zone,instr(zone,"h")+1,instr(zone,"m")-1)
Sec=Mid(zone,instr(zone,"m")+1,instr(zone,"s")-1)
Jour=int(heure/24)
heure=heure-(jour*24)
Convers=Jour & "J" & Heure & "h" & min & "m" & sec & "s"
End func
A tester ;-)

Fabien
Le #6381901
bonjour,

j'importe des données sous forme .txt.
en particulier des heures sous le format 8800h35m27s.
Comment puis je convertir en type date/heure


remerciements anticipés.

le Nordiste

Salut

Function Convers(Zone as string) as string
Dim Jour,heure,min,sec as integer
Heure=left(zone,instr(zone,"h")-1)
Min=Mid(zone,instr(zone,"h")+1,instr(zone,"m")-1)
Sec=Mid(zone,instr(zone,"m")+1,instr(zone,"s")-1)
Jour=int(heure/24)
heure=heure-(jour*24)
Convers=Jour & "J" & Heure & "h" & min & "m" & sec & "s"
End func
A tester ;-)
Aprés test

Function Convers(Zone As String) As String
Dim Jour, heure, min, sec As Integer
heure = Left(Zone, InStr(Zone, "h") - 1)
min = Mid(Zone, InStr(Zone, "h") + 1, InStr(Zone, "m") - InStr(Zone,
"h") - 1)
sec = Mid(Zone, InStr(Zone, "m") + 1, InStr(Zone, "s") - InStr(Zone,
"m") - 1)
Jour = Int(heure / 24)
heure = heure - (Jour * 24)
Convers = Jour & "J" & heure & "h" & min & "m" & sec & "s"
End Function


Publicité
Poster une réponse
Anonyme