Probleme avec datediff [Résolu]

Messages postés
17
Date d'inscription
mardi 15 janvier 2002
Statut
Membre
Dernière intervention
25 juillet 2019
-
Bonjour,
Voila, je calcule des pauses qui sont DebutPause et FinPause
J'utilise dateadd pour ajouter Aleatoirement X secondes a Now
et alleatoirement X secondes a DebutPause
quoique je fasse datediff renvoie tourjours 340

voici bout de code simplifie
debute et fin pause sont decares en date
Public Sub Calcule_Pause()
Dim i As Long

  With Jeu.Horaire
    .Debut_Pause = (DateAdd("s", NbrAllea(180, .Pause_Totale / 3), Now))
    .Fin_Pause = (DateAdd("s", NbrAllea(180, .Pause_Totale / 3), .Debut_Pause))
    
      Main.Labeldif =DateDiff("s", .Debut_Pause, .Fin_Pause)
  End With
End Sub

pause totale = 900 car je desire 3 pause /heure pour un max de 15 minutes
donc pause totale diminuera du nombre de seconde de la premiere pause...

merci
Afficher la suite 

2 réponses

Messages postés
13614
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
18 août 2019
295
0
Merci
Bonjour
Y’a bien longtemps que je ne code plus en vb6. Mais comme personne ne t’as répondu, on va essayer.

Peux tu poster le code de NbreAllea?
Commenter la réponse de Whismeril
Messages postés
17
Date d'inscription
mardi 15 janvier 2002
Statut
Membre
Dernière intervention
25 juillet 2019
0
Merci
Voila nbrallea .. rien de bien méchant...
Mais j'ai resolu en utilisant la fonction
FormatDateTime

Debut_Pause = FormatDateTime(.Debut_Pause, 3)
Fin_Pause = FormatDateTime(.Fin_Pause, 3)
puis je fai le datediff et ca va bcp mieux
Merci


Public Function NbrAllea(Min As Long, Max As Long) As Long
Randomize
NbrAllea = (Max * Rnd) + Min

End Function
Whismeril
Messages postés
13614
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
18 août 2019
295 -
Ok, dans ce cas, pense à marquer le sujet résolu avec la roue dentée tout en haut du fil
Commenter la réponse de chelguera