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
도와주세용
그런데...이렇게 쿼리시간을 구해도 되는건가요....
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;