Imprimir Página - Fecha aleatoria entre dos fechas. delphi

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

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

Código:

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;

Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: OssoH en 4 Junio 2014, 18:48 pm