Discussion :

[jean-mi34]

Bonjour,

dans une table access j'ai une rubrique de type Réel Double qui contient des durées sous la forme HHH:MM. Ces durées sont saisies avec le masque HHH:MM que j'ai créé (990:99;0). On peux saisir des durées supérieures à 24 heures. Pas de problèmes jusque là, puisque la rubrique est un numérique et pas une date.

Ce qui me pose problème c'est la somme de ces durées, en heures et minutes. Je ne sais pas comment faire ces calculs. Je suis plus que débutant en access et un VBA.
Auriez vous des pistes ?

Merci d'avance,

Jean-Michel

[domibigoudi]

Bonjour

Voilà un code qui pourrait vous aider (testé chez moi).

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
17
18
19
20
 
Sub Calcul()
    Dim DB As DAO.Recordset
    Dim Donnee As Integer, Minutes As Integer, Heures As Integer
    Set DB = CurrentDb.OpenRecordset("T_Durees")
    Minutes = 0: Heures = 0
    Do While Not DB.EOF
        Donnee = Val(DB("Durée"))
        'Tri des minutes
        Minutes = Minutes + Right(Donnee, 2)
        Heures = Heures + Int(Donnee / 100)
        'suivant dans la table
        DB.MoveNext
    Loop
    DB.Close
    Heures = Heures + Int(Minutes / 60)
    Minutes = Minutes Mod 60
    MsgBox Heures & " - " & Minutes
 
End Sub

[jean-mi34]

Ça à l'air de fonctionner. C'était plus simple que ce que je pensais.
Merci domibigoudi !