Discussion :

[sergoid]

bonjour à tous,

Je veux crontrôler que l'utilisateur ne rentre pas une durée supérieure à celle théorique. J'ai 2 heures différentes, une de début et une de fin.

Mon code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    Dim duree As Date, heuredebut As Date, heurefin As Date
    heuredebut = ÉtiquetteHeureDebut.Caption
    heurefin = ÉtiquetteHeureFin.Caption
    If Hour(heuredebut) > Hour(heurefin) Then
        heurefin = heurefin + TimeSerial(24, 0, 0) 'ajout de 24h pour calculer la durée
    Else
    End If
    duree = (heurefin - heuredebut)
 
    If (TexteTempsTech1.Value - duree) > 0 Then
        MsgBox "La durée indiquée est supérieure à la durée de l'intervention", vbExclamation, "Durée incorrecte"
        TexteTempsTech1.Value = Null
    Else
    End If

J'ai vérifié avec le debogueur et lorsque duree = TexteTempsTech1.Value la soustraction est égale à 3,46944695195361E-17

Avez-vous une idée pour avoir 0 :

[random]

ton nombre est erreur d'approximation de la représentation
tu pourrais faire
iif(abs(monnombre)<10^-12;0;monnombre)

[Julien Dufour]

Les dates sont traitées comme des réél.
La partie entière gère les jours et la partie décimales les heures minutes seconde.(cf la FAQ!!! très bien faite sur le sujet d'ailleurs)...
Le problème c'est que du coup une heure = 1/24, une minute = 1/(24*60)
et ainsi de suite.
Cela peut crééer des anomalies dans la gestion des arrondis.

Gère une marge d'erreur d'arrondi acceptable. par exemple (0.5 seconde)
ton code deviens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (TexteTempsTech1.Value - duree) > 0.000006 Then

[sergoid]

merci à vous deux