var Present:TDateTime; Year,Month,Day,Hour,Min,Sec,MSec:Word; begin Present:=Now; DecodeDate(Present,Year,Month,Day); DecodeTime(Present,Hour,Min,Sec,MSec); Label1.Caption :='Nous sommes aujourd''hui le '+IntToStr(Day)+'/'+IntToStr(Month)+' de l''année '+IntToStr(Year); Label2.Caption :='Il est '+IntToStr(Hour)+' heures et '+IntToStr(Min)+' minutes';
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question