zufallszeit generieren

[himitsu]

Kurz und Knapp:
r := Random * (rHigh - rLow) + rLow [add]

Delphi-Quellcode:

function RandomDouble(loDouble, hiDouble: Double): Double; 
begin
  if loDouble > hiDouble then
       Result := Random * (loDouble - hiDouble) + hiDouble
  else Result := Random * (hiDouble - loDouble) + loDouble;
end;

[add2]
wobei es doch mathematisch egal sein sollte und demnach das reichen dürfe

Delphi-Quellcode:

function RandomDouble(loDouble, hiDouble: Double): Double; 
begin
  Result := Random * (hiDouble - loDouble) + loDouble;
end;

also ob von der Größten abgezogen würde oder zur Kleinen dazuadiert ... müßte auf's Selbe Gleiche rauskommen .

[add3]
also nicht das selbe Rechenergebnis, aber der selbe Zahlenbereich und da das Ergebnis eh "Zufall" ist, ist es ja egal, ob da was anderes bei rauskommt

[add4]
für
loDouble <= Result < hiDouble