Генерация случайных дат из диапазона, как реализовать?

[antoha73]

Вопрос таков: есть необходимость выдергивать случайную дату из диапазона между 02.01.2006 и 01.01.2009, как это можно реализовать?

[W0LF]

Ну вот я написал на основе RandomRange из модуля Math

uses
  Math;

function RandomDate(aYear, bYear: integer): string;
var
  Day, Month, Year: string;
begin
  Randomize;
  Day:=IntToStr(RandomRange(1,12));
  if StrToInt(Day) < 10 then
    Day:='0'+Day;
  Month:=IntToStr(RandomRange(1,12));
  if StrToInt(Month) < 10 then
    Month:='0'+Month;
  Year:=IntToStr(RandomRange(aYear,bYear));
  Result:=Day+'.'+Month+'.'+Year;
end;

P.S.: хотя не, не то... оно только выдает дату из деапозона лет...

[Serge_Bliznykov]

var dt1, dt2, dtRandom : TDateTime;
  Diapazon : integer;
begin
  Randomize;
  dt1 := EncodeDate(2006, 01, 02);
  dt2 := EncodeDate(2009, 01, 01);
  Diapazon := trunc(dt2) - trunc(dt1) + 1;
  dtRandom := dt1 + random(Diapazon);

  button1.Caption := DateToStr(dtRandom);

[Alex Cones]

Поясните, пожалуйста, почему "+1"?

[antoha73]

Всем большое спасибо, помогли, все работает.

[Serge_Bliznykov]

Поясните, пожалуйста, почему "+1"?

дело в том, что random(X) возвращает целое число от нуля до X-1
так чтобы получить случайную дату, которая может быть равна как первой дате, так и последней, для этого диапазон и увеличиваем на единичку...

поясню на примере (в принципе - это классика. )
нужно получить случайное число от [a .. b] (b > a)
это делается так:
a + random(b - a + 1)
подставьте любые числа и убедитесь, что формула работает.

[Alex Cones]

дело в том

Понял, благодарю. Начиаю впадать в маразм

[Utkin]

Сообщение от Alex Cones

Понял, благодарю. Начиаю впадать в маразм

ОФФТОП: Тот же случай как и SetLength - где от нуля, где от единицы .