delphi 中计算两个日期的差值 ( 积分: 50 )

最近在写一个关于租赁的系统，现在遇到一个问题，请各位大虾帮忙解决一下~
在数据库里有关于物品到期日期的值 根据当前的日期
如何判断此用户是否到期 如果到期则在DBGRID 中以红色显示记录，否则以黑色显示
急~在线等

SQL语句，datediff
然后在DBGRID的ONDRAWCOLUMNS中写变色就行了。

給你寫個函數吧：
// 璸衡ㄢら戳?畉ぱ计
function CalcDiffDays(vlD1: TDateTime;
vlD2: TDateTime): Integer ;
Var
nlDays: Integer ;
clC1, clC2: String ;
{
??弧??璸衡ㄢ?ら戳?畉?ぱ计
肚?把计?vlD1, vlD2: ㄢ?ら戳?跑秖
肚?把计?nlDays: ぱ计?
猔種ㄆ兜?礚
}
begin
DatetimeToString( clC1,'yyyymmdd',vlD1);
DatetimeToString( clC2,'yyyymmdd',vlD2);
if clC1 >= clC2 then
begin
nlDays := 0 ;
while vlD1>vlD2+nlDays do
nlDays := nlDays + 1 ;
end
else
begin
nlDays := 0 ;
while vlD1+nlDays<vlD2 do
nlDays := nlDays + 1 ;
nlDays := -nlDays ;
end;
result := nlDays ;
end;

YearsBetween()
DaysBetween()
有这个现成函数...

用sql語句
year(物品日期)=year(getdate()) and month(物品日期)=month(getdate()) and
day(物品日期)=day(getdate())
滿足dbgrid顯示紅色即可

都可以用.你試試吧.

欢迎加入新起点群,群号(37792189),本群为DELPHI与SQL SERVER 为主,
当然群里也有其它方面的专业人员
如(asp.net(C#),java等),现在程序员都不只学一门语言的哈,
本群是以一门程序语言为主打,多种语言为基点学习的群.
本群主要功能:
1:积极的讨论各种技术;
2:让你能结交更多的朋友,学习到更多先进的技术;
3:在你无聊的时候,群里更可以什么都聊聊(但得注意素质);

为了提高群的人上线要求;如果你有Q币的话,希望能够为群做一些贡献,并有机会成为本群的管理员.