TBool CompareDateTime(TInt ayear,TInt amonth,TInt aday)
{
TTime CurrtTime;
CurrtTime.HomeTime(); //当前时间
TDateTime aDateTime;
aDateTime.Set ( ayear, TMonth(amonth), aday, 0, 0, 0, 0);
//用参数构建一个时间
TTime BarTime(aDateTime);
TTimeIntervalDays dayval =7;
BarTime +=(dayval);
//给构建的时间加7天.
if (CurrtTime >BarTime)
{
return ETrue;
}
return EFalse;
}
阅读(572) | 评论(0) | 转发(0) |