Geschickte VBA-Berechnung gesucht
25.10.2003 00:35:40
Franz W
mit folgenden Code-Zeilen bestimme ich das Quartal und den Monat eines Datums:
AuszQuart = Format(.txtDateAlt, "q")
AuszMon = Format(.txtDateAlt, "m")
Was ich nun brauche, ist die Anzahl der Monate innerhalb des gefundenen Quartals. Ich denke, es ergäbe dasselbe, wenn man die Position des Monats innerhalb des zugehörigen Quartals bestimmt. Beispiel:
q = 3 und m = 7 : 1 (Monat Juli)
q = 3 und m = 8 : 2 (Monate Juli und August)
q = 3 und m = 9 : 3 (Monate Juli, August, September)
q = 4 und m = 10 : 1 (Monat Oktober)
q = 4 und m = 11 : 2 (Monate Oktober, November)
q = 4 und m = 12 : 3 (Monate Okt., Nov., Dez.)
Ich hoffe, ich konnte erklären, was ich suche. Kann mir da jemand bitte helfen?
Vielen Dank im Voraus
Grüße
Franz