Zeitwert anzeigen

[TheBeer]

Guten Abend,

Ich hab da eine Frage, bestimmt schon 1000 mal gestellt, aber ich finde nichts was mir weiter bringt. -.-

Für den ein oder anderen bestimmt ganz einfach:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var a,b,t:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
 
t:=a/b;
 
Edit3.Text:=FlaotToStr(t);
 
end;   

Z.b. kommt bei Edit3.Text Folgende Dezimalzahl raus: 2,31454692743895

Wie bekomme ich die nun in einer Uhrzeit angegeben? habe schon fast alles was in google steht durch gelesen aber bin aus nichts schlau geworden. Möchte das gerne in hh:mm:ss angeben

Ich danke euch schon einmal für euern Aufwand.

[Komoluna]

Natürlich kommt da eine Dezimalzahl raus.
du ließt die Werte a und b aus.
schreibts dann in t den wert von a/b
und gibts das dann aus.

Was möchtest du denn haben? ne Uhrzeit und a und b sind Unixtime?

Gib uns doch mal ein paar Beispielwerte, was steht in Edit1 und 2 und was soll dann in Edit3 stehen?

MFG

Komoluna

[creed steiger]

da ist doch bestimmt etwas für dich dabei

http://www.freepascal.org/docs-html/rtl ... tines.html

[TheBeer]

Ok machen wir einmal ein anderes Beispiel aber danke erst einmal für die schnellen Antworten.


Eigentlich ist es ja egal welche Dezimalzahl raus kommt hauptsache es ist eine mit einer Kommastelle.

Machen wir einmal so: a=5, b=20


Dann müsste t=0,25 sein. So und das würde ich gerne in Stunden Minuten und Sekunden angezeigt haben ob nun gleich in Edit3 oder in ein Edit4 das erst einmal egal. Das sollte dann so aussehen: 00:15:00


danke nocheinmal für die schnelle Hilfe

Edit: zum Link muss ich sagen hab ich heut bestimmt 3h durch gelesen und ein paar versuche mit TimeToStr versucht aber immer kam ein Hinweis oder Fehler.

[Michl]

z.B:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  aTime: TDateTime;
begin
  aTime:=0.25 / 24;  //da es 24h/Tag sind
  Caption:=TimeToStr(aTime);
end;

[TheBeer]

Ah danke das funktioniert sehr sehr gut danke dir komisch so ähnlich sah mein einer Versuch auch aus wer weiß was ich falsch gemacht habe sitze schon 10h davor


danke für die Hilfe