Q&A

  • [왕질문] 쿼리시간 도와주세요...
millisecond 을 계산해서

메모장에 뿌려줄려고 하는 자꾸 에러가 나네요...date 타입이 아니래나???



var s1, s2 : string;

z1 : TDATETime





s1 := formatdatetime('hh:nn:ss:zzz',now);

Query1Open;

s2 := formatdatetime('hh:nn:ss:zzz',now);

z1 := strtodatetime(s2) - strtodatetime(s1);



쿼리 시간을 알려고 한건데요...에러가 나요...



'' is not a valid date or time ------error message



도와주세용



그런데...이렇게 쿼리시간을 구해도 되는건가요....

2  COMMENTS
  • Profile
    데빠이 2001.10.13 21:42
    방법은 여러 가지가 있겠지만.. 아래를 참조하세요..



    procedure TForm1.Button1Click(Sender: TObject);

    var

    Ts1, Ts2 : Ttimestamp;

    T1, T2, T3 : LongInt ;

    i:integer;

    begin

    Ts1 := DateTimeToTimeStamp(now);

    // edit1.Text:=DateTimeTostr(now);



    Query1Open;



    Ts2 := DateTimeToTimeStamp(now);

    // edit2.Text:=DateTimeTostr(now);

    T1 := Ts1.Date * MSecsPerDay + (Ts1.Time) ;//(Ts1.Time div 1000) ;

    T2 := Ts2.Date * MSecsPerDay + (Ts2.Time) ;



    T3 := T2 - T1 ;



    ShowMessage('쿼리시간은?' + IntToStr(T3));



    end;



  • Profile
    우왕초보 2001.10.13 22:31
    감사합니다....