, en dit artikel demonstrates hoe aan de opsporing van hoeveel dagen er in een gegeven month., procedure, TForm1.Button1Click (Sender: TObject), var;,,,,, MyDate: TDateTime; tmpStr: touw;,, tmpInt: het gehele getal;,,, ", MyDate: = date (+ 365 - (30*5);,, tmpStr: = FormatDateTime ('mmmm yyyy', MyDate);,, tmpInt: = DaysInMonth (MyDate);,, ShowMessage (tmpStr +" is "+ IntToStr (tmpInt) +" dagen... "); einde;,,,,, en TForm1.DaysInMonth (ADate:TDateTime): het gehele getal;, MyMonth var,,,,,,,, MyYear, MyDay: woord;,, MyDayTable: TDayTable;,,, ik tmpBool: booleaanse;,,, DecodeDate (ADate, MyYear, MyMonth, MyDay);,, tmpBool: = IsLeapYear (MyYear);,, MyDayTable: = MonthDays[tmpBool];,,, de mymonth: = mydaytable [];,, een einde te maken aan de;,