date en nombre de jour

[harley topper]

salut le forum,
j'ai un problème avec un format de date.
en effet je désire créer un code qui contient la date sous forme de nombre de jours depuis le début de l'année en cours.
comment puis je faire pour qu'à partir d'une date comme celle d'aujourd'hui: 14/12/04, je puisse récupérer 349 (c'est à dire le 349ème jour de l'année 2004).

Merci d'avance pour vos réponses
a+

 

[Pascal76]

Bonjour

Si tu as ta date en A1 une formule du style

=A1-DATE(ANNEE(A1);1;1)+1

te donne 349 (cellule à mettre en format nombre)

Mais il existe peut-être une fonction toute faite excel que je ne connais mais une des miss du forum ou autre forumeur la connaitra sans doute

Pascal

 

[Pascal76]

re

si c'est toujours la date du jour qui t'interesse la même formule donne

=AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;1)+1

Pascal

 

[harley topper]

date en nombre bis

resalut,
merci pascal pour ton aide, mais existe t il un equivalent de ces formules en VBA?????????

 

[Pascal76]

Re

Bon j'avais pas compris que c'etait en VBA

Alors oui tu as la fonction DateDiff en VBA

Regarde l'aide et tu verras comment l'utiliser

Pascal

 

[harley topper]

merci le forum, et merci bcp Pascal76!!!!!!

 

[bilal hayek]

Re : date en nombre de jour

Merci à tous les membres pour cette réponse.

 

[cathodique]

Re : date en nombre de jour

Bonjour,

Peut-être avec ceci, utilisation de la fonction DateDif.

 

[pierrejean]

Re : date en nombre de jour

Bonjour à tous

DateDif n’étant pas fiable à 100% je propose la fonction suivante qui donne le nombre de jours entre le début de l'année et la date actuelle

function nbj()
deb = CDate("31/12/" & Year(Date) - 1)
nbj = Date - deb

End Function

 

[ChTi160]

Re : date en nombre de jour

Bonsoir le Fil
Bonsoir Pierrejean
cela revient , si j'ai bien compris , a définir le Quantième du Jour de l'année.
j'utilise cela dans un de mes Fichiers (a voir)
[highlight=Vba]Quant_Date = Format(Date - DateSerial(Year(Date), 1, 0), "000") 'On détermine le quantieme du jour d'aujourdhui[/code]
Bonne fin de Soirée
Amicalement
Jean Marie

 

[ROGER2327]

Re : date en nombre de jour

Bonjour à tous.

Une autre solution par calcul direct sur la date, i.e. sans passer par un 1[SUP]er[/SUP] janvier ou un 31 décembre :​

=ENT((SOMME((MOD(ANNEE(A1);{400;100;4})=0)*{1;-1;1})-2,2)*(MOIS(A1)>2)+30,6*MOIS(A1)-30,1)+JOUR(A1)

Function JourAnnée%(d As Date)
Dim a%, m%
  d = d - (d < 60)
  m = Month(d)
  a = Year(d)
  JourAnnée = Int(((a Mod 400 = 0) - (a Mod 100 = 0) + (a Mod 4 = 0) + 2.2) * (m > 2) + 30.6 * m - 30.1) + Day(d)
End Function

Pourquoi faire simple si on peut faire compliqué ?



Bonne journée.


ℝOGER2327
#7728

Samedi 7 Gueules 142 (Saint Gueule, abbé - fête Suprême Quarte)
13 Pluviôse An CCXXIII, 1,7850h - laurier
2015-W05-7T04:17:02Z