Datumswerte in Quartalen darstellen
Veröffentlicht am 02.11.2004
Frage:
Ich möchte ein Datum in Quartalen darstellen. Zum Beispiel: 15-01-2004 = 2004Q1 Gibt es in Access eine Funktion zum aufrunden?
Antwort:
Die folgende VBA-Funktion ermöglicht Ihnen die Ausgabe des Quartals in dem von Ihnen gewünschten Format:
Function Quartal(MeinDatum As Date)
Quartal = CStr(Year(MeinDatum)) + "Q" +
Format(MeinDatum, "q")
End Function