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
Patrice Henrio
Type HMS Heures as integer Minutes as integer Secondes as integer End Type Function converse(H as single) as HMS Converse.Heures=Int(H) H=(H-int(H))*60 Converse.Minutes=Int(H) H=(H-int(H))*60 Converse.Secondes=Int(H) End Function
Taper à la volée sans contrôle de validité
"Romaric Romain" a écrit dans le message de news:u3ciPT%
Bonjour a tous,
Je cherche une fonction qui effectue la convertion d'un temps en centieme d'heure en Heure : Minute : Sec Merci d'avance.
-- Bonne Reception Salutation Romaric ROMAIN Tel : 02 31 48 54 80 Poste 411
Type HMS
Heures as integer
Minutes as integer
Secondes as integer
End Type
Function converse(H as single) as HMS
Converse.Heures=Int(H)
H=(H-int(H))*60
Converse.Minutes=Int(H)
H=(H-int(H))*60
Converse.Secondes=Int(H)
End Function
Taper à la volée sans contrôle de validité
"Romaric Romain" <industrialisation@fevi.com> a écrit dans le message de
news:u3ciPT%23tDHA.3532@TK2MSFTNGP11.phx.gbl...
Bonjour a tous,
Je cherche une fonction qui effectue la convertion d'un temps en centieme
d'heure en Heure : Minute : Sec
Merci d'avance.
--
Bonne Reception
Salutation
Romaric ROMAIN
Tel : 02 31 48 54 80 Poste 411
industrialisation@fevi.com
Type HMS Heures as integer Minutes as integer Secondes as integer End Type Function converse(H as single) as HMS Converse.Heures=Int(H) H=(H-int(H))*60 Converse.Minutes=Int(H) H=(H-int(H))*60 Converse.Secondes=Int(H) End Function
Taper à la volée sans contrôle de validité
"Romaric Romain" a écrit dans le message de news:u3ciPT%
Bonjour a tous,
Je cherche une fonction qui effectue la convertion d'un temps en centieme d'heure en Heure : Minute : Sec Merci d'avance.
-- Bonne Reception Salutation Romaric ROMAIN Tel : 02 31 48 54 80 Poste 411