delphi中adocommand有关问题

delphi中adocommand问题
s2:='insert into user_analysis(user_name,web_site,scan_time, operate)';
s2:= s2+ 'values(:a1,:a2:a3,:a4)';
adocommand2.CommandText:=s2;
adocommand2.Parameters.ParamByName('a1').Value:=dblookupcombobox1.Text;
adocommand2.Parameters.ParamByName('a2').Value:=edit1.Text;
adocommand2.Parameters.ParamByName('a3').Value:=strtoint(MidStr(edit4.Text,1.2))*60+strtoint(MidStr(edit4.Text.4,5))-strtoint(MidStr(edit3.Text,1,2))*60-strtoint(MidStr(edit3.Text,4,5));



由于时间类型我设成了varchar类型，想插入scan_time(时间差 int类型)数据，a3数据插入错误，不知道什么情况了。。

就是说，之前两个edit中的时间数据，比如12：00，，，，13：45，这两个时间都是varchar类型，想要计算出时间差是几分钟
计算结果是int类型，插入到scan_time中，，高手赐教~！





[解决办法]
strtoint(MidStr(edit4.Text.4,5))------------4前面应该是逗号。
[解决办法]

Delphi(Pascal) code

folattostr(MinutesBetween(strtotime(edit1.text),strtotime(edit2.text)))[