How to show date in 2 languages?

[klaas01]

Hello,

I've got an access application which contains a report with the field birth date.

The standard language is dutch, so the month of the birthdate is shown in dutch.

the report is also translated to a english version, the problem is that the month of the birthdate is shown in dutch, like juni instead of june.

Does anybody knows if it's possible to switch in some cases like this to another language?

thanks.

 

[Remou]

If you are getting the date from a format (dd mmmm, say) then the language will be controlled by Windows Regional & Language settings on the control panel.

 

[klaas01]

That's right, but is there a way to get another language than the system language, when using the format(date()) function?

 

[MajP]

If you want to show both without changing your regional settings then roll your own functions i.e.

Public Function formatDateEnglish(dtmDate As Date) As String
  Dim strMonth As String
  Select Case Month(dtmDate)
  Case 1
    strMonth = "Jan"
  Case 2
    strMonth = "Feb"
  '...
  Case 8
    strMonth = "Aug"
  Case 12
    strMonth = "Dec"
  End Select
  
  formatDateEnglish = Format(dtmDate, "DD") & strMonth & Format(dtmDate, "YYYY")
End Function

Public Function formatDateSpanish(dtmDate As Date) As String
  Dim strMonth As String
  Select Case Month(dtmDate)
  Case 1
    strMonth = "Enero"
  Case 2
    strMonth = "Feb"
  '...
  Case 8
    strMonth = "Agosto"
  Case 12
    strMonth = "Dic"
  End Select
  
  formatDateSpanish = Format(dtmDate, "DD") & strMonth & Format(dtmDate, "YYYY")
End Function

 

[klaas01]

That works, Thanks a lot!