Q&A

  • 시간 간격의 값을 구하려면?
예를 들어 10시50분10초와
11시02분20초간의 시간차를 알고 싶은데
어떤 팁이 있을까요?
초단위도 좋고 분단위도 좋거든요
atime을 string로 '105010'으로하고
btime을 string값 '110220'으로 저장한후
atime와 btime간의 차이를
integer값으로 구해지는 것을 원합니다
잘 아시는분 도움 부탇드립니다
이 게시물을
3  COMMENTS
  • Profile
    이중철 • 2002.04.29 08:55
    MilliSecondsBetween
    SecondsBetween
    이 두 function이 밑에분이 만든 함수와 같은겁니다.
    그럼 허접답변 ㅋㅋ..

  • Profile
    이준해 • 2002.04.27 03:29

    시간을 Integer 값으로 구한다..
    초단위로요 ? 아니면 Milli-second 단위로요 ?

    // 초로 구하기
    function ElapsedSec(fromDateTime, toDateTime: TDateTime): Int64;
    var
      h, m, s, ms: Word;
    begin
       DecodeTime(toDateTime - fromDateTime, h, m, s, ms);
       result := (h * 60 + m) * 60 + s;
    end;


    // 1/1000 초로 구하기
    function ElapsedMSec(fromDateTime, toDateTime: TDateTime): Int64;
    var
      h, m, s, ms: Word;
    begin
       DecodeTime(toDateTime - fromDateTime, h, m, s, ms);
       result := ((h * 60 + m) * 60 + s) * 1000 + ms;
    end;

    Have a good day.
    이준해


  • Profile
    이재봉 • 2002.04.27 00:51
    전역변수로
    var
      BeforeTime, AfterTime :TDateTime;


    procedure TForm1.Button1Click(Sender: TObject);
    var
      T :Integer;
    begin
      BeforeTime := now;
      Edit1.Text := TimeToStr(BeforeTime);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      AfterTime := now;
      Edit2.Text := TimeToStr(AfterTime);
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    var
      ComputeTime :TDateTime;
    begin
      ComputeTime := (BeforeTime - AfterTime);
      Edit3.Text := TimeToStr(ComputeTime);
    end;

    대충 이런식으로 작업 하시고 추가로 약간 수정하시면
    원하는 값을 얻을수 있겠네요.....

    허접답변이었슴다. 항상 즐프하세용.
←First Page
1039 1040 1041 1042 1043 1044 1045 1046 1047 1048
Last Page→
한델 로그인 하기