Format dates dans 2 textbox

Bonsoir,

j'ai un problème de format date.

dans mon usf 3 textbox pour le calcul entre les 2 dates cela fonctionne très bien. dans mon 1er TB le format JJ-MM-AA pas de soucis.

par contre dans le 2e le format affiche JJ/MM/AA alors que je mets des "-".

j'utilise les code suivant :

'Date de depart

Private Sub TB7_Change()

'exemple pour format date xx-xx-xxxx

Dim Valeur As Byte

TB7.MaxLength = 10 'nb caracteres maxi dans textbox

Valeur = Len(TB7)

If Valeur = 2 Or Valeur = 5 Then TB7 = TB7 & "-"

End Sub

'Date arrivée

Private Sub TB8_Change()

'exemple pour format date xx-xx-xxxx

Dim Valeur As Byte

TB8.MaxLength = 10 'nb caracteres maxi dans textbox

Valeur = Len(TB8)

If Valeur = 2 Or Valeur = 5 Then TB8 = TB8 & "-"

End Sub

'Duree

Private Sub TB8_AfterUpdate()

TB9.Value = CDate(TB8.Value) - CDate(TB7.Value)

End Sub

comment faire SVP?

Je vous remercie pour votre aide

Hello,

Si ce n'est que de remplacer les "/" par des "-" utilise la fonction replace :

x = Replace(TexteOriginal, TexteARemplacer, NouveauTexte, [PositionDebut], [NombreDeRemplacements], [TypeDeComparaison])

R@g