Discussion :

[pibull]

Bonjour,
Je souhaite convertir un quantième de la forme AAQQQ en date.
donc le 14058 donne le 27/02/2014.
Existe-t-il une fonction qui fait cela ?
Merci.

[tourlourou]

Je ne sais pas si ça existe tout fait, mais une boucle sur le nombre de jours par mois avec exploitation de IsLeapYear pour le 29/02 éventuel doit se coder en moins de temps qu'il n'en faut pour rechercher une solution toute faite

[SergioMaster]

Je souhaite convertir un quantième de la forme AAQQQ en date.
Existe-t-il une fonction qui fait cela ?

Bonjour,

Je ne pense pas qu'une telle fonction existe , mais elle est relativement simple à coder

Code :

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

1
2
3
4
function convertir(Quantieme : Integer) : TDateTime;
begin
result:=EncodeDate(2000+quantieme div 1000,1,1)+(Quantieme mod 1000)-1;
end;

[pibull]

Merci beaucoup. Parfait