Datum 1 maand terug

[reijm1]

Hoi allemaal,


Ik wil graag weten hoe ik met onderstaande code (of mag ook anders als dat makkelijker is) de maand 1 maand terug kan laten noemen.

Via onderstaande code geeft hij nu Juni aan maar ik zou graag willen dat hij Mei aangeeft.

Kan iemand me helpen??

Dim MyDate, MyMonth, MyMonthName, MySheetNumber, MyYear

MyDate = Date 'Datum in dd-mm-jjjj
MyMonth = Format(Date, "mm") 'Maand in mm
MyMonthName = MonthName(MyMonth) 'Maand in Long
MyYear = Year(Now())

Alvast bedankt.

 

[Tardis]

Dim strDate As String

strDate = Format(DateSerial(Year(Date), Month(Date) - 1, Day(Date)), "dd mm yyyy")

Groet,

Tardis

 

[reijm1]

Bedankt ik ga het proberen.

 

[Marky76]

Beste,

Misschien kunnen deze voorbeelden het ook verduidelijken:

Public Sub MijnFormat()
Range("B1") = Format(Date, "mmmm")
[B]'Dit geeft Juni[/B]
End Sub

Public Sub MijnFormat2()
Range("B2") = Format(DateSerial(Year(Date), Month(Date), 0))
[B]'Dit geeft 31/05/2007[/B]
End Sub

Public Sub MijnFormat3()
Range("B3") = Format(DateSerial(Year(Date), Month(Date), 1))
'Dit geeft 06/01/2007 notatie zou moeten zijn 01/06/2007
End Sub

Public Sub MijnFormat4()
Range("B4") = Format(DateSerial(Year(Date), Month(Date), -1))
'Dit geeft 30/05/2007
End Sub

Public Sub MijnFormat5()
Range("B5") = Format(DateSerial(Year(Date), Month(Date), 0), "mmmm")
'Dit geeft mei
MijnFormat
MijnFormat2
MijnFormat3
MijnFormat4
End Sub

Public Sub MijnFormat6()
Range("B6").Value = DateSerial(Year(Date), Month(Date), 1)
Range("B6").NumberFormat = "dd/mm/yyyy"
End Sub
'Deze geeft de datum van MijnFormat3 correct weer

Groeten