[Vayrus]

Значения все таки получаются разные:

Код:

now + 120 / (24 * 60 * 60);now + 2 / 24

Так что же все таки правильно? Мне нужно универсальную функцию, которая позволяет прибавлять к текущей дате как время, так и часы, что то в этом духе:

Код:

function TForm1.NextWorkTime: TDateTime; 
begin
  Result := 0;
  case ComboBox1.ItemIndex of
    0:
      Result := now + 10 / (24 * 60 * 60);
    1:
      Result := now + 15 / (24 * 60 * 60);
    2:
      Result := now + 30 / (24 * 60 * 60);
    3:
      Result := now + 60 / (24 * 60 * 60);
    4:
      Result := now + 120 / (24 * 60 * 60);
    5:
      Result := now + 180 / (24 * 60 * 60);
  end;
end;