jerlo1187
Messages postés mardi 19 mai 2015Date d'inscription
13 septembre 2018
Dernière intervention
-
4 sept. 2018 à 15:32 - Dernière réponse : Whismeril12031
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
22 septembre 2018
Dernière intervention
- 11 sept. 2018 à 17:34
cs_Le Pivert5360
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
22 septembre 2018
Dernière intervention - 4 sept. 2018 à 15:46
0
Merci
Bonjour,
Il y a des quantités de réponses sur le net. En voici une parmi tant d'autres:
cs_Le Pivert5360
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
22 septembre 2018
Dernière intervention - 4 sept. 2018 à 16:40
comme ceci:
Option Strict On
Public Class Form1
Dim Temps As Long 'TempsTotal est le temps en secondes
Dim Heures As Integer
Dim Minutes As Integer
Dim Secondes As Integer
Sub Conversion(ByVal TempsTotal As Long)
Heures = CInt(Int(TempsTotal / 3600))
Minutes = CInt(Int((TempsTotal - 3600 * Heures) / 60))
Secondes = CInt(TempsTotal - 3600 * Heures - 60 * Minutes)
Label1.Text = (Format(Heures & ":" & Minutes & ":" & Secondes)) 'là, on a le temps formaté hh:mm:ss
'Format sert à afficher 2 chiffres pour les heures, les minutes et les secondes
'Exemple: avec Format: 08:05:23
' sans Format: 8:5:23
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Temps = 12500
Conversion(Temps)
End Sub
End Class
Whismeril12031
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
22 septembre 2018
Dernière intervention - 4 sept. 2018 à 19:05
0
Merci
Bonjour
ou alors utiliser les outils de la framework
Dim secondes As Integer = 4321
Dim temps As TimeSpan = TimeSpan.FromSeconds(secondes)
Dim hhmmss As String = temps.ToString()
Dim hhmm As String = temps.ToString("hh\:mm")
Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll
Informations supplémentaires : La conversion de la chaîne ":" en type 'Double' n'est pas valide.
Option Strict On Public Class Form1 Dim Temps As Long 'TempsTotal est le temps en secondes Dim Heures As Integer Dim Minutes As Integer Dim Secondes As Integer Sub Conversion(ByVal TempsTotal As Long) Heures = CInt(Int(TempsTotal / 3600)) Minutes = CInt(Int((TempsTotal - 3600 * Heures) / 60)) Secondes = CInt(TempsTotal - 3600 * Heures - 60 * Minutes) Label1.Text = (Format(Heures & ":" & Minutes & ":" & Secondes)) 'là, on a le temps formaté hh:mm:ss 'Format sert à afficher 2 chiffres pour les heures, les minutes et les secondes 'Exemple: avec Format: 08:05:23 ' sans Format: 8:5:23 End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Temps = 12500 Conversion(Temps) End Sub End Classvoilà
@+ Le Pivert