delphi 对金额double类型向上取整，保留小数位

最新推荐文章于 2024-06-13 11:33:49 发布
最新推荐文章于 2024-06-13 11:33:49 发布
阅读量1.8k 收藏
点赞数
分类专栏： delphi 文章标签： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yifanbbs/article/details/105550790
版权

delphi 对金额double类型向上取整，保留小数位

//新保留小数位，只要后面有多余的数据，则进位

function NewRoundTo(value: Double; ws: Integer): Double;
var iLen: Integer;
    E: Extended;
begin
  iLen:=StrToInt('1'+stringOfChar('0', ws));
  E:=StrToFloat(FloatToStr(value));
  Result:=Ceil(E * iLen) / iLen;
end;

如：3.085，4.612等取2位小数得到：3.09和4.62

意帆
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi取整函数
05-06 279
floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123ce...
升级版四舍五入可以自定义保留小数位
08-08
不同于银行家算法，真正做到四舍五入，符合中国人的使用习惯，并且可自定义保留小数的位数。并且能够对参数值做错误判断。
格式化数字金额，每三位加逗号
最新发布
平平无奇小码农的博客
06-13 285
格式化金额，例如把数字 98765432 格式化为：￥987,654.32。￥符号可以换成别的，也可以去掉。
delphi的取整函数round、trunc、ceil和floor
笨笨的专栏
05-13 1089
 1.Round（四舍六入五留双）功能说明：对一个实数进行四舍五入。(按照银行家算法) 例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end;在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五时按四
delphi 保留小数点的个位数方法
qin_yaping的博客
09-03 7506
uses math RoundTo(0.2668,-2)=0.27
delphi format 保留5位小数保留_openpyxl修改单元格格式（隐藏小数、设定百分数位数）...
weixin_34036075的博客
12-21 557
修改单元格格式(隐藏小数、设定百分数位数)from openpyxl.styles import colorsfrom openpyxl.styles import Font, Color,PatternFillfrom openpyxl.styles import colors from openpyxl import load_workbookfrom openpyxl.styles impo...
test_round.rar_delphi中round_round_保留小数_函数
09-20
在Delphi中，还有其他函数可以帮助我们处理小数，比如`Trunc`函数用于去掉数字的小数部分，`Ceiling`函数用于向上取整，`Floor`函数用于向下取整。这些函数在处理数字时各有其用途，但都不直接支持保留指定位数的...
Delphi 枚举类型操作 Demo
02-25
演示如何操作Delphi 的枚举类型。 1. 包含源代码； 2. 包含执行程序 3. 演示如下函数如何使用：GetEnumName、GetEnumProp、GetEnumValue、SetEnumProp 4. 非常简单，一看就会。
【delphi_文章】delphi的取整函数round、trunc、ceil和floor.doc
03-15
Round 函数是 Delphi 中最常用的取整函数，它对一个实数进行四舍五入处理。 Round 函数的实现遵循银行家算法，也就是说，当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，...
Delphi格式化数字金额
05-11
摘要:Delphi源码,字符处理,字符格式化 ...Delphi格式化数字金额的源码，把金额统一化显示，使用format来实现，例子简单，源码完整，可用Delphi7直接编译的，有需要使用的可参考下。 运行环境：Windows/Delphi7
Delphi学习手记——取整函数的用法
永不放弃
10-07 3488
Delphi取整函数的用法 Delphi 取整函数有四个：floor、ceil、trunc、round floor 和 ceil  : use math trunc 和 round : use system  用法说明： floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123 trunc 直接切
关于数据库中浮点运算、保留小数和时间计算
aa663388的博客
08-21 453
关于小数： 1、SQL数据表中使用numeric字段时（一定要注明小数位数），程序中使用：ADOQuery1.FieldByName('price').Value := RoundEx((ADOQuery1.FieldByName('price').AsFloat + strtofloat(Edit1.text)) * 1000) / 1000;或者ADOQuery1.F...
Delphi中取某整数的某位的位状态的小函数
红树林的专栏
08-02 687
type    TPosRange=0..32;       TStateResult=0..1; function GetBitSate(Source:Integer;Pos:TPosRange):TStateResult; begin    Result:=((Source and (1 shl Pos))shr Pos); end;
Delphi 的按位运算详解
05-16 2096
Delphi 的按位运算符共有六个: not and or xor shr shl; 其中的 not and or xor 也叫逻辑运算符, 其实功能都是一样的, 因为不管什么数据追到底都是 0 和 1 的组合; 在 Delphi 内嵌汇编中, 应该也没什么区别(内嵌汇编还在学习中, 不太熟). 测试下面的例子时, 可以用这里的方法: http://www.cnblogs.com/del/ar
FloatToStr问题 保留小数位
热门推荐
yunqian09的专栏_delphi
03-01 1万+
如何使一个字符串23.89023482在使用FloatToStr变为23.90?   有什么规则吗？是不是小数后第2位四舍五入？     FormatFloat(0.0,   f)   +   0  用下面这个函数要好的多：     FloatToStrF(23.89023482,ffnumber,12
Delphi 中关于Double类型精度以及使用Ceil和Trunc取整引发的问题
TheRedFox的博客
04-29 1377
在最近的工作中，遇到一个BUG，本应是1200的一个变量，结果却变成了1199，找了一会，发现是由于Double的存储引起的。 问题简化如下： var d: Double; begin try d := 1.2; Writeln(Trunc(d * 1000)); Readln; except on E: Exception do Wr...
delphi保留两位小数
04-06
可以使用 FormatFloat 函数来保留两位小数，示例代码如下： ```delphi var num: Double; str: string; begin num := 123.456; str := FormatFloat('#0.00', num); ShowMessage(str); // 显示 123.46 end; ``` 其中，'#0.00' 是格式字符串，表示保留两位小数。可以根据需要修改格式字符串来调整保留的小数位数和格式。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值