Discussion :

[hugo69]

Bonjour,

Dans certains pays, la date est de type 12.12.06 alors qu'en france on est sur 12/12/2006.

J'ai fait une fonction sur toutes mes dates pour regler le pb:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function MaDate(ladate As Date) As Date
 
 
    MaDate = Format(ladate, "dd\/mm\/yy")
 
 
End Function

Mon souci est que dans une requete Sql sous VBA, il ne me trouve toujours pas resultat, alors que dans un systeme francais il men trouve.

Voici la requete:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sSQL = "SELECT DateCherche FROM 2Echeance " & _
          "WHERE ((ProduitID = " & lProduit & ") AND (DerniereEcheance <= #" & MaDate(dDateTR) & "#) AND (ProchaineEcheance >= #" & MaDate(dDateTR) & "#)) ;"

J'ai penser que mes Prochaine echeance etaient dans un mauvais format mais ca nest pas le cas.

help!

[jnore]

En vba la date est sous le format américain:

Mois/jour/année

Il va te falloir faire une fonction pour inverser le jour et le mois

[hugo69]

j'ai lu ca, mais pour mon DerniereEcheance et ProchaineEcheance, il se mettent automatiquement en US?

Parce que j'ai beau tout essayer, ca ne passe pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function MaDate(ladate As Date) As Date
 
Dim temp As Date
    temp = Month(ladate) & "/" & Day(ladate) & "/" & Year(ladate)
    MaDate = temp
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim temp As Date
    temp = Month(ladate) & "/" & Day(ladate) & "/" & Year(ladate)
    MaDate = Format(temp, "dd\/mm\/yyyy")
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function MaDate(ladate As Date) As Date
 
Dim temp As Date
    temp = DateSerial(Year(ladate), Month(ladate), Day(ladate))
    MaDate = Format(temp, "dd\/mm\/yyyy")
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function MaDate(ladate As Date) As Date
 
Dim temp As Date
    temp = DateSerial(Year(ladate), Month(ladate), Day(ladate))
    MaDate = temp
 
End Function

[hugo69]

j'ajoute que quand je suis en format francais avec les / ca passe, pourtant il n'y as pas d'inversion avec le mois, alors qu'avec les points ca ne passe pas.

La seule différence qui va faire que ca fonctionne ou pas, c'est les / ou les points.

Donc je pense qu'il gere automatiquement les US.

[hugo69]

en fait c'est pas une histoire de point ou de slash.

C'est une histoire que les dates sont configurés sous windows avec des années yyyy et à l'étranger en yy.

[jnore]

Ecris dasn un module cette fonction:


Function DATEUS(ByVal dt As Variant)
If IsNull(dt) Then Exit Function
DATEUS = "#" & Month(dt) & "/" & Day(dt) & "/" & Year(dt) & "#"
End Function


A chaque fois que tu voudras utiliser une date en french dans vba tu lui applique cette fct.
Ex: si tu te sert d'une date pour un tri tu taperas en vba:

select....from...where date=dateus([champ d'un formulaire])

[hugo69]

j'ai tjs le meme pb.

Je l'utilise de la meme facon sauf que jai virer les # que j'ai deja dans mes reqeutes