![]() |
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:
bedeutet der aktuelle monat wird ausgelesen und wenn er 31 tage hat wird eine andere berechnung durchgeführt als wenn er 30 hat.
if DaysinaMonth(now) = 31 then
DO THIS else DO THAT; ich habe auch schon gegoogelt und ganze functionen zur berechnung gefunden wie
Code:
ich frage mich nur ob es auch leichter geht ohne eigene function..quasi..lies das aktuelle jahr+ monat aus..
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; danke |
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:
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; ![]() ![]() ![]() 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; ... |
AW: DaysInaMonth problem
Zitat:
|
AW: DaysInaMonth problem
Oder man rechnet mit Bankenmonaten (jeder Monat 30 Tage)
|
AW: DaysInaMonth problem
Da müsste man wohl einige Vorgesetzte und Kollegen überzeugen, eine bisherige Praxis über Bord zu werfen. Ob das praktikabel ist?
|
AW: DaysInaMonth problem
Zitat:
|
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? |
AW: DaysInaMonth problem
Zitat:
Das ist doch ein guter Grund. :stupid:
Delphi-Quellcode:
Und bei Result sieht man überall einheitlich, wo man dem "Result" etwas zuweist
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 man erkennt Rekursionen nicht so schön einfach. |
AW: DaysInaMonth problem
Die Endlosschleife wird aber sehr schnell durch einen Stacküberlauf abgebrochen ;)
|
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: |
AW: DaysInaMonth problem
Habs getestet, egal ob 32Bit oder 64Bit die Verzögerung ist nicht erkennbar!
|
AW: DaysInaMonth problem
das ist für nen wellnessclub, wir haben 7 tage die woche offen :(
|
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:
Von mir aus auch noch
wenn AktuellerTagDesMonats <= 15 dann
FehltNoch := (SollUmsatz * 40%) - (AktuellErreichterMonatsumsatz / AktuellerTagDesMonats * TageDesAktuellenMonats) sonst k.A.
Delphi-Quellcode:
, für die nögigen Umsätze.
FehltNochProTag := FehltNoch / (15 - AktuellerTagDesMonats + 1)
Gelten die 40% am Anfang des 15., oder bis zum Ende des 15.? (wenn Anfang, dann das
Delphi-Quellcode:
weg lassen)
+ 1
![]() |
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