Conversion heure systèmeRésolu

Question

Bonjour à tous.
Je suis débutant. J'ai récupéré l'heure système (System.DateTime.Now.ToLongTimeString) et maintenant je cherche à convertir cette heure en Integer au format HH:MM:SS afin d'effectuer une opération arithmétique avec une heure entrée dans un Textbox.
J' ai cherché dans mes bouquins et je n'ai rien trouvé. Une bonne volonté pourrait-elle m'indiquer les quelques lignes de codes afin de débloquer ma situation.
Merci d'avance à tous les expérimentés.

Claude ROCHEREAU

jimy neutron · Accepted Answer

Bonjour,

Sub a()
Dim MyTime As String
Dim heure As Integer
Dim Minute As Integer
Dim Second As Integer




MyTime = Format(Time, "hh:mm:ss") 'Ici Time correspond a l'heure systeme

'Si L'heure est 11:23:17





heure = val(DatePart("h", MyTime) )        'renvoi 11
Minute = val(DatePart("n", MyTime))      'renvoi 23
Second = val(DatePart("s", MyTime))      'renvoi 17
End Sub




Jimy

Pensez: Réponse acceptée
'**********************************************

lillith212 · Answer

Bonjour,


Alors plusieurs questions :


Pourquoi tu n'utilises pas tout simplement la commande "time" pour récupérer l'heure?


Ensuite le fait que tu veuilles avoir le retour en format integer c'est pour faire des manipulations d'heure?


sinon tu peux aussi avoir :
Hour(now)
Minute(now)
Second(now)
les trois te retourne des variants
Si cela peut t'aider...
Bonne journée et bonne programmation

Ps: N'oubli pas : Réponse acceptée

cs_ROCHEREAU · Answer

Merci à tous.
Je vais me servir de vos conseils. 

Claude ROCHEREAU

Conversion heure système

3 réponses

Votre réponse