Verbleibende Tage im aktuellen Monat

[mga_01]

Hallo Zusammen,

ich habe hier mal eine ganz spezielle Angelegenheit.

Und zwar benötige ich zur weiteren Berechnung eine Funktion. Es soll berechnet werden, wie viele Tage im aktuellen Monat noch zur Berücksichtigung verbleiben. Also z.B. im Februar sind es 28 Tage und heute ist angenommen der 5. Februar. Eurokass soll nun in einem Eingabefeld die restlichen Tage, in diesem Fall den Wert 23 zur Weiterberechnung ausgeben.

Es wäre echt super, wenn jemand eine Idee hätte, wie ich dieses Problem angehen kann. Vielen Dank schon mal im Voraus.

Manni

[Team Schauries]

Hallo Manni,

das ist ganz einfach:

den Tag eines Monats erhält man über die Funktion MonthDayNumber und
die Anzahl Tage eines Monats erhält man über die Funktion MonthDays.


Hier ein Beispiel:

Procedure Schalter1_OnClick

var AnzTageProMonat : Integer
var TagDesMonats : Integer
var RestTage : Integer

TagDesMonats = MonthDayNumber(Date)
AnzTageProMonat = MonthDays(YearNumber(Date),MonthNumber(Date))
RestTage = AnzTageProMonat - TagDesMonats

ShowMessage("Noch verbleibende Tage = " + IntToStr(RestTage))

EndProcedure



Und hier eine direkte Zuweisung an ein numerisches Eingabefeld:

Procedure Schalter2_OnClick

Zahlenfeld1.Value = MonthDays(YearNumber(Date),MonthNumber(Date)) - MonthDayNumber(Date)

EndProcedure

Anmerkung:
Die Funktion Date, die hier verwendet wird, liefert das Systemdatum des Rechners und kann natürlich durch ein weiteres Eingabefeld oder eine globale Stringvariable ersetzt werden.

Gruß,
Dirk Schauries

[mga_01]

Danke für die schnelle Hilfe.

Ich habe alles hinbekommen, wie ich es haben wollte.

Gruß

Manni