如何生成随机的日期函数

Question

请问各位大侠，DELPHI中如何生成随机的日期函数？？谢谢！

Answer 1

//Source
function RandDate(mStartDate, mEndDate: TDate): TDate;
var
  I: Integer;
begin
  I := Random(Trunc(mEndDate - mStartDate) + 1);
  Result := mStartDate + I;
end; { RandDate }//Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := DateToStr(RandDate(StrToDate('1999-1-1'), StrToDate('2000-1-1')));
end;

Answer 2

同意zswang(伴水清清)(专家门诊清洁工)
  Random(V)取 [1..V] 间的随机数
zswang的方法是取随机日期，不包含时间，
若要包含时间方法类似，Random()取小数

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var i:integer ;
begin
   Randomize;
   i:= Random(100);
   IncMonth(Date,i);
   Application.MessageBox(pchar(datetoStr(IncMonth(Date,i))),'',0);
end;

Answer 4

zswang(伴水清清)(专家门诊清洁工) 的代码比较好些，不过在程序开始的时候最好调用一下Randomize，否则会每次第一次都得到相同的日期！

Answer 5

redhf(农民的儿子) 说的对！！我以前就犯过这样的错误。