您所在位置：主题：又来求助啦！关于浮点数整除的问题
sundaysweet
[专家分：0] 发布于 2010-10-11 13:30:00
我想做个小程序，涉及到两个日期，一个是首次付款日期；一个是当前日期。由于付款周期不定，不同的东西付款周期不一样，所以判断某项工程今年是否需要付款，我的思路是：
（当前年份-首次付款年份）/付款周期，如果可以整除就说明今年要付了，不可以整除，则不用付款，但是程序总是出错，错误是：[Error] FYJZXX.pas(675): Ordinal type required
部分程序如下：
var
temp2, temp3, temp8: real;
firsttimeyear : string;
begin
temp8 := temp3 - strtofloat(firsttimemonth); //temp3为当前年份，firsttimeyear首次年份
if (temp8 - [temp8/temp2]*temp2) = 0 then //今年要付，temp2为付款周期
本来我想把temp2, temp3, temp8定义为整数，但是可能是涉及到数据库，出错，改成浮点数就可以了，请问怎么判断浮点数整除的问题呢？
（当前年份-首次付款年份）/付款周期，如果可以整除就说明今年要付了，不可以整除，则不用付款，但是程序总是出错，错误是：[Error] FYJZXX.pas(675): Ordinal type required
部分程序如下：
var
temp2, temp3, temp8: real;
firsttimeyear : string;
begin
temp8 := temp3 - strtofloat(firsttimemonth); //temp3为当前年份，firsttimeyear首次年份
if (temp8 - [temp8/temp2]*temp2) = 0 then //今年要付，temp2为付款周期
本来我想把temp2, temp3, temp8定义为整数，但是可能是涉及到数据库，出错，改成浮点数就可以了，请问怎么判断浮点数整除的问题呢？