Fecha aleatoria entre dos fechas. delphi

[OssoH]

Hola :
¿Alguien sabe en Delphi como hacer que dadas dos fechas,  el sistema obtenga una fecha aleatoria que la contenga y que ademas sea válida?


Gracias

[OssoH]

Ya lo consegui!!
Pongo la solución por si a alguien le sirve.

Código [Seleccionar] Expandir


procedure TForm1.Button2Click(Sender: TObject);
var
   fechadesde:TDateTime;
   fechahasta:TDateTime;
   diferencia:integer;
   aleatorio:integer;
begin
   fechadesde := EncodeDate(2014, 06, 04);
   fechahasta := EncodeDate(2014, 07, 10);

   diferencia:= Trunc(fechahasta-fechadesde); // la diferencia en dias
   aleatorio:= RandomRange(0,diferencia);  // uses Math

   fechadesde:=fechadesde+aleatorio;
   Edit6.Text:= formatdatetime('dd/mm/yyyy hh:mm:ss', fechadesde);
end;