Discussion :

[eltond]

voila alor je fais mon projet et un moment donner je doi convertir des heures en secondes j'utilize pour cela le modulo mai il ne le reconait pas automatiquement comment faire pour quil le reconaise ses sur le delphi 2005 personal edition (je déteste programer mes pour passer il faut bien que je réusise cette matiére pffff lol )

[aityahia]

utilise plutot la fonction SecondOfTheHour de l'unité DateUtils

exp :
Var NbrSeconde : Integer;

Code :

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

1
2
 
NbrSeconde :=SecondOfTheHour (Time);

se code renvoie le nombre de seconde de heure en cours

[eltond]

Oui mes je me suis p-e mal exprimer (méme surment) ... un utilisateur introdui une heure dans des Edits et en suite ses heure sont transformer en secondes pour faire un calcul en suite une fois le calcule terminer je reprend le chiffre et je le converti en heure

En faite ses Heure darriver => introduire ... Heure de depart => introduire ..
calculer le temps de la prestation ... et pour reconvertir on a vu en cour le MOD mes bon il ne le me prend pas

(pour info rien de tro compliquer je ne suis que en premiére et je n'ai que 2h d'info par sem )

[Graffito]

Bonjour,

Comment sont éxprimées les heures en entrée (départ et arrivée)?
Sous forme hh:mm:ss (exemple : 12:36:00) ou (12,66666).

Faut-il le même format pour le temps de trajet ?

[tourlourou]

peut être faut-il déclarer Math dans les uses ?

[aityahia]

si je comprend bien tu voudra calculer le temps ecrouler entre deux valeur heur si c le cas je te propose
d'utilser des TdateTimepicker au lieu des edit pour éviter le formatage et d'utiliser la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
 
uses dateUtils;
Var  
 H,M,S:Word;
begin
H:=MinutesBetween(DateTimePicker1.Time,DateTimePicker2.Time) Div 60;
M:=MinutesBetween(DateTimePicker1.Time,DateTimePicker2.Time) Mod 60;
S:=0;
Edit1.tex := TimeToStr(EncodeTime(H,M,S));
end;

[eltond]

en faite pour le modulo il faut changer la variable , la faire passer de "STRING " en "INTEGER" pour sela nous utilision en classe une ligne de commande mes pour passer des "REAL" à des STRING" on utilisai
ex :
Tempsensec:=strtostring(...) ;

mes je ne sai pas les racouris pour les "INTEGER"
car e tape

INTtostring et il ne veu pas me lacepter :( terible machine qui ne répond pas a mes souhait lol

ha joubliai depui le debu merci a tous seux qui prenne le temp de rep à mes message

[tourlourou]

IntToStr prend un entier et fournit la chaîne correspondante

l'inverse est donc ... ??? StrToInt !!!! (l'investissement neuronal était minime, même si on déteste programmer, lol)

[eltond]

oui sauf que mes premiére variable sont des "REEL" et pour passer de "REEL" a "INTEGER" il faut la changer en "FLOAT" alor je mes cette ligne
=> tempint:=floattostr(strtoint(TempPrestsec ));
mes il me di opérateur non applicable a se type dopérende

les neurone en repréne un coup pffff... commen j'vé faire le jour de mon exam ... lol

[diam's]

Si je comprens bien, tu veux transformer un reel en integer ?

Alors pourquoi dans ton exemple convertis-tu une string en entier (StrToInt) pour ensuite convertir cette valeur (que tu semble assimiler à un reel) en chaine ? En gros, dans ton exemple, tu converti une chaine en nombre, pour ensuite reconvertir ce nombre en chaine... C'est que j'ai pas compris ou il y a quelque chose qui cloche ?

As-tu fait une recherche avec 'Transtypage' ?

d'autres part, te serait-il possible d'adopter un style d'écriture moins SMS et de faire attention avec l'orthographe ? Je ne dis pas ça pour être ronchon, mais c'est relativement dur à lire. Et quand un truc est dur à lire, il arrive qu'on ne le lise pas... (j'ai vu des profs mettre de très mauvaises notes pour ce genre de choses ...)

[aityahia]

tu peut toujour utilser la fonction Trunc pour récupérer la partie entière du réel

[eltond]

Alor voila j'ai demander a un bo frére il ma éxpliquer j'ai donc créer un prog ses pas top mes sa fonctione ik y a surement une ligne pour remplacer tous sa mes bon sa fonctione ainsi voila pour ceux que cela intéresse

tempstr:=floattostr(TempPrestsec) ;
tempint:=strtoint(tempstr) ;
ResteH:= tempint Div 3600 ;
Reste:=tempint MOD 3600 ;
ResteMin:=Reste DIV 60 ;
Restesec:=Reste MOD 60 ;
TempPrestation:=(inttostr(ResteH) +'H:'+inttostr(ResteMin)+':Min:'+inttostr(ResteSec)) ;

évidament il faut déclarer TempPrestsec en "REEL" tempstr en "STRING" tempint en "INTEGER" ResteH Reste ResteMin Restesec en "INTEGER" aussi
Désoler d'avoir embéter mon monde désoler pour les fautes d'hortographe
et finalement c'etai tous béte ... Mais comment on fait pour dire que le forum a été résolu ??? enfin our moi ces résolu ....lol

[diam's]

Pour le résolu, c'est tout bête aussi
--> il y a un bouton qui apparait dans le coin en bas à gauche de ton post si tu es 'connecté'. Cliques dessus, et ça mettra le tag [Résolu] en entête de ton post

PS : tu n'embêtes personne, mais si tu veux une réponse rapide et correcte, il faut écrire le plus correctement possible. Si tu veux qu'on fasse l'effort de te lire et de te répondre, je pense que tu peux faire l'effort d'écrire correctement (juste histoire de politesse). D'ailleurs, je suis sûr que beaucoup ne t'on pas donné de réponse car ton post était plutot dur à lire... Tu ne peux être pardonné que si le français n'est pas ta langue maternelle. Juste au cas où, je t'invite à (re)lire les règles du forum

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
 TempPrest: Float;
 TempInt, NbHeures, NbMinutes, NbSecondes, ResteSec : integer;
 TempPrestation: string;
begin
 TempPrest:=5876.5;
 ResteSec:=Trunc(TempPrest) ; // ou utiliser arrondi : fonction Round
 NbHeures:=ResteSec Div 3600 ; 
 ResteSec:=ResteSec Mod 3600 ; // ou Dec(ResteSec,3600*NbHeures);
 NbMinutes:=ResteSec DIV 60 ; 
 NbSecondes:=ResteSec MOD 60 ; 
 TempPrestation:=(inttostr(NbHeures) +'H:'+inttostr(NbMinutes)+':Min:'+inttostr(NbSecondes)) ; 
end;

peut-être plus clair ?
et qui évite le strtoint(floattostr())...