Convertir une date en un integerRésolu

Question

Bonjour,
J'aimerai convertir une date (exemple 05-01-2007) en un entier pour obtenir 5(car c'est le 5ème jour de l'ANNEE).
J'ai lu qu'il faut utiliser Cint? mais j'obtient toujours "Error Mismatch".
Mon idée est d'essayer d'obtenir à partir de la date (05-01-2007) le nombre 37 991 (c'est le nombre obtenu en convertissant à 'la main' une date en un entier).
Avez vous une idée de comment proceder??
Merci d'avance.

cs_JMO · Accepted Answer

Bonjour à tous,

La fonction DatePart renvoie la partie spécifiée d'une date donnée.

MsgBox DatePart("y", "05/01/2007")   'retourne 5
Msgbox DatePart("y", Date)   'retourne 311

ValeurDescription
yyyy  Année 
q     Trimestre 
m     Mois 
y     Jour de l'année 
d     Jour 
w     Jour de la semaine 
ww    Semaine 
h     Heure 
n     Minute 
s     Seconde

jean-marc

cs_sebastien_et_typh · Answer

tu a essayer la fonction valint();


Personne ne peut se permettre de juger l'autre....

cs_sebastien_et_typh · Answer

c intval desoler


Personne ne peut se permettre de juger l'autre....

cs_sebastien_et_typh · Answer

ou alor il faut utiliser la fonction mktime() je pense


Personne ne peut se permettre de juger l'autre....

cs_Lines · Answer

je vais essayer merci :)

cs_Lines · Answer

Alors voilà mon code:


dim d as date


dim n as integer


d="01.01.2005"


n=intval(d)


msgbox(&n)


et puis..... Erreur :(------>Function not defined.


C'est ou le problème? De plus quand j'essaie de declarer d en tant que date en utilisant # j'obtiens aussi un message d'erreur ???

cs_Lines · Answer

Desolée, je pense que je me suis trompée de Forum... Je repose ma question en section VBA.

cs_Lines · Answer

Merci beaucoup,
C'est exactement ce dont j'ai besoin :)

Convertir une date en un integer

8 réponses

Votre réponse

Discussions similaires