date in other languages

[Luciano]

Hello, can I get the date in another language-format? For example my current
language is Dutch and my date-format is 'maandag 28 april 2008'. I 'd like to
have it in French 'lundi 28 avril 2008' and in English 'monday 25 april
2008'. Is this possible?

 

[m3]

Once I need both English and Chinese Date I do it in a very primitive way;
build different user functions for different languages!


Function EngDate(DateArg As Date) As String
'Modify MyWeek and MyMonth values to suit your need.
Dim MyWeek, MyMonth
MyWeek = Array("Monday ", "Tuesday ", "Wednesday ", "Thursday ", "Friday ",
"Saturday ", "Sunday ")
MyMonth = Array(" January ", " February ", " March ", " April ", " May ", "
June ", " July ", _
" August ", " September ", " October ", " November ", " December ")

EngDate = Day(DateArg) & MyMonth(Month(DateArg)) & MyWeek(Weekday(DateArg))
& Year(DateArg)
End Function

There may be other better method or suggestion.

 

[Luciano]

Thank you,it works

Once I need both English and Chinese Date I do it in a very primitive way;
build different user functions for different languages!


Function EngDate(DateArg As Date) As String
'Modify MyWeek and MyMonth values to suit your need.
Dim MyWeek, MyMonth
MyWeek = Array("Monday ", "Tuesday ", "Wednesday ", "Thursday ", "Friday ",
"Saturday ", "Sunday ")
MyMonth = Array(" January ", " February ", " March ", " April ", " May ", "
June ", " July ", _
" August ", " September ", " October ", " November ", " December ")

EngDate = Day(DateArg) & MyMonth(Month(DateArg)) & MyWeek(Weekday(DateArg))
& Year(DateArg)
End Function

There may be other better method or suggestion.