Hallo,
ich suche einen VBA-Code der mir als Datum den Ultimo des Vor-Vormonats liefert.
Also, wenn heute der 06.03.2000 ist, soll der Code mir den 31.01.2000 liefern.
Oder, wenn heute der 15.02.2000 ist, soll der Code den 31.12.1999 liefern.
Wie gehts?
(Ultimo Vormonat ist ne einfache Sache: Date - Day(Date))
Gruß,
Bernd
Versuch’s mal hiermit:
Public Function Ultimo(Optional M As Long = 0, Optional D)
Dim Dat As Date
If IsMissing(D) Then
Dat = Date
Else
Dat = CVDate(D)
End If
Ultimo = DateAdd("d", -1, DateAdd("m", M, Format(Dat, "yyyy-mm") & "-1"))
End Function
Ultimo(-1) sollte das sein, was du suchst…
Reinhard
dateserial(year(date),month(date)-1,0)
pp
dateserial(year(date),month(date)-1,0)
… klappt aber nicht, wenn ein Jahresende dazwischen ist!
Reinhard
Doch! Ich hab´s gerade probiert.
pp
Wat dat all gifft …
Tja, man lernt nie aus…
;=)
Reinhard
Das freut mich jetzt aber, ich dachte schon Du bist allwissend.
pp