function PlusDate(NowDate: String; Plus: Integer): TDate; begin Result := StrToDate(NowDate) + Plus; end;———————————————————————————————————— 宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。 ————————————————————————————————————
用SELECT DATEADD(day, 21, '2003-8-22') AS timeframe
begin
Result := StrToDate(NowDate) + Plus;
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————