random date

[erdogan]

Merhaba,

iki tarih arasından rast gele bir tarih seçmek istiyorum nasıl yapabilirim ?

Teşekkürler

[ARM]

(04-01-2023, Saat: 17:02)erdogan Adlı Kullanıcıdan Alıntı: Merhaba,

iki tarih arasından rast gele bir tarih seçmek istiyorum nasıl yapabilirim ?

Teşekkürler

uses
 System.Math;

function UNIXTimeToDateTimeX(UnixTime: Cardinal): TDateTime;
begin
 Result := (UnixTime / 86400) + 25569;
end;

function DateTimeToUNIXTimeX(DelphiTime : TDateTime): Cardinal;
begin
 Result := Round((DelphiTime - 25569) * 86400);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 d1, d2, d3: Cardinal;
begin
 d1 := DateTimeToUNIXTimeX(DateTimePicker1.DateTime);
 d2 := DateTimeToUNIXTimeX(DateTimePicker2.DateTime);
 d3 := RandomRange(d1, d2);

 DateTimePicker3.DateTime := UNIXTimeToDateTimeX(d3);
end;

[erdogan]

(04-01-2023, Saat: 17:57)ARM Adlı Kullanıcıdan Alıntı:

(04-01-2023, Saat: 17:02)erdogan Adlı Kullanıcıdan Alıntı: Merhaba,

iki tarih arasından rast gele bir tarih seçmek istiyorum nasıl yapabilirim ?

Teşekkürler

uses
 System.Math;

function UNIXTimeToDateTimeX(UnixTime: Cardinal): TDateTime;
begin
 Result := (UnixTime / 86400) + 25569;
end;

function DateTimeToUNIXTimeX(DelphiTime : TDateTime): Cardinal;
begin
 Result := Round((DelphiTime - 25569) * 86400);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 d1, d2, d3: Cardinal;
begin
 d1 := DateTimeToUNIXTimeX(DateTimePicker1.DateTime);
 d2 := DateTimeToUNIXTimeX(DateTimePicker2.DateTime);
 d3 := RandomRange(d1, d2);

 DateTimePicker3.DateTime := UNIXTimeToDateTimeX(d3);
end;

Çok teşekkür ederim.