var myYear, myMonth, myDay, myHour, myMin, mySec, myMilli : Word; begin DecodeDateTime(Now, myYear, myMonth, myDay, myHour, myMin, mySec, myMilli); ShowMessage('Année = '+IntToStr(myYear)); ShowMessage('Mois = '+IntToStr(myMonth)); ShowMessage('Jour = '+IntToStr(myDay)); ShowMessage('Heure = '+IntToStr(myHour)); ShowMessage('Minutes = '+IntToStr(myMin)); ShowMessage('Secondes = '+IntToStr(mySec)); ShowMessage('Millisecondes = '+IntToStr(myMilli)); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question