String oder Integer in Word umwandeln

[shmia]

Du brauchst die procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);!

Delphi-Quellcode:

var 
   Year, Month, Day: Word;
  days_of_month:integer; 
begin
   DecodeDate(SysUtils.Date,Year, Month, Day);
  days_of_month := DaysInAMonth(year,month);