calcul heure minutes

Version imprimable

Bonjour,

Je tourne en rond, j'ai utilisé les formules suivantes:
Code:

1 2 3 4 5 6 7 8 vdécimal=0 vheure="" //etat_edition_travail_heures.Montant_heure = etat_edition_travail_heures.Montant_minutes / 60 vmontantminutes = etat_edition_travail_heures.Montant_minutes / 60 vdécimal = PartieDécimale(vmontantminutes) * 60 vheure = PartieEntière(vmontantminutes) + "." + vdécimal etat_edition_travail_heures.Montant_heure=vheure
ceci marche parfaitement bien sauf quand on a une décimale qui commence par 0.0xxxx
dans ce cas le zéro après la décimale est mangé hélas je pourrais manipuler l'ensemble par une chaine mais ça m'embête si vous aviez une idée je vous en remercie

avez vous pu résoudre ce problème ?

Merci par avance

12/03/2021, 15h18
tatayo

Bonjour,
Pourquoi faire des traitements alambiqués pour séparer partie entière/partie décimal, alors que tu peux utiliser un masque de saisie, ou utiliser NumeriqueVersChaine() pour formatter ta valeur ?

Tatayo.
12/03/2021, 16h20
rudolfrudolf

y'a pas de masque c'est un traitement de fin de mois qui calcule le nombre d'heures par employé

j'ai la version 23 je pourrais peut-être voir si ça résout mon problème
12/03/2021, 16h22
rudolfrudolf

Citation:

Envoyé par tatayo

Bonjour,
Pourquoi faire des traitements alambiqués pour séparer partie entière/partie décimal, alors que tu peux utiliser un masque de saisie, ou utiliser NumeriqueVersChaine() pour formatter ta valeur ?

Tatayo.

j'ai essayé ça

edit : je veux trouver la meilleure Façon de faire
12/03/2021, 16h47
tatayo

Plus je regarde ton code, moins je comprends ce que tu veux faire.

Est-ce que tu peux nous donner des exemples de "Montant_Minute" et les valeurs correspondantes pour "etat_edition_travail_heures.Montant_heure" ?

Tatayo.
12/03/2021, 19h13
tbc92

Tu as des numériques ( vmontantminutes et vdécimal)
Tu veux convertir ces numériques vers des chaines (vheure) : tu veux une mremière chaine pour convertir vmontantminutes , puis une 2ème chaine pour vdécimal, et ensuite tu veux concaténer ces 2 chaines, avec un "." entre les 2.

Pour convertir un numérique en chaine, il y a une fonction toute faite : NumériqueVersChaine()
Si tu lis la doc de cette fonction, tu trouveras qu'en mettant les bons paramètres, tu obtiendras le résultat voulu.

Bonjour,
On a aussi les propriétés EnHeure() et EnMinute(), ainsi que ..Heure et ..Minute. Tout dépend de ce que l'on veut faire.
E.g. pour la facture d'un travail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
duDuréeTravail est Durée
rMultTravail est réel
moTarifHoraire est monétaire
 
moTarifHoraire=50
 
duDuréeTravail..Heure=1
duDuréeTravail..Minute=30
 
rMultTravail=duDuréeTravail..EnHeures
 
InfoConstruit("Travaillé :%1%2Tarif horaire :%3€%2Montant dû %4 € HT",DuréeVersChaîne(duDuréeTravail,"HH:MM"),...
				CRLF,moTarifHoraire,rMultTravail*moTarifHoraire)

12/03/2021, 21h38
rudolfrudolf

Citation:

Envoyé par tatayo

Plus je regarde ton code, moins je comprends ce que tu veux faire.

Est-ce que tu peux nous donner des exemples de "Montant_Minute" et les valeurs correspondantes pour "etat_edition_travail_heures.Montant_heure" ?

Tatayo.

Merci de prendre de ton temps pour moi

alors voila

106 minutes divisé par 60 donne 1.766666
j'ai vu sur internet
que l'on sépare la partie entière donc 1
et la partie décimale 0.7666666
la partie décimale on la multiplie par 60 ce qui donne 46

ce qui est vrai 106 minutes est bien égal a 1 heure et 46 minutes

par contre la même opération sur 122 minutes

me donne 2.20 minutes en fait il me mange le 0,03 et me calcule 3 le zéro de la partie décimale est mangé

j'espère avoir été clair
je ne veux pas passer par les fonctions entiervers heure ou autre mais bon si j'ai pas d'autre solution je le ferais peut-être

en tout cas merci à vous tous qui vous intéressez à mon problème

Citation:
Envoyé par Voroltinquo
Bonjour,
On a aussi les propriétés EnHeure() et EnMinute(), ainsi que ..Heure et ..Minute. Tout dépend de ce que l'on veut faire.
E.g. pour la facture d'un travail
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 duDuréeTravail est Durée rMultTravail est réel moTarifHoraire est monétaire moTarifHoraire=50 duDuréeTravail..Heure=1 duDuréeTravail..Minute=30 rMultTravail=duDuréeTravail..EnHeures InfoConstruit("Travaillé :%1%2Tarif horaire :%3€%2Montant dû %4 € HT",DuréeVersChaîne(duDuréeTravail,"HH:MM"),... CRLF,moTarifHoraire,rMultTravail*moTarifHoraire)
merci je vais étudier cette piste lundi la je suis en week-end :mrgreen:

13/03/2021, 00h37
tbc92

La méthode de Voroltinquo te donnera bien 2 pour le nombre d'heures, puis 2 pour le nombre de minutes, si tu pars de 122minutes. Sans passer par des divisions et des multiplications par 60.

Mais pour convertir le nombre 2 ( 2 minutes) en "02" parce que tu veux voir ce 0, il faut passer par NumériqueVersChaine.

Tu peux aussi faire des calculs sauvages : 2 heures , plus 2 minutes, tu calcules ce nombre : Nbreheure + nbreminutes /100, ça te donne le nombre 2.02 et selon que tu as de la chance ou pas, selon ta configuration, ça affiche 2.02 ou 2,02.
13/03/2021, 08h39
tatayo

Donc ici il s'agit d'une durée, dans ce cas tu as (comme souvent avec Windev) une fonction toute faite: DuréeVersChaine().
L'aide te fournit même un exemple qui fait exactement ce que tu cherches.

Tatayo.
13/03/2021, 15h53
rudolfrudolf

Merci à vous tous

Lundi j'essaie ce que vous me suggérez et je vous tient informé du résultat. je posterait le code final pour toute personne qui aurait aussi ce soucis.

Bon week-end

Bonjour à tous,

J'ai tenté de me connecter ce matin au forum mais je n'y suis pas arrivé, ce qui m'a un peu privé de toutes les indications que vous m'avez donné.
Je connais bien les fonctions numériqeverschaine et autres. J'ai aussi regardé les fonctions que volterino m'avait indiqué ..heure ..minute etc.

Au final je suis repartit vers mon idée initiale. J'ai un nombre total de minutes et pour un rapport je doit l'afficher en heure minutes. Voici ce que j'ai donc écrit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 vheure est une chaîne vdécimal est un monétaire vmontantminutes est un monétaire vdécimal=0 vheure="" vmontantminutes = etat_edition_travail_heures.Montant_minutes / 60 vdécimal=PartieDécimale(vmontantminutes) * 60 vdécimal=Arrondi(vdécimal) vheure = PartieEntière(vmontantminutes) + "." + vdécimal SI vdécimal < 10 ALORS vheure = PartieEntière(vmontantminutes) + ".0" + Gauche(vdécimal,1) FIN etat_edition_travail_heures.Montant_heure=vheure
*etat_edition_travail_heures.Montant_heure est un numérique d'un champ de l'éditeur d'état.

donc je part bien d'un nombre que je dois passer à une chaine formaté.

Même si pas très élégant ce code fonctionne et 122 me donne bien 2:02

peut on faire mieux ? j'en suis certain et dès que j'ai un peu de temps j'y retourne pour reregarder vos commentaires.
je ne clos donc pas cette discutions en espérant pourvoir lire vos critiques et/ou commentaires.

Encore une fois merci pour votre intérêt et le temps passé à me lire.

16/03/2021, 15h22
Voroltinquo
Dans ton cas, il faut passer par la 2° syntaxe de EnMinute()
Code:

1 2 3 4 5 6 duDuréeTravail est Durée duDuréTravail.EnMinute()=122 Trace(DuréeVersChaine(duDuréeTravail,"HH.MM")
Attention MM doit être en majuscule sinon tu te retrouves avec des mois.

Citation:
Envoyé par Voroltinquo
Dans ton cas, il faut passer par la 2° syntaxe de EnMinute()
Code:

1 2 3 4 5 6 duDuréeTravail est Durée duDuréTravail.EnMinute()=122 Trace(DuréeVersChaine(duDuréeTravail,"HH.MM")
Attention MM doit être en majuscule sinon tu te retrouves avec des mois.
Merci Beaucoup pour m'avoir montré la voie :D

voici le code corrigé grâce à toi
Code:

1 2 3 4 5 6 vmontantminutes..EnMinutes = etat_edition_travail_heures.Montant_minutes vheure=(DuréeVersChaîne(vmontantminutes,"HH.MM")) etat_edition_travail_heures.Montant_heure=vheure

16/03/2021, 18h05
laurent30s

Ne pas le prendre mal, c'est juste pour l'humour :D
https://www.youtube.com/watch?v=xgCyi6kMO-0
16/03/2021, 19h45
rudolfrudolf

Citation:

Envoyé par laurent30s

Ne pas le prendre mal, c'est juste pour l'humour :D
https://www.youtube.com/watch?v=xgCyi6kMO-0

t'inquiètes j'adore l'humour et j'ai adoré :D