Voici la méthode de mon chef:
copy (DateTimeToStr(Now),7,4)+
copy (DateTimeToStr(Now),4,2)+copy (DateTimeToStr(Now),1,2)+copy (DateTimeToStr(Now),12,2)+
copy (DateTimeToStr(Now),15,2)+copy (DateTimeToStr(Now),18,2)
Je lui ai dit que FormatDateTime irait surement mieux