PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → formater chaine en heure
formater chaine en heure
Débuté par Sophie, 30 mai 2006 12:31 - 6 réponses
Posté le 30 mai 2006 - 12:31
Bonjour tlm

J'ai une heure au format chaine que je recupere dans un fichier et que je veux mettre au format heure

ex "12:42:56" -> HHMMSS

Comment faire car il n'existe pas la fonction ChaineVersHeure() alors que HeureVersCahine() existe ?

Merci
Posté le 30 mai 2006 - 12:51
Fonction ChaineVersHeure(ch)
sValRetour est une chaine
sValRetour = ch[[1à2]]+ch[[4à5]]+ch[[7à8]]
Si HeureValide(sValRetour) Alors
RENVOYER sValRetour
Fin
RENVOYER ""
Posté le 30 mai 2006 - 12:54
Sert toi des propriétes heures,minute, seconde
monheure est une heure
machaine="12:42:56"
monheure..heure=val(gauche(machaine,2))
monheure..minute=val(milieu(machaine,4,2))
monheure..seconde=val(droite(machaine,2))

--
Meilleures salutations

Brigitte Moinot - Viti's
Posté le 30 mai 2006 - 13:02
Excellent

Merci pour la rapidité
Posté le 30 mai 2006 - 13:04
Bonjour,

tu peux faire comme cela :

sHeure est une chaine ="124256"

HeureVersChaine(sHeure,"HH:MM:SS")
//cela te donnera 12:42:56

ou avec un champs de saisie invisible
saisie=sHeure //avec comme valeur retournee dans la description HH:MM:SS

Bonne continuation et bon dev.

Chris Letellier.
Posté le 30 mai 2006 - 14:18
ou remplace(Monheure,":","")

Sophie a formulé la demande :

Bonjour tlm

J'ai une heure au format chaine que je recupere dans un fichier et que je
veux mettre au format heure

ex "12:42:56" -> HHMMSS

Comment faire car il n'existe pas la fonction ChaineVersHeure() alors que
HeureVersCahine() existe ?

Merci


--
Pierre BOUSQUET

" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "
Membre enregistré
3 messages
Posté le 03 juin 2014 - 15:49
Pour ma part je pense que la procédure est assez simple. Peut-être que PCSOFT n'a pas trouvé utile de la créer comme fonction.
On peut donc la créer en tant que procédure globale par exemple.

PROCEDURE ChaineVersDateHeure(SendTime est une chaîne)
// FORMAT DE LA CHAINE SendTime "JJ/MM/AAAA HH:MM:SS"
dhDateHeureEnvoi est une DateHeure
dhDateHeureEnvoi..Année=Milieu(SendTime,7,4)
dhDateHeureEnvoi..Mois=Milieu(SendTime,4,2)
dhDateHeureEnvoi..Jour=Gauche(SendTime,2)
dhDateHeureEnvoi..Heure=Milieu(SendTime,12,2)
dhDateHeureEnvoi..Minute=Milieu(SendTime,15,2)
dhDateHeureEnvoi..Seconde=Droite(SendTime,2)

RENVOYER dhDateHeureEnvoi


Il est bien sure possible d'y apporter toutes les retouches nécessaires (gérer plusieurs formats de date, gérer les heures, etc.)

--
PRACTICE MAKES PERFECT !