datum notatie van 6-6-2013 naar 6-juni-2013

[arjoderoon]

ik heb op een forum een code gevonden om de datum/tijd automatisch te laten bijwerken.
Nu is de datum notatie zodat ik als output krijg: 6-6-2013

ik heb diverse sites bekeken en dingen geprobeerd om de notatie naar 6-juni-2013 te krijgen.

Het is mij echter niet gelukt. Hoe krijg ik dit voor elkaar?

Sub Tijd()


Dim interval As Date
interval = TimeValue("00:00:01")
Worksheets("BLAD2").Range("d2") = Format(Time, "hh:mm:ss") & " " & Format(Date, "dd-MMM-yyyy")
Application.OnTime Now + interval, "Tijd"
End Sub

wat heb ik hierbij geprobeerd als datum formats:
"dd-MMM-yyyy"
"dd-mmm-yyyy"
"dd-month-yyyy"

 

[arjoderoon]

vreemd. ik probeer het nog een keer en nu werkt het wel. Heb nu de datum notatie om dd-mmmm-yyyy gezet om maar de volledige maand omschrijving te krijgen.