Denne artikkelen viser hvordan du kan oppdage hvor mange dager det er i en gitt month.procedure TForm1.Button1Click (Sender: TObject); Var MyDate: TDateTime; tmpStr: String; tmpInt: Integer; begynne MyDate: = Date () + 365 - (30 * 5); tmpStr: = FormatDateTime ('mmmm åååå', MyDate); tmpInt: = DaysInMonth (MyDate); ShowMessage (tmpStr + 'har' + IntToStr (tmpInt) + 'dager ...'); ende; funksjon TForm1.DaysInMonth (ADate: TDateTime): Integer; Var MyMonth, MyYear, MyDay: Word; MyDayTable: TDayTable; tmpBool: Boolean, begynner DecodeDate (ADate, MyYear, MyMonth, MyDay); tmpBool: = IsLeapYear (MyYear); MyDayTable: = MonthDays [tmpBool]; Resultat: = MyDayTable [MyMonth]; ende; Anmeldelser