Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Ciao Corrado,
prova questo esempio:
Sub RollingDate()
Dim dDate As Date
'dDate = Date 'oggi
dDate = #4/1/2019# 'Primo aprile 2019
Debug.Print DateSerial(Year(dDate) - 1, Month(dDate), 1)
Debug.Print DateSerial(Year(dDate), Month(dDate), 0)
End Sub
David