Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Letzten Monat als "Monat Jahr" in der Kopfzeile anzeigen

Begonnen von volvisti, November 09, 2023, 19:39:25

⏪ vorheriges - nächstes ⏩

volvisti

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
  •  

andyfau

#1
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
  •  

MzKlMu

Hallo,
oder direkt im Feld als Steuerelementinhalt mit der Datumsfunktion DatSeriell:
=Format(DatSeriell(Jahr(Datum());Monat(Datum())-1;1);"mmmm jjjj")
Gruß
Klaus
  •  

volvisti

Hallo Andreas und Klaus,
vielen lieben Dank für die Hilfe.

Euch ein schönes Wochenende
  •