Month names

[Mark Sreeves]

Format(2,"dddd")
returns
Montag


What function or parameter of format() do I need to get 1 = Januar
12 = Dezember etc??

I can't Hard-code my own because it MUST use the system locale.


------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

[Andy Collyer]

Format(2,"mmmm")

HTH,

AndyC

The format(2,"mmmm") doesn't work it returns the first month, (2 = 01-01-1900)

Try MonthName.



------------------

Vincent van den Braken
EMail: [email protected]
ICQ: 15440110
Homepage: http://www.azzmodan.demon.nl

[Mark Sreeves]

Thanks Andy but did you actually test this first?

------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

[Andy Collyer]

Beg yer pardon you're absolutely right I knew I shouldn't have got up this morning.

Apologies.

AndyC

[This message has been edited by Andy Collyer (edited 12-09-1999).]

[Mark Sreeves]

I'm using VB5 not VB6 and MonthName isn't available

Anyway, I've just realised that the piece of code I was trying to make locale dependant isn't used anymore.

so I don't need a reply anyway

Thanks for the help though.




------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

[Serge]

Try this. Add a ComboBox to your form and paste this code to Form_load event:

Private Sub Form_Load()
    Dim i As Integer
    
    For i = 0 To 11
        Combo1.AddItem Format(DateAdd("m", i, "1/1/" & Year(Date)), "mmmm")
    Next
End Sub

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819



[This message has been edited by Serge (edited 12-09-1999).]

[Mark Sreeves]

Just incase any one is interested I've turned it into a function

Public Function MonthName(intMonth As Integer) As String
'by Mark Sreeves
'with thanks to Serge

  Select Case intMonth
    Case 1 To 12
      MonthName = Format(intMonth & "/" & intMonth, "mmmm")
    
    Case Else
      MonthName = ""
  
  End Select

End Function

------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

[Serge]

Mark, you can make your code a lot simplier, using buid-in VB function called MonthName

MsgBox MonthName(1) - Will return January and so on.

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819

[onerrorgoto]

Thank you for the function Mark
It is working perfect

And Serge, then MsgBox MonthName(1) doesnt work in VB5 (atlest not for me)

------------------
On Error Goto Bed :0)
[email protected]




[This message has been edited by onerrorgoto (edited 12-10-1999).]

[Serge]

Yeap, sorry for that. MonthName function is available with VB6 only at the moment.

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819