Gestion du temps (Heures)

Version imprimable

16/01/2019, 11h08
CrasherSEP

Gestion du temps (Heures)
Bonjour,

Je tourne en rond... j'aimerais calculer le temps de travail d'une journée, je m'explique.

J'ai une table avec un champ [Date du jour], un champ [Heure] et un champ liste déroulante contenant (Journée, Début de journée, temps de midi, Fin de journée...)

Exemple d'encodage :
- Ligne 1 : [Date du jour] = 01-01-2019, [Heure] = 08:45 et [LISTE DEROULANTE] = Début de journée
- Ligne 2 : [Date du jour] = 01-01-2019, [Heure] = 12:00 et [LISTE DEROULANTE] = Temps de midi
- Ligne 3 : [Date du jour] = 01-01-2019, [Heure] = 12:30 et [LISTE DEROULANTE] = Journée
- Ligne 4 : [Date du jour] = 01-01-2019, [Heure] = 17:15 et [LISTE DEROULANTE] = Fin de journée
- Ligne 5 : [Date du jour] = 02-01-2019, [Heure] = 08:45 et [LISTE DEROULANTE] = Début de journée
- Ligne 6 : [Date du jour] = 02-01-2019, [Heure] = 12:15 et [LISTE DEROULANTE] = Temps de midi
- Ligne 7 : [Date du jour] = 02-01-2019, [Heure] = 12:45 et [LISTE DEROULANTE] = Journée
- Ligne 8 : [Date du jour] = 02-01-2019, [Heure] = 17:30 et [LISTE DEROULANTE] = Fin de journée
- Ligne 9 : [Date du jour] = 03-01-2019, [Heure] = 08:45 et [LISTE DEROULANTE] = Début de journée
- Ligne 10 : [Date du jour] = 03-01-2019, [Heure] = 12:15 et [LISTE DEROULANTE] = Temps de midi
- Ligne 11 : [Date du jour] = 03-01-2019, [Heure] = 14:15 et [LISTE DEROULANTE] = Journée
- Ligne 12 : [Date du jour] = 03-01-2019, [Heure] = 17:30 et [LISTE DEROULANTE] = Fin de journée
...

J'aimerais maintenant pouvoir afficher :
[Date du jour] = 01-01-2019 et [HEURES PRESTEES] : 8h
[Date du jour] = 02-01-2019 et [HEURES PRESTEES] : 8h30
[Date du jour] = 03-01-2019 et [HEURES PRESTEES] : 6h45

Merci d'avance pour vos lumières, parce que là... :(:?8O:roll::calim2::weird:
16/01/2019, 12h53
micniv
Bonjour,

Mon avis : si dans ta table, la colonne que tu appelles "liste déroulante" pour typer les heures renseignées, est un champ multivalué, il te faut corriger cette conception : c'est inexploitable !
Microsoft n'aurait jamais dû implémenter ce gadget
Avant tout, que veux-tu faire ?
- avoir les jours ouvrés de la société, avec les mêmes heures pour tous les employés ?
- avoir les jours ouvrés pour chaque employé, avec les mêmes heures pour tous les employés ?
- avoir le pointage de chaque jour ouvré pour chaque employé ?
CDLT
16/01/2019, 13h28
CrasherSEP
Bonjour,
- Avoir le pointage de chaque jour ouvré pour chaque employé ?
Ps : la liste déroulante est simple, un choix possible. (pour par exemple les temps de midi...)
22/01/2019, 16h03
EricDgn

1 pièce(s) jointe(s)

Bonjour,
En attaché un petit exemple avec une façon de faire.
Une première requête sert à ramener les temps en positif (les heures fin) ou en négatif (les heures début).
Cette requête est ensuite utilisée pour faire les totaux journaliers.
Bonne continuation.
22/01/2019, 16h52
CrasherSEP

Bonjour,

Je vais tester, mais déjà un TOUT Grand Merci :):):):):):)

EDIT
Il semble y avoir un problème d'heure... j'ai l'impression qu'il y a une heure en trop... non ? :?
23/01/2019, 10h40
EricDgn

Bonjour,
Effectivement, il y a une erreur dans la formule de calcul de AgtD dans la requête qDH.
Elle doit être remplacée par la suivante:

Code:

AgtD: -(([AgtDH]="DM")-([AgtDH]="DJ")+([AgtDH]="FJ")-([AgtDH]="FM"))*[AgtHeure]

Bonne continuation.
23/01/2019, 10h58
CrasherSEP

Merci :D
24/01/2019, 16h56
CrasherSEP

J'ai encore et oui... un petit problème, j'aimerais maintenant faire une somme du champ [SommeDeAgtD] et =Somme([SommeDeAgtD]) ne fonctionne pas...
25/01/2019, 00h26
EricDgn

1 pièce(s) jointe(s)

Bonjour,

C'est une des petites bizarreries d'Access, il n'aime pas que l'on utilise les champs nommés automatiquement SommeDe... (sans doute lié aux traductions). Il faut donner un nom à la somme et cela fonctionnera.

Dans l'exemple joint, dans la requête qDHtot, la somme des AgtD est nommée SAgtD. Ce champ est ensuite utilisé dans le formulaire et le calcul du total général.

Attention au total général qui dépasse 24h: le format hh:mm ne fonctionnera pas et il n'est pas possible de faire comme dans Excel [hh]:mm

Bonne continuation.
25/01/2019, 11h54
CrasherSEP

Merci :lol: dommage que les heures soient en décimales...

Ps : je n'arrive pas à l'intégrer dans mon formulaire, j'ai soit 0 ou 1...
31/01/2019, 10h49
CrasherSEP

J'ai donc cette formule qui me calcul la somme des heures

Code:

=Somme([SAgtD])*24

Elle me retourne par exemple : 172,5 heures
J'aimerais qu'elle me retourne : 172:30
Est-ce possible ?
Merci d'avance

Pour cela il faut se faire une formule telle que celle-ci

Code:

1
2
3
4
Public Function sHM(vH As Single) As String
   '--- conversion heures décimales vH (réel simple) en un texte hhh:mm:ss
   sHM = CStr(Int(vH)) & Format(vH / 24, ":nn:ss")
End Function

Bonne continuation.

31/01/2019, 16h40
CrasherSEP

Presque... mais déjà un très grand merci :-)

Exemple du problème :

En décimale = 6,0
En heure = 5:00...

En décimale : 6,5
En heure : 6:30

En décimale : 5,98
En heure : 5:59

L'heure juste, est diminuée d'une heure... pourquoi ?...

EDIT ;

Je crois avoir trouvé, à tester...

Code:

sHM = CStr(Round(vH)) & Format(vH / 24, ":nn:ss")

NONNNNNNNN, ne fonctionne pas, maintenant c'est

En décimale = 5,98
En heure = 6:59...
31/01/2019, 17h32
EricDgn

Il ne faut surtout pas utiliser la fonction Round() car elle arrondi:
Round(5.49)=>5 et Round(5.50)=>6

Il faut utiliser la fonction Int(), qui ne prend que la partie entière:
Int(5.49)=>5 et Int(5.50)=>5

Code:

sHM = CStr(Int(vH)) & Format(vH / 24, ":nn")

Bonne continuation.