Discussion :

[ullaop]

Bonjour,

Télépilote de drone civil dans un cadre professionnel, je viens de créer un carnet de vol (sous access) dans lequel je souhaite faire apparaitre dans l'ÉTAT 2 champs durée formaté h:m:s (>24 heures)
Si dans l'ÉTAT le champ d'entrée de la durée d'un champ "Duree" ne pose pas de problème, je ne parviens pas au calcul automatique de la durée des vols sous le champ ÉTAT "Total" tel que :

"B" = "A" puis,
"C1" = "B" + "A1" puis,
"C2" = "C1" + "A2" etc...

Voir image ci-dessous


sachant que les champs "Durée" sont toujours entrés au clavier (formatage date h:m:s).

Je vous remercie pour votre aide

[titi95]

Bonjour

Pour pouvoir utiliser des temps > 24h, on peut passer par cette fonction

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
16
Public Function EnHeure(ParTemps As Double, Optional ParSecondesAffichees As Boolean = False)
    Dim VarJours As Long, VarHeures As Long, VarMinutes As Long, VarSecondes As Long
    VarJours = Int(ParTemps)
    ParTemps = (ParTemps - VarJours) * 86400 'nombre de secondes
    VarSecondes = ParTemps Mod 60
    ParTemps = ParTemps - VarSecondes
    VarMinutes = (ParTemps Mod 3600) / 60 ' Minutes
    ParTemps = ParTemps - VarMinutes * 60
    VarHeures = (ParTemps Mod 86400) / 3600 ' Heures
    VarHeures = VarHeures + VarJours * 24
    If IsMissing(ParSecondesAffichees) Or ParSecondesAffichees = True Then
        EnHeure = VarHeures & ":" & Format(VarMinutes, "00") & ":" & Format(VarSecondes, "00")
    Else
        EnHeure = VarHeures & ":" & Format(VarMinutes, "00")
    End If
End Function

A copier-coller dans un module, et à utiliser par exemple avec

Code :

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

NomZone3= EnHeure(NomZone1 + NomZone2, True)

[User]

Bonjour,

Pour compléter, ce qui vient d'être dit :

Le calcul du total revient a effectuer un cumul ou une somme sur la colonne durée, jusqu'à la ligne concernée :

Pour cela tu peux utiliser une sous-requête :

Code sql :

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

1
2
3
select Duree, (select Sum(Duree) from T_Durees T1 where T1.LigneDuree<=T_Durees.LigneDuree) as total
from T_Duree
order by LigneDuree

T_Duree désigne la table source et LigneDuree désigne l'identifiant de cette table.

Je te laisse utiliser la fonction de titi95 pour le calcul des sommes > 24h

Cdlt,