数据库更新问题 高手帮忙！！在线等！！

Question

adocommand1.CommandText:='update 读者罚金 set 实收金额=cast('''+edit4.Text+''' as money),是否交款=1 where 罚款编号='''+dbgrid1.Fields[0].Text+'''';
　　　　　出错的地方是　set 实收金额=cast('''+edit4.Text+''' as money),　　请问一下，把edit4.Text的值（是小数形式的）转换成货币的格式要怎么写代码？？？

Answer 1

使用RoundTo(1.234, -2)函数,反正人民币总是2位小数
或者直接数据控制组件直接输入

Answer 2

用   实收金额='strtocurr(edit4.text)' 试试

Answer 3

使用RoundTo( StrToFloat(edit4.Text), -2)

Answer 4

错误提示：　　ROUNDTO 函数未定义