Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabien
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 ;-)
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 ;-)
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
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
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
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
