Calculs sur dates et heures..dans UF

[paul87]

Bonsoir à tous, Bonsoir le Forum,
Voila j'ai besoin de travailler sur des valeurs en dates et heure, calculs d'écarts et additions ou soustractions de temps..et tri
De plus j'ai aussi besoin de faire apparaitre des labels...le plus ancien est:
les plus récent est:
je suis obligé de conserver le format : dd/mm/yy hh:nn
mais je plante lamentablement...
si quelqu'un pouvait m'aiguiller....svp
ci joint mon fichier de brouillon...
merci par avance

 

[PascalXLD]

Re : Calculs sur dates et heures..dans UF

re

il faudrait voir la ligne qui bug elle doit être surligné en jaune

 

[paul87]

Re : Calculs sur dates et heures..dans UF

re dans le code ci-dessous:
ligne :MonNbreHeure = Int(Madiff / 60)
MonNbreHeure prend une valeur = 0
et
Madiff prend une valeur = 521894159
Why...?

For x = 1 To 4
    If Controls("TextBox" & x) <> "" Then
        MonNbreCrit = MonNbreCrit + 1
        If CDate(Controls("TextBox" & x)) < MaDateMini Then MaDateMini = CDate(Controls("TextBox" & x))
        If CDate(Controls("TextBox" & x)) > MaDateMaxi Then MaDateMaxi = CDate(Controls("TextBox" & x))
    End If
Next x

Madiff = Abs(DateDiff("n", MaDateMini, Now))
MonNbreHeure = Int(Madiff / 60)
MonNbreMinute = Madiff - (MonNbreHeure * 60)

Me.Tbx_Difference = MonNbreHeure & ":" & Format(MonNbreMinute, "00")
If MonNbreCrit > 1 Then
    Madiff = Abs(DateDiff("n", MaDateMaxi, MaDateMini))
    MonNbreHeure = Int(Madiff / 60)
    MonNbreMinute = Madiff - (MonNbreHeure * 60)
    Me.Tbx_Ecart = MonNbreHeure & ":" & Format(MonNbreMinute, "00")
End If

 

[PascalXLD]

Re : Calculs sur dates et heures..dans UF

Re

ok c'est car je t'avais déclaré MonNbreHeure en Integer et là ça dépasse allègrement

Donc remplaces

Dim MonNbreHeure As Integer

Par

Dim MonNbreHeure As Long

 

[paul87]

Re : Calculs sur dates et heures..dans UF

Bonjour à tous, Bonjour le Forum et bonjour PascalXLD
C'est Ok...
ça marche ..
encore merci..
A bientôt
Paul

 

[paul87]

Re : Calculs sur dates et heures..dans UF

Bonjour à tous, Bonjour le Forum
Dans mon fichier de brouillon ci joint, qui fonctionne, j'ai besoin de rajouter sur le CommandButton1 au moment de la validation,
des msgbox..vbyes/no
une sur les 4 critères..qui doivent obligatoirement etres documentes
oui = voulez vous modifier?
non=remise a Zero des textbox
et une si la valeur de Tbx_Ecart est > à 24h avec
oui = voulez vous modifier?
non=remise a Zero des textbox
je ne comprends rien aux differents types de msgbox..
merci par avance

 

[paul87]

Re : Calculs sur dates et heures..dans UF

Bonour,
un petit coup de pouce pour des msgbox....
svp
merci par avance..

 

[PascalXLD]

Re : Calculs sur dates et heures..dans UF

Salut

Je te donne l'idée à toi d'adapter

If MsgBox("Voulez-vous?", vbYesNo) = vbYes Then
'ton Action
Else
'L'autre action
End If

 

[paul87]

Re : Calculs sur dates et heures..dans UF

Bonjour à tous, Bonjour le Forum et bonjour PascalXLD
Super .....🙂J'ai réussi...🙂
Merci pour ton coup de pouce....
A+