var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(ComboBox1-ComboBox2, Hour, Min, Sec, MSec);
end;
这是代码,但它一直出错?
答案 0 :(得分:8)
DecodeTime
需要一个TDateTime
变量。 ComboBox1
和ComboBox2
是组件。使用TDateTimePicker
及其DateTime属性。 (如果更适合,可能是Time
属性。)
要计算两次之间的小时数,请使用DateUtils.HoursBetween代替DecodeTime
。
hourDiff := HoursBetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime);