Discussion :

[hugo69]

Bonjour,

Je me galère grave sur un projet qui gère des dates, et je hais les gens qui ont inventé un multiple format americain/francais.

J'ai une date qui arrive dans une classe au format US (un debug.print me donne 05/01/2007 pour un 1er Mai 2007)

Si je lui demande le Month il me donne 01.
Si je la passe en format francais, le debug.print me donnant 01/05/2007, il me donne toujours 01 pour le month.

Alors je me dit, je vais lui demandé le jour. Mais si j'ai une date qui dépasse 12 pour le jour, il me prendra alors le vrai jour....

Une idée?

question supplémentaires pour les gentils visiteurs:
J'ai une fonction init dans ma classe qui fait un select sur une valeur d'une table. Lorsque je passe en parametre la valeur pour une date, la date est stockée au format FR. c'est normal?

merci

[Flow_75]

tu es sur que tu n'as pas inversé les pays ?
05/01/2007 = date fr
01/05/2007 = date Us ?

[dr_feelgood]

un élément de réponse la sur la FAQ

Sur un de mes projets j'avais du développer une fonction qui me permettait d'obtenir la date en format US

Code :

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

1
2
3
4
Function DateUs(X As Variant)
If Not IsDate(X) Then Exit Function
DateUs = "#" & Month(X) & "/" & Day(X) & "/" & Year(X) & "#"
End Function

que j'appelais dans un selection

Code :

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

Rselection = "(date between " & DateUs(Me.debut) & " and " & DateUs(Me.fin) & " )"

Je pense qu'il y a d'autres post sur ce problème de date format francais et format américain..

[hugo69]

J'ai également une fonction qui me permet de formatter au format US.

Voila exactement ce que je n'arrive pas à comprendre et qui cause tous mes problèmes.


Il m'affiche le resultat d'une date sous forme francaise dans le debug, mais il la lis comme un format américain...

il va m'afficher 01/05/2007 pour le 1er mai
Mais si je lui demande le mois, il me donne 5.
Et si je le format au passage dans le parametre en format US, il affichera 05/01/2007 mais lme donnera 1 pour le mois, donc je ne peux plus travailler dessus.

Voici ma fonction init:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub init(idPrime As Integer)
 
    Dim Db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    Dim madate As Date
    ' Ouverture de la base de données
    Set Db = CurrentDb
 
    'requete
    sSQL = "SELECT * FROM prime_client WHERE idPrime = " & idPrime & "; "
    Debug.Print "Requete = " & sSQL
 
    ' Ouverture du recordset
    Set rst = Db.OpenRecordset(sSQL, dbOpenDynaset)
 
    'Enregistre Valeur en paramatre Format$(Now, JetDateTimeFmt)
    madate = rst![datePrimeDebut]
    Debug.Print "datePrimeDebut : " & madate
    Debug.Print "Mois : " & Month(madate)
 
   'Fermeture
    rst.Close
    Db.Close
    Set rst = Nothing
    Set Db = Nothing
 
End Sub

Voila exactement le débug, je n'y comprends rien, je viens d'y passer 2 jours. Si une lanterne venait à mon secours, ce serait fortement apprécié.
J'ai isolé le pb, sans comprendre ce que me fais ACCESS.

J'ai bien compris que sur une requete on doit lui balancé du format US, mais la c'est à la lecture du recordset que ca foire, il me sors du FR, mais le lis comme du US

Code :

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

1
2
3
4
5
6
SANS DATEUS FONCTION; 
datePrimeDebut : 01/05/2007
Mois : 5
Requete = AVEC DATE US FONCTION; 
datePrimeDebut : 05/01/2007
Mois : 1

[hugo69]

je suis un gros débile.

En fait je traitais les date avec la fonction dateus en les envoyant US a partir de mes fonctions dans mes formulaires.....