delphi datetime问题

答案:2 悬赏:10 手机版

解决时间 2021-05-12 21:11

提问者网友：凉末
2021-05-11 20:20

M_Take_Start_Date.Date 和M_Take_End_Date.Date 进行比较为什么代码执行到第一步就提示请选择正确时间'.我想不明白

M_Take_Start_Date.Date 是2010-8-11 M_Take_End_Date.Date是2010-8-11

代码如下

if(M_Take_Start_Date.Date > M_Take_End_Date.Date ) then
                begin
                        Application.MessageBox('请选择正确时间','提示',MB_OK);
                        abort;
                end
                else if(M_Take_Start_Date.Date = M_Take_End_Date.Date ) then
                begin
                        if(M_Take_Start_Time.Time >= M_Take_End_Time.Time ) then
                        begin
                                Application.MessageBox('请选择正确时间','提示',MB_OK);
                                abort;
                        end
                        else
                        begin
                                V_Sql := 'insert into Take_Medicine_Rule values(Medicine_ID_Seq.currval,'''+V_Rule_Seq+''','''+V_Take_Start_Time+''','''+
                                                                                        V_Take_End_Time+''','''+V_Add_HP_Value+''','''+V_Valid_Flag+''','''+V_Note+''')';

end;
end

最佳答案

五星知识达人网友：野慌
2021-05-11 20:34

if(M_Take_Start_Time.Time >= M_Take_End_Time.Time ) then
    begin
    Application.MessageBox('请选择正确时间','提示',MB_OK);
    abort;
    end
你2个提示都是一样的,我想你的代码应该是触发了这个,自己改下提示看看

全部回答

1楼网友：摆渡翁
2021-05-11 20:47

ShowMessage( DateTimeToStr(M_Take_Start_Date));

ShowMessage( DateTimeToStr(M_Take_End_Date));

你就明白了, .date里包含有time

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息