【Delphi在一个范围内获取随机时间】

uses math; ... procedure TForm1.Button2Click(Sender: TObject); var d1,d2,r1,r2:double; a:tdatetime; d:tdatetime; begin d1:=encodedate(1999,1,1); d2:=encodedate(2000,1,1); randomize; r1:=random(floor(d2)-floor(d1)); randomize; r2:=random; d:=d1+r1+r2; edit1.Text:=formatdatetime('YYYY-MM-DD HH:NN:SS.zzz',d); ... procedure TForm1.Button2Click(Sender: TObject); var d1,d2,r1,r2:double; a:tdatetime; d:tdatetime; begin d1:=encodedate(1999,1,1); d2:=encodedate(2000,1,1); randomize; r1:=random(floor(d2)-floor(d1)); randomize; r2:=random; d:=d1+r1+r2; edit1.Text:=formatdatetime('YYYY-MM-DD HH:NN:SS.zzz',d); end;