Hallo zusammen,
vielleicht ist der Betreff etwas verwirrend, aber mir fiel nichts besseres ein. ::)
Folgendes "Problem":
Ich möchte gerne in der Kopfzeile des Berichtes den letzten Monat und das Jahr ausgeben.
Also soll z.B. im November 2023 dort Oktober 2023 stehen
mit =Monat(Datum())-1 erhalte ich "10"
mit =Format(Datum()-1;"mmmm jjjj") erhalte ich "November 2023"
mit =Format(Monat(Datum())-1 and Jahr(Datum());"mmmm jjjj") erhalte ich "Januar 1900"
Nun könnte ich in der zweiten Zeile nicht nur einen Zähler sondern 15 Zähler abziehen, aber das ist nicht sauber.
Ich komme hier nicht weiter und bitte Euch um Hilfe.
Vielen Dank schon jetzt.
Beste Grüße
Sönke
Kleine Funktion: (in ein allgemeines VBA-Modul legen)
Public Function Vormonat(Vdatum As Date) As String
Dim vmonat As Integer
Dim vjahr As Integer
vmonat = Month(Vdatum) - 1
vjahr = Year(Vdatum)
If vmonat = 0 Then
vmonat = 12
vjahr = vjahr - 1
End If
Vormonat = MonthName(vmonat) & " " & vjahr
End Function
Prameter Vdatum bei Aufruf kann z.B. Date() für Tagesdatum oder jedes andere Datum im Format #mm/dd/yyyy# sein.
z.B im Berichtsfeld:
=Vormonat(Date())
Beste Grüße
Andreas
Hallo,
oder direkt im Feld als Steuerelementinhalt mit der Datumsfunktion DatSeriell:
=Format(DatSeriell(Jahr(Datum());Monat(Datum())-1;1);"mmmm jjjj")
Hallo Andreas und Klaus,
vielen lieben Dank für die Hilfe.
Euch ein schönes Wochenende