Fonction Optimiser(Invariant, NulAbsorbant) AjouterMilliemes(M : Nul Ou Entier) Retourner Nul Ou Date;
Si M est Nul, alors le résultat est Nul.
Principal
/*******/
Variable
/******/
D : Date;
Debut
...
D=Date("1-2-3 4:5:6:7");
D=D.AjouterMilliemes(2);
/* Ajoute deux milliemmes de secondes, donc les milliemes deviennent 9. */
...
Fin Principal
- | - | - | - | - | - | - | - | - |