小编del*_*ive的帖子

我试图在delphi 5中生成给定范围内的随机Tdatetime值,假设我们有以下格式的两个日期

date1=01/01/2018 12:35:32 
date2=05/01/2018 21:35:32 

我希望在此范围之间生成exaclty"x"日期.作为一个例子,我想从范围date1-> date2生成7个日期

randomdate[0]:=01/01/2018 12:35:32 
randomdate[1]:=01/01/2018 14:35:12 
randomdate[2]:=01/01/2018 16:42:22 
randomdate[3]:=02/01/2018 21:12:01
randomdate[4]:=03/01/2018 11:13:12
randomdate[5]:=04/01/2018 22:20:05
randomdate[6]:=05/01/2018 20:30:05

问题是,如果第二个随机日期富含date2,则所有其他日期必须与date2相同,但如果时间到达23:59:59,则下一个日期将超出范围

像下面的那样

randomdate[0]:=01/01/2018 12:35:32 
randomdate[1]:=05/01/2018 23:59:59
.................................

!从现在开始的所有日期都将是

06/01/2018 23:59:59

超出我的范围!!

任何帮助将是欣赏它

在Andreas Suggestion之后是最终代码,他在D5上工作,所以我想在所有其他版本的delphi上工作

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure …