2016年11月7日

delphi 四舍五入保留一位或两位小数，1位小数2位小数四舍五入写法，后面参数为保留小数点位数

摘要： delphi 四舍五入保留一位或两位小数写法，后面参数为保留小数点位数function RoundFloat(f: double; i: integer): double; var s: string; ef: Extended; begin if f = 0 then begin Result : 阅读全文

posted @ 2016-11-07 11:11 那里的天空 阅读(10086) 评论(0) 推荐(0) 编辑

delphi 计算l两个日期的时间间隔月数，月数差

摘要： 此种方法计算月份差不准，比如2017-2-1 到 2016-10-2 ，还是用StrToInt() 转化月为整形后再相减计算 use DateUtils; Edit1.Text:=intToStr(MonthsBetween(StrToDateTime('2012-10-2'),StrToDateT 阅读全文

posted @ 2016-11-07 08:18 那里的天空 阅读(3161) 评论(0) 推荐(0) 编辑

delphi 如何判断两个时间日期间隔 是否为整月？

摘要： 2016-07-01~~2016-07-31 整月 2016-08-05~~2016-08-31 非整月 2016-09-12~~2016-09-30 非整月 2016-02-01~~2016-02-26 非整月 就是这个意思，如何搞？ 注意要USES DateUtils单元； procedure  阅读全文

posted @ 2016-11-07 07:38 那里的天空 阅读(1144) 评论(0) 推荐(0) 编辑

导航