[VBA-A]erreur dans ma date...

Version imprimable

bonjour tout le monde,

j'ai un petit pb dans mon code, VBA + access dans mes dates..

En fait quand j'execute ce code, j'obtiens :

31/03/2006
24/03/2006
17/03/2006
03/10/2006
03/03/2006
24/02/2006
17/02/2006
02/10/2006
02/03/2006
27/01/2006

on peut voir pour le 10/03/2006 j'ai un petit soucis ... 8O
Je n'arrive pas à trouver le problème...

merci à vous.

++
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub test() Dim db As DAO.Database Set db = DBEngine.OpenDatabase("C:\Documents and Settings\mcolsenet\Mes documents\rochebrune.mdb") Dim dateIni As Date dateIni = "31 / 3 / 2006" MsgBox dateIni For i = 1 To 10 sql = "INSERT INTO test VALUES (#" & dateIni & "#)" ' MsgBox sql ' Exécution de la requête db.Execute sql dateIni = dateIni - 7 Next i End Sub

03/04/2006, 14h47
Megaxel

En fait, tu tombes dans l'écueil de l'inversion du jour et du mois entre Français et Anglo-saxons.
Moi, pour éviter ça, et éviter de devoir vérifier les paramètres régionaux et tout et tout, j'utilise tout le temps des "DateSerial".
Tu crées tes dates en disant:
-"ça, c'est le jour !"
-"ça, c'est le mois !"
-"ça, c'est l'année !"
Et ensuite, DateAdd(...) pour ajouter ou retirer des jours.
C'est plus lourd, comme syntaxe, mais au moins, on est sûr de ce qu'on fait.
03/04/2006, 14h57
matel

ok merci beaucoup je vais voir tout ca !

thanks
03/04/2006, 15h10
matel

pourrais tu me filer un petit exemple simple, je rame un peu la en fait ... :oops:

thanks

Allez, cadeau:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DesDatesBien()
    Dim DateIni As Date
    Dim i As Integer
    DateIni = DateSerial(2006, 3, 31)
    'DateIni = #6/3/2006# : ça, par exemple, c'est le plantage assuré!
 
    For i = 1 To 5
        MsgBox DateIni
        DateIni = DateAdd("d", -7, DateIni)
 
    Next i
 
End Sub

03/04/2006, 15h39
matel

merci pour ton code...mais en vain ...

Il était grossomodo comme le mien et j'obtiens toujours :

31-mars-06
24-mars-06
17-mars-06
03-oct-06
03-mars-06

dans ma table 03-oct-06 au lieu de 10-mars-06, j'ai essayé de changer le format du champs rien a faire ....

je commence a desespéré ca fait plus d'une heure je suis dessus ... :oops:
03/04/2006, 15h56
Megaxel

Alors là...
Tu veux me montrer ton code tel qu'il est maintenant avec les DateSerial, s'il te plait.
Parce que je peux t'assurer que les dates en base sont bonnes.
Comment est-ce que tu les lis, ensuite? Ce n'est pas quand tu les réaffiches, pour vérifier, que tu fais une boulette? Si tu fais un "Format", ça ne va pas mieux?
03/04/2006, 15h57
Megaxel

Et pourquoi ton sujet est-il à :resolu: ?