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

[himitsu]

Du weißt aber, daß dein GetDaysInMonth nicht ganz richtig rechnet? (vorallem für die Jahre 1800, 1900, 2100, 2200 uvm.)
Aber wie man das Schaltjahr wichtig berechnet .... dafür gibt es Wiki und massit Tutorials.

Zitat:

bedeutet der aktuelle monat wird ausgelesen und wenn er 31 tage hat wird eine andere berechnung durchgeführt als wenn er 30 hat.

Wäre es nicht besser, wenn du die Monatslänge "dynamisch" in die Formel einbaust,
oder willst du noch zwei weitere Berechnungen für 29 und 28 Tage baseln?


Einige hilfreiche Funktionen:

Delphi-Quellcode:

function IsLeapYear(Year: Word): Boolean;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;

IsLeapYear DaysInMonth DaysInAMonth ...


PS: Ich würde dir empfehlen besser Result zu verwenden, anstatt den Funktionsnamen.
Das macht IMHO den Code besser lesbar und fehlerunanfälliger.

Delphi-Quellcode:

function GetDaysInMonth(Month,Year:Integer):integer;
begin
  Result:=0;
  case Month of
    1: Result:=31;
    2: if Year mod 4=0 then Result:=29 else Result:=28;
    3: Result:=31;
    ...

[Dejan Vu]

Zitat von himitsu:

Ich würde dir empfehlen besser Result zu verwenden, anstatt den Funktionsnamen.
Das macht IMHO den Code besser lesbar und fehlerunanfälliger.

Welche Fehler können denn auftreten (Compilerfehler beim Umbenennen der Funktion mal außen vor)?

[mkinzler]

Oder man rechnet mit Bankenmonaten (jeder Monat 30 Tage)

[Dejan Vu]

Da müsste man wohl einige Vorgesetzte und Kollegen überzeugen, eine bisherige Praxis über Bord zu werfen. Ob das praktikabel ist?

[Jumpy]

Zitat von rhodan:

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..

Ich hätte jetzt gedacht am 15. des Monats ist es egal wie lang der Monat ist?

[Sir Rufo]

Müsste man nicht eher die verbleibenden Umsatztage nehmen?
Also sowas wie Sonn- und Feiertage raus? Oder ist das für einen Webshop, der ständig offen hat?

[himitsu]

Zitat von Dejan Vu:

Welche Fehler können denn auftreten (Compilerfehler beim Umbenennen der Funktion mal außen vor)?

Wieso nicht?
Das ist doch ein guter Grund.

Delphi-Quellcode:

function Test(...): Integer;
begin
  ...
  Test := Test + 1;  // schon kommt man in eine Zwickmühle und wenn Test keine Parameter besitzt, dann arbeitet der Code falsch und landet womöglich in einer Endlosschleife.
end;

Und bei Result sieht man überall einheitlich, wo man dem "Result" etwas zuweist
und man erkennt Rekursionen nicht so schön einfach.

[mkinzler]

Die Endlosschleife wird aber sehr schnell durch einen Stacküberlauf abgebrochen

[himitsu]

In einem Win64-Programm kann man den Stack bestimmt ausreichend groß machen, damit es nicht so schnell geht.

Nja, aber man muß es ja auch nicht erst so weit kommen lassen.