一个日期函数(100分)

honghe1 · 2001-07-13

我想要这样一个函数
function rq(srrq:tdatetime;ts:word):tdatetime;
比如输入1999-12-30和2，将返回2000-1-1

liaotw · 2001-07-13

Function rq(srrq:TDateTime;ts:Word):TDateTime
begin
Result:=srrq+ts;
end;
这样应该可以了吧！

乌龙茶 · 2001-07-13

result:=srrq+ts;

sundart · 2001-07-13

function rq(srrq:tdatetime;ts:word):tdatetime;
begin
result := srrq + ts;
end;

许凌风 · 2001-07-13

delphi下日期是可以和数字相加减的，+1就是加一天，+2就是加二天。。。。

如果要加一小时，倒是稍微费事点，可以+1/24

慕容乾坤 · 2001-07-13

这么多人都答了，我来晚了。
我同意大家的。

lanchong · 2001-07-13

我又长知识了！

photodelphi · 2001-07-13

大家平分吧

honghe1 · 2001-07-18

谢谢各位了，我不知道日期可以和int相加减

danliyou · 2002-03-28

知道了,散分吧.

keepyea · 2002-03-28

这个函数也不错！！
不过，要在DELPHI6里面。
DATEUTILS里面有很多有用的关于时间和日期的函数！
function IncDay(const AValue: TDateTime
const ANumberOfDays: Integer = 1): TDateTime;