String oder Integer in Word umwandeln

[Amateurprofi]

Delphi-Quellcode:

PROCEDURE TMain.Test;
var y,m,d,daysinmonth:word;
begin
   DecodeDate(date,y,m,d);
   daysinmonth:=MonthDays[IsLeapYear(y), m];
end;