回 帖 发 新 帖 刷新版面

主题:请教一个毕业设计的问题

数据是通过datetimepicker输入的 数据类型datetime  怎么样计算datetimepicker两个组件的时间差  得出的结果是分钟 如果得出是一分多少秒  就按2分钟算 请哪个高手帮帮我实现这个代码

回复列表 (共3个回复)

沙发

MinutesBetween函数可能对你有帮助。

板凳


procedure TForm1.Button1Click(Sender: TObject);
var
    MBetween:integer;
begin
     MBetween:=minutesBetween(strtodatetime('2006-4-21 11:05:00'),strtodatetime('2006-4-21 11:10:00'));
     showmessage(inttostr(MBetween));
end;
请问这段代码哪里有问题啊

3 楼

代码没问题,估计是你没引用DateUtils单元!

我来回复

您尚未登录,请登录后再回复。点此登录或注册