system date in french

[lemonhalls]

How does one get the system date in french?

Thanks!

S

 

[Rodie]

Hi Lemon
Try this :

Dim SystemDate As Date
SystemDate = Format(Date, "dd/mm/yyyy")

Rodie

 

[lemonhalls]

thanks rodie,

that only gives me the date in number format, but not French, what else do I need to get it into French?

Thanks,

S

 

[Rodie]

Sorry ... but what do you mean by French ???
Vendredi 27 août 2004 ??

Thanks for enlightening me ...
Rodie

 

[PHV]

Something like this ?
Public Function getFrenchSysDate() As String
Dim aDays, aMonths
aDays = Split("? Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi")
aMonths = Split("Janvier Février Mars Avril Mai Juin Juillet" _
& " Août Septembre Octobre Novembre Décembre")
getFrenchSysDate = aDays(Weekday(Date)) & " " & Day(Date) _
& " " & aMonths(Month(Date + 2) - 1) & " " & Year(Date)
End Function

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244