Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   DaysInaMonth problem (https://www.delphipraxis.net/180645-daysinamonth-problem.html)

rhodan 5. Jun 2014 02:14

DaysInaMonth problem
 
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 5. Jun 2014 04:40

AW: DaysInaMonth problem
 
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;
Delphi-Referenz durchsuchenIsLeapYear Delphi-Referenz durchsuchenDaysInMonth Delphi-Referenz durchsuchenDaysInAMonth ...


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 5. Jun 2014 07:36

AW: DaysInaMonth problem
 
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 5. Jun 2014 07:51

AW: DaysInaMonth problem
 
Oder man rechnet mit Bankenmonaten (jeder Monat 30 Tage)

Dejan Vu 5. Jun 2014 08:09

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

Jumpy 5. Jun 2014 08:47

AW: DaysInaMonth problem
 
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 5. Jun 2014 08:52

AW: DaysInaMonth problem
 
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 5. Jun 2014 09:04

AW: DaysInaMonth problem
 
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 5. Jun 2014 11:31

AW: DaysInaMonth problem
 
Die Endlosschleife wird aber sehr schnell durch einen Stacküberlauf abgebrochen ;)

himitsu 5. Jun 2014 12:12

AW: DaysInaMonth problem
 
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 5. Jun 2014 12:18

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

rhodan 5. Jun 2014 13:11

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

himitsu 5. Jun 2014 14:08

AW: DaysInaMonth problem
 
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)


Delphi-Referenz durchsuchenDayOf

rhodan 5. Jun 2014 22:09

AW: DaysInaMonth problem
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz