sekunder til tid

ja....
2 sek

skal lige finde noget kode

function SecToStr(const i_Secs: LongInt): string;
var
  H: Integer;
  M: Integer;
  S: Integer;
begin
  h := (i_Secs div 60) div 60 mod 60;
  m := (i_Secs div 60) mod 60;
  s := i_Secs mod 60;
  Result := Format('%2.2d:%2.2d:%2.2d', (.H, M, S.)) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
k : real;
begin
k := StrToFloat(Edit1.Text);
FTid := StrToInt(FloatToStr(k*3600));
Label1.Caption := SecToStr(FTid);
end;

ups

du skal lige tilføjge FTid : Integer i puplic

har lige opdaget en anden bøf... du skal også lige fjerne (k*3600) der skal KUN stå (k)


og det var så et svar

har lige rettet den så den er rigtig:


type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
puplic
FTid : Integer;
    { Public declarations }


function SecToStr(const i_Secs: LongInt): string;
var
  H,M,S: Integer;
begin
  h := (i_Secs div 60) div 60 mod 60;
  m := (i_Secs div 60) mod 60;
  s := i_Secs mod 60;
  Result := Format('%2.2d:%2.2d:%2.2d', (.H, M, S.)) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
k : real;
begin
k := StrToFloat(Edit1.Text);
FTid := StrToInt(FloatToStr(k));
Label1.Caption := SecToStr(FTid);
end;

Der findes en indbygget funktion du kan bruge:

var
  Dt : TDateTime;
begin
  Dt := IncSecond(0,antal_sekunder);
  // så har du det hele i en alm. TdateTime
end;

du skal lige tilføje DateUtils til uses...

doc404 -> med din løsning så kan man max få 23:59:59, så hvis du indtaster mere end 85399 sekunder så starter den bare forfra.