請問各位大師~
小弟想把時間內的分相減
IF 大於10分鐘而去做下一段程式碼
if _Sdate = _Ndate AND (strtoint((MinuteOf(strtodatetime(_Ntime)))-(MinuteOf(strtodatetime(_stime)))) > 10 ) then
可是程式一直顯示錯誤
請各位大師幫幫忙~~

http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=97788

供參考~


===================引 用 faswei 文 章===================
請問各位大師~
小弟想把時間內的分相減
IF 大於10分鐘而去做下一段程式碼
?if _Sdate = _Ndate AND (strtoint((MinuteOf(strtodatetime(_Ntime)))-(MinuteOf(strtodatetime(_stime)))) > 10 ) then
可是程式一直顯示錯誤
請各位大師幫幫忙~~

您好,

沒有很仔細看您的邏輯, 單從語法看來, 問題可能是 :
1. if _Sdate = _Ndate AND (strtoint((MinuteOf(strtodatetime(_Ntime)))-(MinuteOf(strtodatetime(_stime)))) > 10 ) then
他會先做 _Ndate AND (strtoint((MinuteOf(strtodatetime(_Ntime)))-(MinuteOf(strtodatetime(_stime)))) > 10 ) 再和 _Sdate 比
(請注意, and 也是一種運算)
型態可能不一樣, 所以如果其他都對, 應改成
if ) AND (strtoint((MinuteOf(strtodatetime(_Ntime)))-(MinuteOf(strtodatetime(_stime)))) > 10 ) then

2. 兩個 minuteof 相減 應已是數字, 不會再用 strtoint 轉成數字
所以可能要改成
if (_Sdate = _Ndate) AND (MinuteOf(strtodatetime(_Ntime))-MinuteOf(strtodatetime(_stime)) > 10 ) then
請自行算一下 ( ) 是否成對

邏輯的部份 若 _Ntime = 11:01 _stime = 10:49
您只取分的部份相減 變成 1-49 得 -48 和實際上 12 會 > 10 的結果不同
請再想一下


還有

程式一直顯示錯誤

這句話提供的 debug 訊息為 0
請將顯示什麼錯誤(就是 error message 啦) 直接寫出來會比較有效率

===================引 用 faswei 文 章===================
請問各位大師~
小弟想把時間內的分相減
IF 大於10分鐘而去做下一段程式碼
if _Sdate = _Ndate AND (strtoint((MinuteOf(strtodatetime(_Ntime)))-(MinuteOf(strtodatetime(_stime)))) > 10 ) then
可是程式一直顯示錯誤
請各位大師幫幫忙~~

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

編譯過了~~原來是AND再作祟~~少一個掛號
我會加Strtoint 是因為一開始編譯它顯示錯誤[Error] Unit1.pas(349): Incompatible types: 'String' and 'Integer';
現在懂了~~謝謝