function replace conversion date anglais

Version imprimable

Bjr,
J'utilise la fonction de conversion de mois français-anglais dans un état, dans une entête de groupe date_delivery regroupant les opérations par mois après une sélection d'une année dans une boîte de dialogue :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer)
Dim prmDate As String
If IsNull(Forms!frm_dial_list!yeardelivery) Or IsNull(Forms!frm_dial_list!monthdelivery) Then
    Exit Sub
Else
    prmDate = Format(Month(delivery_date), "mmmm")
    moisFormatAnglais (prmDate)
    Me!moisEnAnglais = moisFormatAnglais(prmDate)
End If
End Sub

la fonction utilisée dans un module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function moisFormatAnglais(prmDate As String)
 
   Dim result As String
   'Dim prmDate As Date
 
   Dim nomMoisAnglais As Variant: nomMoisAnglais = Array("january", "february", "march", "april", "may", "june", "july", "August", "september", "october", "december")
   Dim nomMoisFrancais As Variant: nomMoisFrancais = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
 
    result = Format$(prmDate, "mmmm")
    result = Replace(result, nomMoisFrancais(Month(prmDate) - 1), nomMoisAnglais(Month(prmDate) - 1))
 
   moisFormatAnglais = result
 
End Function

une erreur 13 (incompatibilité de type) est retounée.

Quelqu'un peut-il m'aider ?
Merci

05/05/2009, 10h16
p'tite Sandrine

bonjour,

je ne sais pas si ton bug vient de là mais as-tu remarqué que tu as une discordance dans tes mois...

le mois de novembre n'existe pas en Anglais?
05/05/2009, 23h03
lemask

Merci pour cette info
j'obtiens toujours la même erreur 13 malgré la correction ?

Bonsoir,

essaie ceci pour la fonction

Code:

1
2
3
4
5
6
Public Function moisFormatAnglais(MoisIndex as Integer)
   const nomMoisAnglais ="january  february march    april    may      june     july     August   septemberoctober  december "
   If MoisIndex<1 Then MoisIndex=1
   If MoisIndex>12 Then MoisIndex=12 
   moisFormatAnglais = RTrim(Mid(nomMoisAnglais,1+(9*(MoisIndex-1)),9))
End Function

et pour l'appeler

Code:

1
2
3
4
Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer)
 If IsNull(Forms!frm_dial_list!yeardelivery) Or IsNull(Forms!frm_dial_list!monthdelivery) Then     Exit Sub
 Me!moisEnAnglais = moisFormatAnglais(Month(delivery_date))
End Sub

Bonjour,

Très bien la solution d'ilank.

On pourrait même se faciliter l'existence grâce à la fonction Choose !

Code:

1
2
3
4
5
Public Function moisFormatAnglais(MoisIndex As Integer)
    If MoisIndex<1 Then MoisIndex=1
    If MoisIndex>12 Then MoisIndex=12 
    moisFormatAnglais = Choose(MoisIndex, "january", "february", "march", "april", "may", "june", "july", "August", "september", "october", "november", "december")
End Function

06/05/2009, 01h45
ilank

Je l'avais oublié celle-là tiens !?
06/05/2009, 11h54
lemask

Merci à vous tous c'est parfait