PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 2024
→
ChaineVersDuree avec une heure supérieure à 100
ChaineVersDuree avec une heure supérieure à 100
Started by GuillaumeCRC, Jul., 22 2024 10:39 AM - 2 replies
Connect yourself…
GuillaumeCRC
#1
Registered member
42 messages
Popularité : +2 (2 votes)
Posted on July, 22 2024 - 10:39 AM
Bonjour,
Je rencontre un problème avec la procédure "ChaineVersDurée" de WinDev.
J'y passe la chaine "106h45", mais elle me retourne une durée de 6h45 avec le forma "HHhMM", si je met "JHHhMM" il me retourne 1 jour et 6h 45.
Y a t-il un moyen d'avoir une durée de plusieurs centaines d'heures ? Sachant qu'il fait tout seul la converssion heures en jour pour la durée (99h me donne 4 jour et des patates)
Merci.
Report
0
0
Jean-Pierre
#2
Registered member
2,004 messages
Popularité : +53 (65 votes)
Posted on July, 22 2024 - 11:42 AM
Bonjour Guillaume,
Vous voulez des minutes en format Date-Heure et des heures en format décimal...
Utilisez des variables de type Durée et faites la conversion par formule :
par exemple avec une division ou en passant par ChaîneVersDurée() puis ExtraitChaîneEntre()
--
Bon dev,
Jean-Pierre
Message modified, July, 22 2024 - 11:42 AM
Report
0
0
GuillaumeCRC
#3
Registered member
42 messages
Popularité : +2 (2 votes)
Posted on July, 22 2024 - 2:37 PM
Merci pour votre retour, j'ai écrit une fonction surchargée de chaine vers durée pour gérer mon cas.
si ça peut intéresser du monde :
Procedure
G_ChaîneVersDurée
(
PAR_Chaine
est une chaîne
) :
Durée
v
Retour
est une
Durée
//Le format envoyé doit être sous la forme HHhMM.
v
NbJour
est une chaîne
=
Val
(
(
Gauche
(
PAR_Chaine
,
(
Position
(
PAR_Chaine
,
"h"
)
-
1
)
)
)
) /
24
v
NbMinute
est une chaîne
= (
Droite
(
PAR_Chaine
,
Taille
(
PAR_Chaine
) - (
Position
(
PAR_Chaine
,
"h"
)
)
)
)
v
NbHeure
est une chaîne
=
Arrondi
(
Val
(
"0."
+
(
Droite
(
v
NbJour
,
Taille
(
v
NbJour
)
-
(
Position
(
v
NbJour
,
"."
)
)
)
)
)
*
24
)
v
NbJour
= (
Gauche
(
v
NbJour
,
(
Position
(
v
NbJour
,
"."
)
-
1
)
)
)
v
Retour.Jour
=
v
NbJour
v
Retour.Heure
=
v
NbHeure
v
Retour.Minute
=
v
NbMinute
RENVOYER
v
Retour
Report
0
0
→ Go back to WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (earlier versions)
WEBDEV (earlier versions)
WINDEV Mobile (earlier versions)
Reports & Queries
Off-topic
Tools
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text