Date in Spanish

[Nunina]

Hi Guys!!!

I need to translate a date. For example, if my user enters 08/20/2004, I need it to read 20 de agosto de 2004, instead of August 20, 2004, WITHOUT me having to change the system settings.

Does anyone knows how to do this, without entering into a long, long SELECT --> CASE routine?

Thanks a lot!!!!



Issys Pouerie
Systems Support Analyst
San Juan, Puerto Rico

 

[luceze]

It wouldn't be too long of a select case statement.
Forgive me if I misspell any of the months.

Function SpaMth(engDate As Date)
    Select Case Month(rng)
        Case 1
            mth = "Enero"
        Case 2
            mth = "Febrero"
        Case 3
            mth = "Marzo"
        Case 4
            mth = "Abril"
        Case 5
            mth = "Mayo"
        Case 6
            mth = "Junio"
        Case 7
            mth = "Julio"
        Case 8
            mth = "Agosto"
        Case 9
            mth = "Septiembre"
        Case 10
            mth = "Octubre"
        Case 11
            mth = "Noviembre"
        Case 12
            mth = "Deciembre"
      End Select
  SpaMth = Day(rng) & " de " & mth & " de " & Year(rng)
End Function

HTH,
Eric

 

[Nunina]

Thanks, luceze!

But isn't there a built-in function to do this???





Issys Pouerie
Systems Support Analyst
San Juan, Puerto Rico