Noch ne kleine Ergänzung, da ich was Langeweile habe:
Delphi-Quellcode:
Label1.Caption := InttoStr(DaysBetween(today, EndOfTheYear(today)));
Label2.Caption := InttoStr(DaysInMonth(StrtoDate('1.2.2020')));
Label3.Caption := InttoStr(DaysInAMonth(2020,2));
Welche Lösung du für die Anzahl Tage in einem Monat nimmst, kommt darauf an, wie du das eingeben willst. Welcehr Wochentag das sit, wolltest du ja nicht wissen?