[E-07]Decoupage de date

Version imprimable

28/03/2009, 12h30
dec3003

[E-07]Decoupage de date

bonjour tout le monde

voila chose toute simple que je ne parvient pas a faire
j aimerai en vba pouvoir utiliser la formule = Aujourd'hui()
et la decouper de tell sort que j ai 29 integrer dans une variable
03 integrer dans une variable
09(ou 2009 si pas possible) integrer dans une variable

l exemple prennd en compte la date d aujourd'hui le 29/03/2009

je n'insinue rien sur vos connaissance mais comme on dmande d etre precis je le fais :lol:
28/03/2009, 12h53
patbou

bonjour,

En gros du veux scinder une date en 3 variables (day,month,year) ? Non ?
28/03/2009, 13h09
dec3003

en gros oui

tout a fais c est cela que je recherche plus facile comme tu le dis ^^
si tu peu m aider merci

bonjour dec3003 le forum une macro a adapter

Option Explicit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim LaDate As Date, Lannee As Long
    Dim LeMois As Variant, LeJour As Variant
    LaDate = Date
    Lannee = Year(LaDate)
    LeMois = Month(LaDate)
    LeJour = Day(LaDate)
    LeMois = MonthName(Month(LaDate))
    LeJour = WeekdayName(Weekday(LaDate))
    MsgBox LeJour
    MsgBox LeMois
    MsgBox Lannee
    MsgBox LeMois & vbCrLf & LeJour & vbCrLf & Year(LaDate)
  End Sub

re peut etre plus simple dans ton cas variable a,m,j

Code:

1
2
3
4
5
6
7
8
9
Sub essai()
Dim a As Long, M As Long, J As Long
MsgBox Day(Now())
MsgBox Month(Now())
MsgBox Year(Now())
a = Year(Now())
M = Month(Now())
J = Day(Now())
End Sub

28/03/2009, 18h14
ucfoutu
Citation:

Envoyé par dec3003

et la decouper de tell sort que j ai 29 integrer dans une variable
03 integrer dans une variable
09(ou 2009 si pas possible) integrer dans une variable

Bonjour, laetitia,

ta réponse est adéquate, mais, si tu veux répondre exactement à la demande de dec3003, il faut en plus utiliser format (sinon, par exemple, mars donnera 3 et non 03)
Pour l'année (dont dec3003 souhaite le millésime sur 2 chiffres de préférence), on se passera de la fonction Year et on utilisera directement Format. Ainsi :
Code:

1 2 3 MsgBox Format(Day(Now()), "00") MsgBox Format(Month(Now()), "00") MsgBox Format(Now(), "yy")
(mettre bien évidemment dans des variables, en lieu et place des msgbox)
28/03/2009, 18h27
laetitia

bonjour ucfoutu bien vu plus pense au format! toujours un grand plaisir de te croiser
a+ leti