format date avec texbox et calendarRésolu

Question

Bonjour a tous,
J'ai un pett soucis avec un fonction calendar et un textbox.
en effet lorsque je selectionne une date sur calendar , jusqu'au 12, la date s'ecrit dans le textbox sous le format jj/mm/yy et arrivé le 13 l'inscription dans le textbox se fait mm/jj/yy.
Je vous joint mon code
Private Sub CALENDA2_Click()
TBDATECALENDA2.Value = Format(CALENDA2.Value, "MM/DD/YY")
Ladate = TBDATECALENDA2.Value
CALENDA2.Visible = False
UFAVIS2.TBDATEA2.Value = TBDATECALENDA2.Value
Unload UFCALENDA2
End Sub

Private Sub TBDATEA2_Change()
TBDATEA2.Value = Format(TBDATEA2.Value, "MM/DD/YY")
End Sub
Si quelqu'un a une idée elle sera la bienvenue
Merci et bon week-end a tous

Renfield · Accepted Answer

il ne FAUT PAS spécifier de format en dur.

le format utilisé ppour affichage est bien constamment MM/DD/YY

simplement, je doute que ca soit le parametrage des dates de ton ordinateur (regional settings). 
Du coup, c'est l'interpretation même de la date qui coince.

sur ton poste, 12/04/08 est bien le 12 Avril, et non le 4 décembre...

utilises plutot:
TBDATECALENDA2.Value = Format(CALENDA2.Value, "Short Date")

cs_YVO22 · Answer

Merci beaucoup pour ta réponse Renfield, 


Top nickel pour l'affichage dans le textbox, par contre, je transfère ces données date dans une feuille de calcul EXCEL. Pb, jusqu'au 12 du mois, (par exemple, le 04/11/2008, la valeur se place dans la cellule sous la forme 11/04/2008...
mon code est le suivant :


'Mise en place de la valeur DATE
    Sheets("00").Range("C65536").End(xlUp).Offset(1, 0).Value = UFAVISSEM.TBDATESEM.Value
    Sheets("00AVIS").Range("C65536").End(xlUp).Offset(1, 0).Value = UFAVISSEM.TBDATESEM.Value

J'ai essayé de changer le format de cellule dans la feuille de calcul, mais ca marche pas, 
Une autre idée géniale ???
Merci et bonne journée

Format date avec texbox et calendar

2 réponses

Votre réponse

Discussions similaires