Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel quantième de date

quantième de date

6 réponses
Avatar
ced
Bonjour, je voudrai créer une variable vba se rapportant au quantième du
jour (n° du jour dans l'année), je pensais écrire le code suivant mais ça ne
fonctionne pas :-(

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now, "aaqqqq")
MsgBox nbJ
End Sub

Dans l'aide il est indiqué que l'on peut obtenir le numéro du jour avec le
format "j", mais ça ne fonctionne pas non plus, pourriez vous m'aider à
créer une variable avec le quantième.
Merci à tous
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JpPradier
Bonjour ced

numjour = DateSerial(Year(Now), Month(Now), Day(Now)) - DateSerial(Year(Now), 1, 1)

j-p
Avatar
RaMa
Bonjour
Sub eesss()
Dim nbJ As Integer
nbJ = Now - CDate("01/01/" & Year(Now))
MsgBox nbJ
End Sub

Salutations
RaMa

"ced" a écrit dans le message de news:
%
Bonjour, je voudrai créer une variable vba se rapportant au quantième
du jour (n° du jour dans l'année), je pensais écrire le code suivant mais
ça ne fonctionne pas :-(

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now, "aaqqqq")
MsgBox nbJ
End Sub

Dans l'aide il est indiqué que l'on peut obtenir le numéro du jour avec le
format "j", mais ça ne fonctionne pas non plus, pourriez vous m'aider à
créer une variable avec le quantième.
Merci à tous



Avatar
ced
Merci de votre réponse
G une seconde question, est-il possible selon vous de récuperer
indépendamment les chiffres du quantième un à un, c a d d'avoir le chiffre
des centaines (pour une variable), celui des dizaine et celui des unités, le
tout en vba.
Merci de votre nouvelle aide

"RaMa" a écrit dans le message de news:

Bonjour
Sub eesss()
Dim nbJ As Integer
nbJ = Now - CDate("01/01/" & Year(Now))
MsgBox nbJ
End Sub

Salutations
RaMa

"ced" a écrit dans le message de news:
%
Bonjour, je voudrai créer une variable vba se rapportant au quantième
du jour (n° du jour dans l'année), je pensais écrire le code suivant mais
ça ne fonctionne pas :-(

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now, "aaqqqq")
MsgBox nbJ
End Sub

Dans l'aide il est indiqué que l'on peut obtenir le numéro du jour avec
le format "j", mais ça ne fonctionne pas non plus, pourriez vous m'aider
à créer une variable avec le quantième.
Merci à tous







Avatar
RaMa
par exemple

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now - CDate("01/01/" & Year(Now)), "000")
Vc = Left(nbJ, 1)
Vd = Mid(nbJ, 2, 1)
Vu = Right(nbJ, 1)
MsgBox nbJ
End Sub

Salutations
RaMa

"ced" a écrit dans le message de news:
%
Merci de votre réponse
G une seconde question, est-il possible selon vous de récuperer
indépendamment les chiffres du quantième un à un, c a d d'avoir le chiffre
des centaines (pour une variable), celui des dizaine et celui des unités,
le tout en vba.
Merci de votre nouvelle aide

"RaMa" a écrit dans le message de news:

Bonjour
Sub eesss()
Dim nbJ As Integer
nbJ = Now - CDate("01/01/" & Year(Now))
MsgBox nbJ
End Sub

Salutations
RaMa

"ced" a écrit dans le message de news:
%
Bonjour, je voudrai créer une variable vba se rapportant au quantième
du jour (n° du jour dans l'année), je pensais écrire le code suivant
mais ça ne fonctionne pas :-(

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now, "aaqqqq")
MsgBox nbJ
End Sub

Dans l'aide il est indiqué que l'on peut obtenir le numéro du jour avec
le format "j", mais ça ne fonctionne pas non plus, pourriez vous m'aider
à créer une variable avec le quantième.
Merci à tous











Avatar
ced
Merci Rma, tout marche correctement
"RaMa" a écrit dans le message de news:

par exemple

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now - CDate("01/01/" & Year(Now)), "000")
Vc = Left(nbJ, 1)
Vd = Mid(nbJ, 2, 1)
Vu = Right(nbJ, 1)
MsgBox nbJ
End Sub

Salutations
RaMa

"ced" a écrit dans le message de news:
%
Merci de votre réponse
G une seconde question, est-il possible selon vous de récuperer
indépendamment les chiffres du quantième un à un, c a d d'avoir le
chiffre des centaines (pour une variable), celui des dizaine et celui des
unités, le tout en vba.
Merci de votre nouvelle aide

"RaMa" a écrit dans le message de news:

Bonjour
Sub eesss()
Dim nbJ As Integer
nbJ = Now - CDate("01/01/" & Year(Now))
MsgBox nbJ
End Sub

Salutations
RaMa

"ced" a écrit dans le message de news:
%
Bonjour, je voudrai créer une variable vba se rapportant au
quantième du jour (n° du jour dans l'année), je pensais écrire le code
suivant mais ça ne fonctionne pas :-(

Sub eesss()
Dim nbJ As Integer
nbJ = Format(Now, "aaqqqq")
MsgBox nbJ
End Sub

Dans l'aide il est indiqué que l'on peut obtenir le numéro du jour avec
le format "j", mais ça ne fonctionne pas non plus, pourriez vous
m'aider à créer une variable avec le quantième.
Merci à tous















Avatar
AV
Ou bien :
MsgBox [today()-date(year(today()),1,0)]
ou bien
MsgBox [datedif(,today(),"yd")]

AV