Probleme avec datediffRésolu

Question

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

Whismeril · Answer

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?

chelguera · Answer

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) + MinEnd Function

Probleme avec datediff

2 réponses

Votre réponse

Discussions similaires