【结贴】数据类型转换问题**

rzport_gongyu · 发表于 2008-9-17 08:28:58

我在数据集的DataChange事件上想实现几个字段的比较功能

即（2个时间日期型字段作差，取天数差） +一个字符型字段（一个天数） ≥另一个字符型字段（又一个天数）

请问这个用代码怎么转化实现

zfang · 发表于 2008-9-17 08:54:28

试试这个
if ((d2.Date-d1.Date) - StrToInt(eJ.Text)) > StrToInt(eB.Text) then
showmessage(FloatToStr(((d2.Date-d1.Date) - StrToInt(eJ.Text))));

lixy · 发表于 2008-9-17 08:56:37

http://bbs.justep.com/forum.php? ... ghlight=DaysBetween

atiger · 发表于 2008-9-17 09:04:24

（2个时间日期型字段作差，取天数差）这是一个数字或者整数型的，跟一个字符型字段（一个天数）不能直接相加，需要把字符型转换成整数，用函数sysUtils.strtoint，
当然后面的另一个字符型字段（又一个天数）也需要转换成整数，然后再进行比较

rzport_gongyu · 发表于 2008-9-17 09:05:27

if ((( Field.FieldName = 'jssj' )-( Field.FieldName = 'kssj' )) + StrToInt( Field.FieldName = 'ljxjts' )) > StrToInt( Field.FieldName = 'nxjts' ) then
平台上这么写吗？

rzport_gongyu · 发表于 2008-9-17 09:35:43

SysUtils.IntToStr(Business.System.DateUtils.DaysBetween(DataSetBroker1.DataSet.FieldByName('kssj').AsDateTime , DataSetBroker1.DataSet.FieldByName('jssj').AsDateTime)) + sysUtils.strtoint( DataSetBroker1.DataSet.FieldByName('lxxjts').AsString )) > sysUtils.strtoint( DataSetBroker1.DataSet.FieldByName('nxjts').AsString )

这样写吗给详细指点下吧

lixy · 发表于 2008-9-17 09:42:41

楼主的困惑是什么？测试有什么问题么？

zfang · 发表于 2008-9-17 09:45:06

6楼的代码能编译通过吗？
字符串+整型 > 整型？

rzport_gongyu · 发表于 2008-9-17 09:56:27

[警告] 循环引用: "Biz:\YWKJ_GY\QJ\NJ\NJSQGN.FUNC"-->"Biz:\YWKJ_GY\QJ\NJ\NJSQ1.Info"-->"Biz:\YWKJ_GY\QJ\NJ\NJSQ1.Info"
[错误]Biz:\YWKJ_GY\QJ\NJ\NJSQGN.FUNC.DIR\NJSQ.Form.pas(410, 261): "String" 和 "Int32" 类型不能进行 ">" 操作
编译出这个错误

zfang · 发表于 2008-9-17 09:58:53

警告暂时可以不管他
错误你就看提示，应该说的很清楚了。
"String" 和 "Int32" 类型不能进行 ">" 操作

		自动登录	找回密码
密码			立即注册