Hallo Team Schauries,
wie kann man mit InterRun in einem Eingabefeld die Jahreszahl des aktuellen, letzten bzw. vorletzten Jahres ausgeben.
Viele Grüße
Ede
InterRun
-
Team Schauries
- Site Admin
- Beiträge: 1058
- Registriert: Mo, 17 Jan, 2005 20:25
- Wohnort: Essen
Hallo Ede,
über die InterRun-Funktion YearNumber.
YearNumber(„15.04.2005“) liefert die Zahl 2005.
YearNumber(Date) liefert die Jahreszahl des aktuellen Jahres, also ebenfalls 2005.
Die Jahreszahl des Vorjahres muss über eine weitere Funktion errechnet werden, nämlich AddYear.
YearNumber(AddYear(„15.04.2005“,-1) liefert die Zahl 2004.
YearNumber(AddYear(Date,-1)) liefert die Jahreszahl des aktuellen Jahres - 1, also ebenfalls 2004.
Die Jahreszahl des folgenden Jahres erhältst Du über YearNumber(AddYear(Date,1)).
Wichtig:
Möchtest Du die Zahl in einem Eingabefeld speichern, muss der numerische Rückgabewert YearNumber noch in einen String konvertiert werden und das geht so:
Eingabefeld1.Text = IntToStr(YearNumber(Date)).
IntToStr wandelt eine Zahl in einen Text um.
Bei einem Zähler- oder Währungsfeld reicht:
Zaehlerfeld1.Value = YearNumber(Date).
Gruß,
Dirk Schauries
über die InterRun-Funktion YearNumber.
YearNumber(„15.04.2005“) liefert die Zahl 2005.
YearNumber(Date) liefert die Jahreszahl des aktuellen Jahres, also ebenfalls 2005.
Die Jahreszahl des Vorjahres muss über eine weitere Funktion errechnet werden, nämlich AddYear.
YearNumber(AddYear(„15.04.2005“,-1) liefert die Zahl 2004.
YearNumber(AddYear(Date,-1)) liefert die Jahreszahl des aktuellen Jahres - 1, also ebenfalls 2004.
Die Jahreszahl des folgenden Jahres erhältst Du über YearNumber(AddYear(Date,1)).
Wichtig:
Möchtest Du die Zahl in einem Eingabefeld speichern, muss der numerische Rückgabewert YearNumber noch in einen String konvertiert werden und das geht so:
Eingabefeld1.Text = IntToStr(YearNumber(Date)).
IntToStr wandelt eine Zahl in einen Text um.
Bei einem Zähler- oder Währungsfeld reicht:
Zaehlerfeld1.Value = YearNumber(Date).
Gruß,
Dirk Schauries
Team Schauries