Dieser Artikel veranschaulicht, wie viele Tage zu erkennen, gibt es in einem gegebenen Monat.
Prozedur TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
TmpStr: String;
TmpInt: Integer;
beginnen
MyDate: = Datum() + 365 - (30 * 5);
TmpStr: = FormatDateTime ('mmmm Yyyy', MyDate);
TmpInt: = DaysInMonth(MyDate);
ShowMessage (TmpStr 'hat' + IntToStr(tmpInt) + 'Tage...');
Ende;
Funktion TForm1.DaysInMonth(ADate:TDateTime):Integer;
var
MyMonth,
MyYear,
MyDay: Word;
MyDayTable: TDayTable;
TmpBool: Boolean;
beginnen
DecodeDate (CDatum, MyYear, MyMonth, MyDay);
TmpBool: = IsLeapYear(MyYear);
MyDayTable: = 25-Jan [TmpBool];
Ergebnis: = MyDayTable [MyMonth];
Ende;
Tage im Monat
Tage im Monat : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Dieser Artikel veranschaulicht, wie viele Tage zu erkennen, gibt es in einem gegebenen Monat.
Prozedur TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
TmpStr: String;
TmpInt: Integer;
beginnen
MyDate: = Datum() + 365 - (30 * 5);
TmpStr: = FormatDateTime ('mmmm Yyyy', MyDate);
TmpInt: = DaysInMonth(MyDate);
ShowMessage (TmpStr 'hat' + IntToStr(tmpInt) + 'Tage...');
Ende;
Funktion TForm1.DaysInMonth(ADate:TDateTime):Integer;
var
MyMonth,
MyYear,
MyDay: Word;
MyDayTable: TDayTable;
TmpBool: Boolean;
beginnen
DecodeDate (CDatum, MyYear, MyMonth, MyDay);
TmpBool: = IsLeapYear(MyYear);
MyDayTable: = 25-Jan [TmpBool];
Ergebnis: = MyDayTable [MyMonth];
Ende;