Numéro du jour dans l'annéeRésolu

Question

Bonjour à tous,

Comment à partir d'une date extraite d'un DTPicker connaitre le numéro du jour ?

Ex : 01/01/07 = 001.2007

      10/01/07 = 010.2007

      31/12/07 = 365.2007

Merci d'avance

Lap2

jrivet · Answer

Salut,
Je ne sais pas si cela peu t'aider ;:

MsgBox DateDiff("d", "01/01/" & Year(Date), Date)

@+: Ju£i?n
Pensez: Réponse acceptée

lap2 · Answer

Je vais essayer et je te tiens au courant

jrivet · Answer

Re,
Petite correction d'ailleurs 

MsgBox DateDiff("d", "01/01/" & Year(Date), Date) + 1

Sinon cela ne donne pas 1 pour le premier Janvier mais 0 

@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

"01/01/" & Year(Date) 

mauvaise habitude a ne pas prendre.... DateSerial est là pour faire ce genre de manip'

cs_Exploreur · Answer

Salut,

Ou comme cela aussi :

MsgBox DatePart("D", Format(Date, "DD/MM/YYYY"))

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Autant pour moi..vient de comprendre la question ! 

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Bonjour,

T'étais pourtant pas loin, Exploreur ...

Voici donc avec Datepart + le formatage du jour en 3 chiffres (avec un ou 2 0 devant si nécessaire) :

Private Sub Command1_Click()
  ladate = "10/02/07"
  MsgBox Format(DatePart("y", ladate), "000") & "." & Year(ladate)
End Sub

cs_Exploreur · Answer

Arffff...

A+
Exploreur

 Linux a un noyau, Windows un pépin

lap2 · Answer

Salut jmfmarques,

Voici le résultat final avec juste une petite modif de paranthèse.

lblDte.Caption = (DatePart("y", i, "000")) & "." & Year(i)

Merci à tous,

Lap2

Renfield · Answer

vous allez reussir a le contrarier, le Renfield, dites :p

ladate = "10/02/07"

je veux pas voir ce genre de choses ! ^^    

Dim ladate as Date
ladate = #02/10/2007#     

est la syntaxe appropriée pour mettre une date en dur ....
    

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Numéro du jour dans l'année

10 réponses

Votre réponse

Discussions similaires