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:

Zitat von himitsu (Beitrag 1261428)

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:

Zitat von rhodan (Beitrag 1261426)

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:

Zitat von Dejan Vu (Beitrag 1261431)

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

Wieso nicht?
Das ist doch ein guter Grund. :stupid:

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

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

[mkinzler]

Habs getestet, egal ob 32Bit oder 64Bit die Verzögerung ist nicht erkennbar!

[rhodan]

das ist für nen wellnessclub, wir haben 7 tage die woche offen :(

[himitsu]

Delphi-Quellcode:

{$MAXSTACKSIZE 2147483647}

'ne halbe Sekunde hat das bestimmt gedauert (für

Delphi-Quellcode:

{$MAXSTACKSIZE 547483647}

)

Berechnung für den 15.

Delphi-Quellcode:

Juhu := AktuellErreichterMonatsumsatz / 15 * TageDesAktuellenMonats >= SollUmsatz * 40%

Delphi-Quellcode:

Juhu := ErreichterMonatsumsatzAm15ten / 15 * TageDesAktuellenMonats >= SollUmsatz * 40%

Delphi-Quellcode:

wenn AktuellerTagDesMonats <= 15 dann
   FehltNoch := (SollUmsatz * 40%) - (AktuellErreichterMonatsumsatz / AktuellerTagDesMonats * TageDesAktuellenMonats)  
sonst
   k.A.

Von mir aus auch noch

Delphi-Quellcode:

FehltNochProTag := FehltNoch / (15 - AktuellerTagDesMonats + 1)

, für die nögigen Umsätze.
Gelten die 40% am Anfang des 15., oder bis zum Ende des 15.? (wenn Anfang, dann das

Delphi-Quellcode:

+ 1

weg lassen)


DayOf

[rhodan]

danke allen. wirklich auf den grünen zweig bin ich noch nicht gekommen..

@himitsu

danke, die formeln habe ich generell schon alle, gerechnet werden soll inklusive des 15. ich hab mir jetzt überlegt das ganz anders zu lösen wenn ich nachher zuhause bin:

ich lese den aktuellen tag aus, sagen wir es ist der 4. des monats..dann wird dieser wert (4) einfach von einem vorher festgelegten int mit dem wert 15 abgezogen. durch diesen integer kann dann der umsatz der noch erzielt werden muss um eine provisionsgrenze zu erreichen, geteilt werden..

ziemlich noobie aber ich denke das müsste klappen ;D ?!:lol: