DaysInaMonth problem

[rhodan]

hi..

ich möchte eine berechnung durchführen..WENN bis zum 15. des monats 40% des monatsziels erreicht sind gibt es provision. das klappt auch wunderbar...ich hab nur probleme damit anzuzeigen wieviel euro pro tag noch zu erreichen sind..die formeln stehen soweit, ich habe nur das problem das jeder zweite monat 30 bzw. 31 tage hat..insofern versuche ich diesen teil der formel gerade anzupassen und scheitere..

quasi sowas..

Code:

 if DaysinaMonth(now) = 31 then
 DO THIS
    else
DO THAT;

bedeutet der aktuelle monat wird ausgelesen und wenn er 31 tage hat wird eine andere berechnung durchgeführt als wenn er 30 hat.
ich habe auch schon gegoogelt und ganze functionen zur berechnung gefunden wie

Code:

function GetDaysInMonth(Month,Year:Integer):integer;
begin
GetDaysInMonth:=0;
case Month of
1: GetDaysInMonth:=31;
2: if Year mod 4=0 then GetDaysInMonth:=29 else GetDaysinMonth:=28;
3: GetDaysInMonth:=31;
4: GetDaysInMonth:=30;
5: GetDaysInMonth:=31;
6: GetDaysInMonth:=30;
7: GetDaysInMonth:=31;
8: GetDaysInMonth:=31;
9: GetDaysInMonth:=30;
10: GetDaysInMonth:=31;
11: GetDaysInMonth:=30;
12: GetDaysInMonth:=31;

ich frage mich nur ob es auch leichter geht ohne eigene function..quasi..lies das aktuelle jahr+ monat aus..

danke