[VBA-E] Gestion des dates selon format de départ

Version imprimable

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'
'
'  Developpe par Gamal le Celte avril 2006
'
'    Fonction qui contourne le bug du Pack Office 97 et suivant
'    qui transforme une date de la norme française à la norme
'    US utilisée dans un source VBA.
'
'    Cette fonction reçoit une variable au format As Date et
'    retourne le numéro de série de cette date.
'
'    Cette fonction peut être optimisée, elle est faite ainsi 
'    pour que tous puisse comprendre
'
'   ----------------------------------------------------------------------
'
'    créez un nouveau module et copier y cette fonction pour l'utiliser.
'
'    exemple : Cells(16, 11).Value = CorrecDateEcxel(TexDatSai.Value)
'                                      ici utilisation d'un objet TextBox
'
'    où : Cells(16, 11).Value est la cellule à incrémenter
'         CorrecDateExcel(.....) L'appel de la fonction
'         TexDatSai.Value le controle contenant la date source,
'                 peut être remplacée par une variable
'
'
Function CorrecDateExcel(madate)
 
    Dim lemois As Integer
    Dim lejour As Integer
    Dim lannee As Integer
    Dim datetxt As String
    Dim bondate As Date
 
    lannee = Year(madate)
    lemois = Month(madate)
    lejour = Day(madate)
 
    datetxt = Str(lejour) + "/" + Str(lemois) + "/" + Str(lannee)
    bondate = DateValue(datetxt)
 
    CorrecDateEcxel = bondate
 
End Function

20/02/2007, 22h40
ThierryAIM

Arrête-moi si je me trompe mais un bon vieux Format, ça doit le faire non ?
genre :

Code:

Format (Date, "dd/mm/yyyy")
21/02/2007, 00h19
Gamal le Celte

Ben......non, pas toujours, c'est ca qu'est triste.
J'ai fait quelques essais bien surprenants notamment sur les 12 premiers jours des 10 premiers mois.

Les 12 premiers jours, je comprends, mais sur les 10 premiers mois....
25/02/2007, 11h29
Pierre Fauconnier
Salut...

Moi, je suis d'accord avec Thierry, une variable au format DATE est toujours correctement interprétée par VBA, aisni qu'une cellule au format date d'ailleurs, car le format DATE implique en fait que c'est le numéro de série de la date qui est mémorisé dans la cellule ou la variable... Le seul problème qui pourrait se poser entre Excel et VBA viendrait de l'activation du calendrier 1904 dans les options d'Excel.

Là où je suis d'accord avec Gamal, c'est lorsque l'on veut affecter une valeur à une variable As Date via un inputbox, un textbox ou du code.

En effet
Code:

1 2 3 Dim MaDate As Date MaDate = #10/1/2007# MsgBox Month(MaDate)
renvoie 10, alors que
Code:

1 2 3 4 Dim MaDate As Date MaDate = "10/01/2007" MsgBox Month(MaDate)
renvoie 1...

Moi, personnellement, j'essaie de toujours utiliser, dans le cas d'une saisie de date, la fonction

Code:

DateSerial(Annee, Mois, Jour)
25/02/2007, 12h42
SfJ5Rpw8

Citation:

Envoyé par Pierre Fauconnier

...
Moi, personnellement, j'essaie de toujours utiliser, dans le cas d'une saisie de date, la fonction

Code:

DateSerial(Annee, Mois, Jour)

+1

Surtout, si en plus l'on "s'amuse" à modifier les options régionales de Windows.. ( en passant format date américain .. par exemple...) les 2 fonctions renvoient alors 10 ... ..
et si l'on regarde l'aide en ligne VBA-Excel .. on as :

Citation:

littéral date
Toute séquence de caractères de format valide délimitée par des signes dièse (#). Les formats valides comprennent le format de date indiqué par les paramètres régionaux de votre code et le format de date universel.

Par exemple, #12/31/92# est le littéral date représentant le 31 décembre 1992 si le paramètre régional de votre application est Anglais (États-Unis). L'utilisation de littéraux date vous permet d'accroître la portabilité de votre application dans diverses langues.

alors qu'as priori quelque soit le paramétrage régional c'est le format "Anglais (Etat-unis) " qui est utilisé lorsqu'on place les # .... sans les # la date prise en compte dépend des paramétres régionaux...:aie:

Pour en revenir à la contribution initiale..("Gamal le Celte") . en considérant que le paramètre "MaDate" est une chaîne ... le fonctionnement dépends des paramètres régionaux....

Et ça, ça ne fonctionne pas, quelque soit la version ?
Code:

1 2 LaDate = CDbl(Date) MsgBox Format(LaDate, "dd/mm/yyyy")
C'est une question
Edit
Essaie ça
Code:

1 2 3 4 5 Lesdates = Array("16/02/2006", "02/16/07", "2008/2/16") For i = 0 To UBound(Lesdates) LaDate = CDbl(CDate(Lesdates(i))) MsgBox Format(LaDate, "dd mmmm yyyy") Next
et tu obtiendras 16 février 2006, 16 février 2007 et 16 février 2008