Q&A

  • 초를 시간으로구하는 방법
데이타 가  1033초일때-> 10:40 구하는 방법은요?
3  COMMENTS
  • Profile
    송 시중 2005.06.07 21:05
    <!--CodeS-->
    Sec := 1033;

    ss := Sec mod 60;
    mm := Trunc( Sec / 60);
    hh := Trunc( Sec / 3600);
    dd := Trunc( Sec / 86400);

    ShowMessage(Format('%d데이 %d시간 %d분 %d초', [dd,hh,mm,ss]));
    <!--CodeE-->

  • Profile
    이준해 2005.06.07 03:12


    Use "EncodeTime" function in DateUtils.

    function EncodeTime(Hr, Min, Sec, MSec: Word): TDateTime
  • Profile
    장재영 2005.06.07 19:39


    1033 초일때 이렇게 사용하는건지요.

    procedure TForm1.Button1Click(Sender: TObject);
    var
      MyTime: TDateTime;
    begin
      MyTime := EncodeTime(0,0, 0, 1033);
      LblTime.Caption := TimeToStr(MyTime);

    end;