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

最新推荐文章于 2019-09-24 18:29:09 发布

再创世纪

最新推荐文章于 2019-09-24 18:29:09 发布

阅读量864

点赞数

分类专栏：【Delphi界面相关】

本文链接：https://blog.csdn.net/ampeter/article/details/72909059

版权

【Delphi界面相关】专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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);