Discussion :

[looping]

bonjour,

est ce que c'est possible de faire un random entre 2 dates ?

c'est pour tirer aléatoire une date pour faire une SGBD fictive

merci

[Aka Guymelef]

Plusieurs façon de faire, cela dépend du niveau d'aléatoire.

Par exemple, si tu veux choisir un jour au hasard tu calcule la différence de jour entre les deux dates, tu choisis un chiffre compris entre 0 et cette différence puis tu fais un IncDay sur ta première date du nombre de jour aléatoirement choisi.

[Cl@udius]

Salut

Quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
function RandomDate(FromDate, ToDate: TDate): TDate;
begin
  Assert(FromDate < ToDate);
  Result := FromDate + Random(Trunc(ToDate) - Trunc(FromDate));
end;

@+ Claudius

[looping]

ca fonctionne et en plus je decouvre un nouveau truc : assert

merci

[Cl@udius]

Re,

J'ai ajouté cette ligne avec assert, juste pour faire remarquer que result était cohérent si FromDate < ToDate.
Sache que cette ligne peut être ignorée à la compilation en utilisant la directive de compilation {$C-}.

@+ Claudius