1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Calculer les secondes aussi [Résolu]

Signaler
Messages postés
48
Date d'inscription
mardi 24 mars 2009
Statut
Membre
Dernière intervention
3 janvier 2015
 -
Messages postés
30321
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 novembre 2020
 -
Bonjour,

comment faire pour qu'il rajoute les secondes aussi 
'calculer le reste en temps
        Label3.Text = Format(Now, "HH:mm:ss")
        Dim n, h, m As String

        n = DateDiff("n", Label3.Text, ICHMaskedTextBox2.Text)
        h = DateDiff("h", Label3.Text, ICHMaskedTextBox2.Text)
        If Label3.Text < ICHMaskedTextBox2.Text Then
            m = n - (h * 60)
            Label16.Text = "il reste   " + h + "  h  " + m + "  min"
        End If

        Dim n1, h1, m1 As String
        If Label3.Text > ICHMaskedTextBox2.Text Then
            n1 = DateDiff("n", ICHMaskedTextBox2.Text, Label3.Text)
            h1 = DateDiff("h", ICHMaskedTextBox2, Label3.Text)
            m1 = n1 - (h1 * 60)
            Label16.Text = "Depuis  " + h1 + "  h  " + m1 + "  min"

        End If


merci d'avance



EDIT : Ajout des balises de code (jordane)

--
Afficher la suite

6 réponses

Réponse 1 / 6
Messages postés
30321
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 novembre 2020
 338
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Réponse 2 / 6
Messages postés
30321
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 novembre 2020
 338
Bonjour,

Tu utilises datediff en Secondes.. puis tu fais les opérations mathématiques pour calculer le nombre d'heures/minutes/secondes qu'il te reste..

http://msdn.microsoft.com/fr-fr/library/b5xbyt6f%28v=vs.90%29.aspx



Réponse 3 / 6
Messages postés
14738
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 novembre 2020
 148
Bonjour,

En VB.NET pensez à activer "Option Explicit" et "Option Strict"
Pensez aussi à retirer l'import automatique de Microsoft.VisualBasic (Onglet "références" des propriétés du projet.

Une fois cela fait, intéresses-toi à la classe DateTime.
Peut être qu'en faisant la différence en secondes, tu pourras avoir la précision adéquate.
Réponse 4 / 6
Messages postés
48
Date d'inscription
mardi 24 mars 2009
Statut
Membre
Dernière intervention
3 janvier 2015
rebonjour
je précise tout d'abord que je suis un débutant
tout ce que je connais est un effort perso entre livre entre internet

merci pour les réponses
j'ai essayé d'utiliser datdiff pour les secondes
le souci ce que je bloque au niveau de l'opération : 
m = n - (h * 60)


je n'arrive pas à trouver la solution
ca donne par ex : 12h et 4567891 minutes
merci d'avance car je tiens beaucoup à ce projet.
--
Signaler
Messages postés
14738
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 novembre 2020
 148
Regardes l'opérateur Modulo (mod)

Sec=Diff mod 60
Diff=(Diff-sec)/60
m=Diff Mod 60
...
Signaler
Messages postés
15139
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 novembre 2020
 462
Et puis comme l'a dit NHenry regarde la classe DateTime et la classe TimeSpan
Réponse 5 / 6
Messages postés
159
Date d'inscription
samedi 29 septembre 2012
Statut
Membre
Dernière intervention
21 juin 2016
 1
J'avais également eu du mal avec les datediff.
Datediff te donne la différence entre 2 date. Selon le paramètre que tu choisis, il retourne soit la différence en h, m, s,... Ainsi, si tu désire la différence en hh:mm:ss, tu dois faire le calcul (/60). C'est assez complexe.

J'ai finalement trouvé un morceau de code: 
Dim temps As TimeSpan = date2.Subtract(date1)
            Dim H = temps.Hours
            Dim M = temps.Minutes
            Dim S = temps.Seconds
            Label_temps.Text = Format(H, "00") & ":" & Format(M, "00") & ":" & Format(S, "00")


J'espère que ça t'aidera. Je suis également débutant et autodidacte. N'hésite pas à user ta touche F1 ou de Google. Et si une méthode ne fonctionne pas, il en existe pleins d'autres qui peuvent fonctionner et qui sont mieux adapté à ton problème.
Réponse 6 / 6
Messages postés
48
Date d'inscription
mardi 24 mars 2009
Statut
Membre
Dernière intervention
3 janvier 2015
Bonjour
Je remercie tout ceux qui m ont proposé des codes.
En fait le projet est pour une association.
Il consiste a afficher des donnee sur un ecran
Suivant la date du jour.
--je suis en plein projet. J espere que j arriverai a le finir.
Il reste une question qui me travaille depuis une semaine.
Comment afficher cette appli depuis une cle usb sur un ecran de tv.
J aurais besoin de vos conseils.
Merci a tous ceux qui veulent aider cette association.
Signaler
Messages postés
30321
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 novembre 2020
 338
afficher cette appli depuis une cle usb sur un ecran de tv.
A part la faire tourner sur un PC relié à cet écran... pas de solutions !
Répondre Posez votre question