Millisecondes en secondesRésolu

Question

Salut tous,

Qui pourrais me donner un exemple de pour transformer 1000ms
en secondes ?

Peut on utiliser la fonction 'strtotimes' ?

jackripper

jlen100 · Accepted Answer

pour passer d'un real &#224; a un string il faut utiliser flaottostr()

 Edit3.Text:=floattostr(S);

bonne prog

japee · Answer

Salut,



Secondes := Millisecondes div 1000;

Millisecondes := Millisecondes mod 1000;




Bonne prog'

jlen100 · Answer

salut,

la fonction strtotimes ne te srea d'aucun secours puiqu'elle doit contenir une chaine au format HH:MM:SS 

si tu doit simplement convertir des ms en seconde il te suffit de faire:

S:real;     (temps en secondes)

M:int        (temps en ms)

S:=M/1000;

mais ce n'est peut pas ce que tu cherche?



bonne prog

jlen

jlen100 · Answer

salut,

precision suplementaire, si tu veux convertir tes Millisecondes
en format datetime tu doit utiliser la fonction EncodeTime apres avoir
converti tes millisecondes en heures,minutes,secondes,millisecondes

jackripper · Answer

Voici le code que j'aimerai transformer pour l'afficher en secondes dans l'Edit..Text sans interf&#233;rer sur &#233;tat 1 du trackbar qui lui doit rester entre 5 et 1000 voir plus.
Car pour l'instant il s'affiche en milliseconde d&#233;sol&#233;e de ne pas avoir mi le code de suite. Mais j'avais &#224; faire

procedure TForm1.Edit2Click(Sender: TObject);
var
 Tempo2 : string;
begin
  Tempo2 := '0';
  InputQuery('Proposez une valeur entre 0 et 1000', 'Valeur :', Tempo2);
  etat1 := StrToInt(Tempo2);
  TrackBar1.Position := etat1;
  Edit3.Text := Tempo2;
end;

Merci

jackripper · Answer

je suis sous delphi 2005.

jackripper · Answer

Merci mon Jlen

Millisecondes en secondes

7 réponses

Votre réponse