Saisie de l'heure
Fermé
firas scofield
Messages postés
14
Date d'inscription
dimanche 30 mars 2014
Statut
Membre
Dernière intervention
5 novembre 2016
-
Modifié par firas scofield le 23/04/2014 à 08:53
Profil bloqué - 23 avril 2014 à 12:58
Profil bloqué - 23 avril 2014 à 12:58
A voir également:
- Saisie de l'heure
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Changer police heure iphone - Guide
- Test de recrutement opérateur de saisie ✓ - Forum Études / Formation High-Tech
- 1go internet = combien d'heure ✓ - Forum Internet / Réseaux sociaux
- Convertir heure en centième excel ✓ - Forum Excel
1 réponse
Salut
Si tu déclares :
L'instruction :
HH non déclaré, ainsi on pense que le compilateur est assez doué de comprendre ce qu'on souhaite, ce qui n'est pas le cas.
Meme si on peut par un traitement spécifique décomposer une telle chaine, extraire les valeurs, nous nous voyons enfin de compte obligé d' encoder les valeurs pour former une valeure TDateTime valide, un tel choix est couteux et inutile.
Voici une solution plus au moins optimisée :
Si tu déclares :
var Heure : String;Si l'utilisateur entre la chaine : 23:19:59
L'instruction :
ReadLn(HH, MM, SS);renvoie l'erreur : Identificateur
HH non déclaré, ainsi on pense que le compilateur est assez doué de comprendre ce qu'on souhaite, ce qui n'est pas le cas.
Meme si on peut par un traitement spécifique décomposer une telle chaine, extraire les valeurs, nous nous voyons enfin de compte obligé d' encoder les valeurs pour former une valeure TDateTime valide, un tel choix est couteux et inutile.
Voici une solution plus au moins optimisée :
program Former_Heure;
var HH, MM, SS : Word;
Time : TDateTime;
begin
{ Attention, les valeurs saisies sont supposées
dans les limites de la formation des nombres sexagésimaux }
Write('Heure : 0 .. 23 : ');
ReadLn(HH);
Write('Minutes : 0 .. 59 : ');
ReadLn(MM);
Write('Secondes : 0 .. 59 : ');
ReadLn(SS);
Time := EncodeTime(HH, MM, SS, 00);
WriteLn;
WriteLn('L''heure saisie est : ', TimeToStr(Time));
ReadLn;
{ TODO -oUser -cConsole Main : placez le code ici }
end.