delphi7 如何使double类型只保留两位小数

yifengqing 2017-06-23 12:29:38

最近遇到一个价格计算的，从数据库里查出来的数据我赋值给了string类型，用strtofloat后不是只有两位的小数，但是单价是两位的，数据库存储时也是两位的，求大神指点指点，怎么才能使获取的出来的数据变成两位小数double类型。。。。。

...全文

1701 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

doloopcn 2017-07-04

打赏
举报

这个问题关键点在于数据库字段的类型。如果是MSSQL，一定要设置字段的类型为固定的NUMERICA，如'0.00'字样的，不然你转来转去，结果在数据库中都是科学记数法。设置好字段后，DELPHI赋值上去的什么DOUBLE，FLOAT就会自动被数据库四舍五入----你不想四舍五入的话就用TRUNC(你的数值*100)/100

hongss 2017-06-23

打赏
举报

dbl_Value = StrToFloat( FormatFloat(‘0.00‘’’, dbl_Value) );

这样转换出来的double型数据就是两位小数的模式，可以在程序中两位小数显示，而不会出现四舍五入等相差0.01的情况出现。但是保存的时候，就像楼上说的，双精度型的格式是固定的，无法改变。

lyhoo163 2017-06-23

打赏
举报

Double，格式（精度）是固定，不能改变。显示时只能通过字符串形式，实现2位小数。

lyhoo163 2017-06-23

打赏
举报

var S:string;
begin
  S:=Format('%.2f',[StrToFloat(FieldByName('单价').asString)]);
end;

/* 表达式计算 */ /* 调用方式：CalcExp('1+max(0.5,sin(1))+sum(1,2^3,mod(5,3))', res, infoStr) */ /* 带符号参数调用方法,先调用符号定义AddSignParam，再调用 CalcExp： */ /* AddSignParam(['a','s'], [1, 0.5]); 或者 AddSignParam('a=1,s=0.5') */ /* CalcExp('1+a+sin(s)', res, infoStr) */ /* 其中res存储计算结果，为double型；infoStr存储计算时的提示信息,为string */ 表达式计算器 V2.3 支持以下功能: 1、四则运算 + - * / 、括弧()、正负(+ -) 2、百分数 %、求幂 ^ 、整数阶乘 ! (1 至 150) 3、参数符号计算，示例：a+b @@a=1,b=2 结算结果为3 用@@表示表达式中定义符号的值 4、常数e、圆周率PI 5、丰富的函数功能: 统计函数： max,min,sum,avg,stddev 标准偏差，均支持多参数三角函数: sin,cos,tan,arcsin,arccos,arctan degrad(60) 角度转弧度 raddeg(3.14) 弧度转角度 costh(a,b,c) 余弦定理 cosC) 指数对数函数：sqrt,power(x,y),abs,exp,log2,log10,logN(a,N),ln 数据处理函数：int(x),trunc(x) 取整 frac(x) 取小数部分 round(x) 四舍五入取整 roundto(x,-1) 保留一位小数 mod(M,N) 求模几何面积函数：s_tria(a,b,c) 三角形面积 s_circ(r) 圆形面积 s_elli(a,b) 椭圆面积 s_rect(a,b) 矩形面积 s_poly(a,n) 正多边形面积平面几何函数：pdisplanes(x1,y1,x2,y2) 平面两点距离 pdisspace(x1,y1,z1,x2,y2,z2) 空间两点 p_line(x0,y0, A, B, C) 平面点到线距离 p_planes(x0,y0,z0 A, B, C, D)空间点到面距离数列求和: sn(a1, d, n) 等差数列前n项和 sqn(a1, q, n) 等比数列前n项和个税计算函数：intax(x), arcintax(x) 个税反算 6 、历史计算记录，双击计算记录可重新修改计算示例: sin(1)+(-2+(3-4))*20% , e^63+PI , 15! , log2(max(2,3)) 注: 运算符必须为半角格式，三角函为弧度，输入可用空格间隔

SQL语法大全 SQL语法大全 1. ASP与Access数据库连接： 2. ASP与SQL数据库连接：建立记录集对象： set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2 3. SQL常用命令使用方法： (1) 数据记录筛选： sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 like \'%字段值%\' order by 字段名 [desc]" sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 in (\'值1\',\'值2\',\'值3\')" sql="select * from 数据表 where 字段名 between 值1 and 值2" (2) 更新数据记录： sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" (3) 删除数据记录： sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) (4) 添加数据记录： sql="insert into 数据表 (字段1,字段2,字段3 …) values (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) (5) 数据记录统计函数： AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加引用以上函数的方法： sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql) 用 rs("别名") 获取统的计值，其它函数运用同上。 (5) 数据表的建立和删除： CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例：CREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE 数据表名称 (永久性删除一个数据表) 4. 记录集对象的方法： rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesize=N 设置每页为N条记录 rs.pagecount 根据 pagesize 的设置返回总页数 rs.recordcount 返回记录总数 rs.bof

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

在彩票行业许多年，这次对于竞彩玩法的计奖，让我很是头疼。Delphi中double类型的四舍五入总是出问题，小数点后1－4，6－9都没有问题，就是.5时总出现不进位的问题。 round函数用的是银行家算法，不好使。 roundTo也不好使。什么Format呀， r

其实string与double、int的互转有一些函数可以直接用，例如: //doule转string string str1 = to_string(3.14); //int转string string str2 = to_string(4); //string转int int x= atoi(str2.c_str()); //string转double double y = stof(str1.c_str()); 但是不满足我想顺便四舍五入保留小数位的需求，所以自己写了两个函数。

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章