Probleme de formatage de date ( help ! ! ! ! ! )

Bonjour voila j'essaie de formater une date pour que lorsque j'effectue ma requete celle ci passe dans ma base de donnée j'utilise access 97  et voici mon code

datedeb = FrmRéservation.txtDtDebSej.Text
            datedeb = datedeb - 1
            datedeb = Format(datedeb, "dd/mm/yyyy")
            'datedeb = CDate(datedeb)
           
           
           
           
            datefin = FrmRéservation.txtDtFinSej.Text
            MsgBox ("datefin 1 " & datefin)
            'datefin = CDate(datefin)
            datefin = Format(datefin, "mm/dd/yyyy")
           
          
           
           
           
             MsgBox ("datefin 2 " & datefin)
           
            reqSupprOccPlanning = "UPDATE planning set OCCUPEE = 0 where NUM_CHAMB = " & FrmRéservation.TxtNumChamb.Text & " and DT_DEB_RESERV < #" & datefin & "# and DT_DEB_RESERV > #" & datedeb & "#"


malheureusement pour moi le formatage ne se fais pas par exemple si la date est le 16/06/2005 le formatge devrai me donner 06/16/2005 or cela ne passe pas si qualqu'un a une solution merci de votre aide.

oxram

Salut,

Ah, l'éternel problème de date (format anglais, format français, ...).

Format("16/06/2005", "mm/dd/yyyy") renvoit bien "06/16/2005" en tous cas avec mes paramètres régionaux.

Ce que je ne comprend pas, c'est le mélange :
datedeb = Format(datedeb, "dd/mm/yyyy")
avec
datefin = Format(datefin, "mm/dd/yyyy")

Etant donné que les types de champs dans ta BD sont dépendants de tes options régionales donc pas un champ en anglais et un autre en français.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

effectivement ne prend pas en compte cette erreur je veux tout formater en anglais mais datedeb = Format(datedeb, "dd/mm/yyyy") et datefin = Format(datefin , "dd/mm/yyyy") ça ne passe pas qd meme je ne comprend pas datedeb et datefin sont des valeurs récupérées dans des txtbox.

Merci si vous avez une autre réponse


oxram

Excuses, je n'ai pas pu répondre avant.

Si je comprend bien, les dates sont saisies en français dans des textboxes mais ta base est en format anglais (donc tes options régionales en anglais aussi) ?


-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

tu converti ta date avec une fonction vba c ce que j'ai fai ca marche tiens:

Function DateFr(date_fr_us As Date)
    'fonction qui permet de gérer le format de la date américain ou francais
    aaaa = Right(CStr(date_fr_us), 4)
    jj = Left(CStr(date_fr_us), 2)
    Tmp = Left(CStr(date_fr_us), 5)
    mm = Right(Tmp, 2)
   
    If jj < 13 Then
        DateFr = CDate(mm & "/" & jj & "/" & aaaa)
    Else
        DateFr = date_fr_us
    End If

End Function

Au moment d'utiliser ta date tu utilise la fonction pour la convertir au format francais avec DateFr(TaDate)