Генерация даты в заданном промежутке

[zver777]

Здравствуйте!
Мне надо генерировать рандомно дату из заданного промежутка. Например выбрать случайным образом дату из промежутка
12-3-2008 и 21-5-2010. Сначал думал просто randomom генерировать день, месяц и год. Но не могу придумать как согласовать, чтобы дата потом не выходила за заданный промежуток.
Спасибо за помощь.

[Grag]

Генерируй год, потом месяц, затем дату месяца (в зависимости от месяца выбирай диапазон функции Random(Range)+1.) +1 для исключения 0. В зависимости от года (високосный или нет) выбирай соответствующий Range для февраля... Год генерируешь рандомно пока не окажешься в нужном диапазоне in [2008..2010], ну и так далее по аналогии...

[zver777]

Не всё так просто.
Если промежуток такой 12-5-2008 и 21-2-2010, то как генерировать месяц?
Я пока не нашёл другог решения как использовать кучу ifов

[Serge_Bliznykov]

а поиском почему не пользуетесь?!!

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

[Marsel737]

var
  strYear: string;
  strMounth: string;
  strDay: string;
  strDate: string;
begin
  Randomize;
  strYear := StrToInt(Random(2) + 2008);
  strMounth := StrToInt(Random(11) + 1);
  if IntToStr(strYear) = 2012 and IntToStr(strMounth) = 2 then
  begin
    strDay := IntToStr(Random(20) + 1);
  end;
  if IntToStr(strYear) = 2008 and IntToStr(strMounth) = 5 then
  begin
    strDay := IntToStr(Random(18) + 12);
  end else
    strDay := IntToStr(Random(30) + 1);
  strDate := 'Дата': strDay + '.' + strMounth + '.' + strDay;
end;

Но нуно ещё добавить проверку на количество дней, в зависимости от месяца.

[evg_m]

есть две даты
расчитать количество дней между датами (есть готовые функции F1 date/time routines)
получить случайное число в рассчитанном диапазоне
добавить к первой дате полученное число

d1:=d1+random(DaysBetween(d1,d2));

[Serge_Bliznykov]

evg_m, дата d2 никогда не будет попадать в диапазон, надо +1 внутри вызова random()
но по сути, абсолютно согласен с Вашим решением.

Сообщение от Serge_Bliznykov

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

у меня такое впечатление, что мой пост никто не заметил..
ладно, тогда продублирую код прямо здесь:

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);