Discussion :

[mimi1255]

Bonjour,

Je souhaite récupérer une durée(en heures/minutes) comprise entre une heure de début (en secondes) et une heure de fin(en secondes).
Voici le code que j'ai utilisé.

Code :

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

1
2
3
4
5
6
7
8
9
10
SI REQ_prodroute_anciennes_heures.FROMTIME < REQ_prodroute_anciennes_heures.TOTIME ALORS       
		nValentier = ((REQ_prodroute_anciennes_heures.TOTIME)*100)-((REQ_prodroute_anciennes_heures.FROMTIME)*100)
		HEURE = EntierVersHeure(nValentier)
		tps_arret = HEURE-MINUIT
	SINON
		// SI L'HEURE DE DEBUT > L'HEURE DE FIN ALORS L'ENTIER EST NEGATIF ET LE RESULTAT EST OTE DE 24h00
		nValentier = ((REQ_prodroute_anciennes_heures.TOTIME)*100)-((REQ_prodroute_anciennes_heures.FROMTIME)*100)
		HEURE = EntierVersHeure((nValentier) +8640000 )
		tps_arret = (HEURE)-MINUIT
	FIN

Si on part du principe que REQ_prodroute_anciennes_heures.FROMTIME = 14400 et REQ_prodroute_anciennes_heures.TOTIME = 18000 alors j'ai un écart de durée qui est de 3600 secondes (soit 1h), que je multiplie par 100 pour avoir un résultat en centièmes de secondes.

La fonction EntierVersHeure me donne cette valeur: 010000000

Cependant la durée que je récupère est d'une minute alors que je devrais récupérer 1h.

Pouvez-vous m'aider ?

Merci d'avance.

[Hemgé]

Bonjour,

Quand vous avez un problème, commencez par évaluer son vocabulaire, ce qui vous permet ensuite de vous référer à la documentation et enfin de faire des recherches sur les Forums habituels (Ici et PCsoft essentiellement) sans oublier Google.

Après cela vient l'appel à l'aide, en sachant qu'entretemps, vous n'aurez certainement pas perdu votre temps.

En ce qui concerne votre problème, voyez la documentation sur le type de variable Durée et notamment ses propriétés.
Vous y trouverez votre bonheur.

Hemgé.

[mimi1255]

Bonjour,
Je pense avoir bien utilisé les types de variables, puisque avant mon code, j'ai déclaré ceci:

Code :

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

1
2
3
4
nValentier est une entier
tps_arret est une Durée
HEURE est une Heure
MINUIT est une Heure = "000000000"

[Hemgé]

Bonjour,

La fonction EntierVersHeure renvoie une chaîne de 8 caractères numérique au format HHMMSSCC.
"01000000" correspond à 01:00:00:00 ou 01H00M00s00c.
Donc vous retrouvez la durée attendue de 1H.

Pour le reste,

Code :

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

nValentier = ((REQ_prodroute_anciennes_heures.TOTIME)*100)-((REQ_prodroute_anciennes_heures.FROMTIME)*100)

peut être optimisé en

Code :

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

nValentier = (REQ_prodroute_anciennes_heures.TOTIME - REQ_prodroute_anciennes_heures.FROMTIME)*100

C'est plus lisible et cela consomme moins de ressources puisque on n'effectue qu'une multiplication.


Vous devriez stocker la DateHeure de début et celle de fin (en 'bonne pratique', on ne stocke pas les résultats d'un calcul)
En terme d'occupation disque : 8 caractères (rubrique Date, rubrique Heure ou rubrique Date avec sélecteur DateHeure coché) au lieu de 4 a priori, ce qui ne représente rien du tout avec les capacités disque actuelles.

Avantage : Vos calculs ne devraient plus tenir compte de la bascule "minuit" puisque la date serait prise en considération et il n'y aurait plus besoin de reconvertir en durée ou en heure.
Votre calcul (il n'y en aurait plus que 1) ressemblerait à ceci :

Code :

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

1
2
3
4
5
6
7
8
Début, Fin sont des DateHeure
DuréeEnCentièmes est un entier //pour illustrer les propriétés du type Durée auxquelles je vous renvoyais
DuréeEnSecondes est un réel 
//la propriété ..EnSecondes attend un réel tandis que ..EmMillisecondes attend un entier 
Durée = Fin - Début
//Pour autant que vous ayez encore besoin des centièmes de seconde.
DuréeEnCentièmes = Durée..EmMillisecondes * 10 
DuréeEnSecondes = Durée..EnSecondes //qui pourrait être divisé par 100 pour les centièmes

Bon travail

Hemgé