zahl in Uhrzeit darstellen

[Cr3at0r]

Also ichhabe das "Truunc()" mal mit eingebauut nunr anderer fehler, ier der code mit dem fehler:

Delphi-Quellcode:

function SecToStr (sec: Int64): string;

var

  DT : TDateTime;

begin
  DT := sec / (60 * 60 * 24);

  Result := IntToStr(Trunc(DT)) + ' Tage';
end;


procedure TForm1.Button1Click(Sender: TObject);
var
prodiri, prodhol, prodo2, wk, hol, o2, iri, bbt: real;
iri2, hol2, o22, iri3, hol3, o23: real;
iritag, holtag, o2tag: real;
iristd, holstd, o2std: real;
iriv, irib, holv, holb, o2v, o2b: real;
irig: string;

begin
prodiri := strtofloat(edit1.Text);
prodhol := strtofloat(edit4.text);
prodo2 :=  strtofloat(edit5.text);
bbt := strtofloat(edit2.text);
wk := strtofloat(edit3.text);

iri := (10 * (1 + (Power(prodiri,1.9))));
hol := (10 * (1 + (Power(prodhol,1.8))));
o2 := (10 * (Power(prodo2,2)));

iri2 := iri * (Power(1 + 5/100, bbt));
hol2 := hol * (Power(1 + 5/100, bbt));
o22 := o2 * (Power(1 + 5/100,wk) * (20/70));


label1.Caption := floattostr(iri2);
label2.Caption := floattostr(hol2);
label4.Caption := floattostr(o22);

iritag := iri2 * 24;
holtag := hol2 * 24;
o2tag := o22 * 24;

label10.caption := floattostr(iritag);
label11.caption := floattostr(holtag);
label12.caption := floattostr(o2tag);

iristd := strtofloat(edit6.text) * iri2;
holstd := strtofloat(edit6.text) * hol2;
o2std := strtofloat(edit6.text) * o22;

label19.Caption := floattostr(iristd);
label20.Caption := floattostr(holstd);
label21.Caption := floattostr(o2std);

iriv := strtofloat(edit7.text);
irib := strtofloat(edit8.text);
holv := strtofloat(edit9.text);
holb := strtofloat(edit10.text);
o2v := strtofloat(edit11.text);
o2b := strtofloat(edit12.text);

irig := floattostr((irib - iriv) / iri2);

label51.caption := SectoStr(Trunc(irig));


end;

und in der zeile:
label51.caption := SectoStr(Trunc(irig)); Kommt folgender Fehler:
"[Fehler] ets_res_prod2.pas(174): E2008 Inkompatible Typen"

[DennisHB]

logisch wenn du

irig: string;

benutzt, mach daraus wieder

irig: real;

und

irig := (irib - iriv) / iri2;

dann solltes laufen

[Cr3at0r]

jaaa also so weit geht es *freu*

Nun das nächste problem und zwar wie mach ich aus der Tagesanzeige eine Stunden Anzeige?

[DennisHB]

Wenn du viel mit dem TDateTime rum spielst lohnt sich ein Blick in die Unit DateUtils

[Cr3at0r]

hmm hab da ein wneig durch geblättert aber trotzdemkomm ich damit net vie weiter...

denn ich möchte ja eine solche anzeige 00:00:00

[Michael Habbe]

Hallo,

blätter mal ein wenig in der Hilfe nach dem Stichwort "Datum/Zeit (Routinen)".

[Cr3at0r]

Noch kann mir die delphi hilf enet richtig helfen deshalb hab ich ma hier geshcaut:
http://www.dsdt.info/tipps/?id=142

Nur da frag ich mich wie ich das einbaue, wie mach ich das denn?

[Michael Habbe]

Zitat von Cr3at0r:

Noch kann mir die delphi hilf enet richtig helfen deshalb hab ich ma hier geshcaut:
http://www.dsdt.info/tipps/?id=142

Nur da frag ich mich wie ich das einbaue, wie mach ich das denn?

Hallo Creator,

ich (wir) weiss (wissen) leider nicht, was Du mit diesem Programm vorhast. Aber so langsam lässt mich Deine ganze Fragerei vermuten, dass es nur irgendeine Schul-/Studien-/Praktikumsabeit sein wird.

Es ist nicht schlimm, wenn man als Anfänger viele Fragen hat, aber nachdem Du hier soviele (mehr oder weniger ) gute Antworten bekommen hast, bist Du nun auch mal selbst am Zuge, Dich mal ein wenig in die Grundthematik einzuarbeiten, die Hinweise, wo Du schauen kannst, sind ja schon genannt worden....

Als da wären: Datentypen und Variablen, Prozeduren, Funktionen, generelle Funktionen zum umwandeln von Typen

Gewiss findest Du nicht alle Antworten in der OH, aber manche Sachen solltest Du vielleicht erstmal da nachlesen.

Ich weiss nicht, was Du von der Delphi-Hilfe erwartest, aber wenn die Dir "enet richtig helfen" kann, dann werden Dir wahrscheinlich die Antworten, die hier genannt werden, auch nicht viel weiterhelfen.

mfg
Michael

[Cr3at0r]

hmmm dann ich das vielleicht falsch rüber gekommmen, ich beschäftige mich zur zeit selbst damit ohne für irgendwas.

Tut mir auch leid wenn ich zuviel frage.