Printable View
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
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
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).]
Thanks Andy but did you actually test this first?
------------------
Mark Sreeves
Analyst Programmer
[email protected]
A BMW Group Company
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
Try this. Add a ComboBox to your form and paste this code to Form_load event:
------------------Code: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).]
Just incase any one is interested I've turned it into a function
------------------Code: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
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
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).]
Yeap, sorry for that. MonthName function is available with VB6 only at the moment.
------------------
Serge
Software Developer
[email protected]
[email protected]
ICQ#: 51055819