Sono contenute in SysUtils
codice:var today : TDateTime; begin today := Now; ShowMessage('Oggi è '+DateToStr(today)); ShowMessage('Sono le ore '+TimeToStr(today)); end;
Sono contenute in SysUtils
codice:var today : TDateTime; begin today := Now; ShowMessage('Oggi è '+DateToStr(today)); ShowMessage('Sono le ore '+TimeToStr(today)); end;