Discussion :

[meganulos]

Bonjour à tous.

Je viens vers vous avant de finaliser mon projet sur la façon dont je vais gérer les durées.
Mon but est simple je veux faire un état mensuel des heures supplémentaires effectuées par des agents.
A chaque fois qu'un agent dépasse ses horaires je note dans une base de données au format hyperfile:
--Date de début
--Date de fin
--Heure de début
--Heure de fin
Ensuite quand je valide un calcul automatique se fait pour savoir combien cela représente comme temps supplémentaire. Pour cela j'utilise les durées avec ce code:

Code :

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

1
2
3
4
DateHeureDébut est une DateHeure = SAI_DateDébut+SAI_HeureDébut
DateHeureFin est une DateHeure = SAI_DateFin+SAI_HeureFin
TempsHSupp est une durée
TempsHSupp = DateHeureFin - DateHeureDébut

Avec ce code je vais par exemple obtenir pour 01h05 d'heure supp la valeur TempHSupp 0010500000.
Cette valeur je veux l'enregistrer dans la ma base de données mais je ne sais pas sous quel format je doit l'enregistrer car j'ai vu dans l'aide que les variables de durée sont soit une chaine au format "+JHHMMSSLLL" soit un entier correspondant au nombre de millisecondes de la durée.
De plus le souci est que chez nous les heures sont arrondies au 1/4 d'heure supérieur. Donc dans le cas présent je voudrais réussir à arrondir cette valeur qui représente 01h05 pour qu'elle fasse 01h15.
Merci de votre aide !

[frenchsting]

Une solution est d'enregistrer le nombre de quarts d'heure (ta rubrique serait donc un entier) : une heure sup te donne 4. Une autre serait d'enregistrer les minutes supplémentaires : pour une heure sup, tu enregistrerais 60 minutes.

C'est à toi de choisir...

Pour les arrondis, regarde du coté de la division entière et du modulo...

[Atsibat]

Quand tu dis que les heures sont arrondies au 1/4h supérieur j'imagine que c'est en fin de calcul.
L'agent qui fait cinq minutes tous les soirs ne se voit pas gratifié d'une heure et quart d'heures supp en fin de semaine quand même?

Donc pour ton calcul tu dois mémoriser les minutes et pas les 1/4 d'heure

Il y a plusieurs façons de régler ton problème.
En voici une :
Tu vas récupérer une durée sous forme JHHMMSSLLL
tu utilises une variable de type DateHeure dans ta base de donnée pour l'enregistrer.
Comme ça pas de conversion à faire tu restes en base 60 pour tes heures.
Tu fais tes additions d'heures supp en utilisant des variables de type dateheure.
Ensuite tu fais un arrondi au 1/4 heure supérieur sur la valeur finale.

[progxch]

Bonjour,

Je pense que la solution la plus simple est d'utiliser les propriétés du type Durée du WLangage.

Pour cet exemple précis il faut créer une rubrique de type entier dans la table HFSQL C/S puis pour lire et écrire cette valeur il faut utiliser la propriété ..EnMinutes du type Durée.

Exemple :

Code :

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

TableHF.MaDuree = TempsHSupp..EnMinutes

Et pour récupérer la durée de la table HF :

Code :

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

TempsHSupp..EnMinutes = TableHF.MaDuree

Si il faut une granularité plus importante on pourra utiliser ..EnSecondes ou ..EnMillisecondes.

[meganulos]

Merci à tous pour vos réponses.
J'ai trouvé la solution la plus simple pour le stockage... C'est que tout est prévu par Windev... En fait quand Atsibat m'a dit de mettre DateHeure dans la base de données, je me suis dit: "C'est bizarre je n'ai pas vu ce type de données. On a heure et date mais pas dateheure."
Je suis allé vérifier et en bidouillant j'ai mis Date et je me suis aperçu que effectivement que le sous-type "Date et Heure" existait mais aussi qu'il y avait juste en dessous un sous-type... "Durée".
Et là mon problème est résolu pour le stockage car après avoir testé, cela fonctionne à merveille !
Il me reste juste à faire un petit truc pour faire mon arrondi mais là... C'est pas gagné... J'ai encore un peu besoin de vous... Surtout que la base de donnée enregistre la durée au format "+JHHMMSSLLL"...
Petite précision, un agent qui fait effectivement 5 mn tous les jours va bien avoir 01h15 à la fin de la semaine ! L'arrondi se fait bien à la journée avant de rentrer la valeur dans la base de donnée.
Mais quand on dépasse c'est rarement de 5 mn...

[L.nico]

Bonjour,

à la volée pour arrondir à +15, il faut faire un truc du genre (non testé) :

Code :

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

TempsMinute = (PartieEntiere(TempsMinute/15)*15) + (modulo(TempsMinute,15) > 0 ? 15 sinon 0)

Bonne suite,

Nicolas

[Hemgé]

Bonjour,

Tout d'abord, vous pouvez simplifier votre FIC en ne retenant que deux rubriques (DateHeureDébut et DateHeureFin) au lieu des quatre que vous nous décrivez.
Pour cela, il vous suffit de définir vos rubriques comme étant de type date avec un sous-type "DateHeure", dont l'encombrement est identique à celui du type Date ou Heure, soit 8 octets.

Résultats :
- division par deux de l'encombrement
- données "ready" pour les calculs
- lecture et traitement plus rapide
- code plus lisible

Ensuite, normalement, on ne stocke pas de données dérivant d'un calcul.
Cela peut amener des incohérences dans la base et si vous persistez, vous devriez alors implémenter une routine de contrôle de la cohérence des durées que vous enregistrez.
Si vous traitez des volumes très importants, ce la peut se comprendre. Dans la plupart des cas, un calcul au moment de l'exploitation est suffisant, ou alors un stockage temporaire en fichier de travail.

Quant à effectuer votre calcul, travaillez directement avec les données enregistrées en stockant le résultat dans une variable durée comme vous l'envisagiez. Pas besoin de passer par des conversions.

Enfin, mais je n'ai jamais testé cela, la propriété ..EnHeures d'une variable de type Durée, renvoie une valeur réelle avec donc des décimales que vous pouvez tester.

Bon travail

Hemgé

[meganulos]

Merci pour vos réponse.
Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DateHeureDébut est une DateHeure = SAI_DateDébut+SAI_HeureDébut
DateHeureFin est une DateHeure = SAI_DateFin+SAI_HeureFin
DuréeHSupp est une Durée = DateHeureFin-DateHeureDébut
MnHSupp est un entier = DuréeHSupp..Minute
SELON MnHSupp
	CAS 0<*<15 : DuréeHSupp..Minute=15
	CAS 15<*<30 : DuréeHSupp..Minute=30
	CAS 30<*<45 : DuréeHSupp..Minute=45
	CAS 45<*<60 :
		DuréeHSupp..Heure++
		DuréeHSupp..Minute=00
FIN

Ça marche impeccable ! Il ne me reste plus qu'à mettre ça sous forme de procédure/fonction car je vais utiliser cela un grand nombre de fois.
Ça fait une heure que j'essaye et je n'ai toujours pas pigé comment marche les fonctions...

[L.nico]

Il ne me reste plus qu'à mettre ça sous forme de procédure/fonction car je vais utiliser cela un grand nombre de fois.
Ça fait une heure que j'essaye et je n'ai toujours pas pigé comment marche les fonctions...

Alors il est grand temps de commencer le guide d'auto-formation
Et de mettre cette discussion a

[meganulos]

Je l'ai lu et je viens d'aller vérifier un truc à l'instant dedans mais même avec l'aide de Windev je n'arrive pas à faire ce que je veux !
Voici ma procédure : Elle fonctionne sans problème mais je voudrais qu'elle me renvoie la variable duDuréeHSupp pour que je puisse m'en servir mais je n'y arrive pas !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
PROCEDURE ArrondisHeuresSupp(dhDateHeureDébutHSupp est une DateHeure,dhDateHeureFinHSupp est une DateHeure)
duDuréeHSupp est une Durée =dhDateHeureFinHSupp-dhDateHeureDébutHSupp
nMnHSupp est un entier =duDuréeHSupp..Minute
SELON nMnHSupp
	CAS 0<*<15 : duDuréeHSupp..Minute=15
	CAS 15<*<30 : duDuréeHSupp..Minute=30
	CAS 30<*<45 : duDuréeHSupp..Minute=45
	CAS 45<*<60 :
		duDuréeHSupp..Heure++
		duDuréeHSupp..Minute=00
FIN

Si je fais:

Code :

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

1
2
ArrondisHeuresSupp(SC_Fiche.SAI_DateDébut+SC_Fiche.SAI_HeureDébut,SC_Fiche.SAI_DateFin+SC_Fiche.SAI_HeureFin)
Info(duDuréeHSupp)

Il me dit : "Erreur :Identificateur 'duDuréeHSupp' inconnu ou inaccessible."

[L.nico]

Vous n'êtes pas très loin
Si vous jetiez un coup d'oeil dans l'aide sur l'instruction RENVOYER

[meganulos]

Merci à tous pour votre aide précieuse. Ca fonctionne à merveille !