[Toutes versions] Obtenir le nombre de jour entre aujourdh' hui et le dernier jour de l' année [Résolu]

[Aladin_23]

Bonjour le forum
J' ai 4 zone de texte indépendants dont les sources de données sont les suivantes:

Code :

1
2
3
text1 = SérieDate(Année(Date());1;1) qui me donne le  premier jour de l' année
 text2 = SérieDate(Année(Date());12;31) qui me donne le dernier jour de l' année
 text3 = Now()

Le but c' est d' obtenir le nombre de jours restant entre aujourd' hui et le 31 Décembre de l' année en cours , j' ai essayé de faire un calcul directe par vba du style
text4 = text3 - text2 /2) et j' obtiens comme résultat 20445 et j' aurai voulu obtenir un nombre entier
Merci d' avance pour toute aide
Aladin

[GAYOT]

Bonjour

Code :

text4 = DiffDate('j';Date();SérieDate(Année(Date());12;31))

[NguyenRD]

Salut,

Je crois que c'est plutôt "DateDiff".

[GAYOT]

Envoyé par NguyenRD

Salut,

Je crois que c'est plutôt "DateDiff".

Exact en Vba

Mais avec le générateur d'expression intégré c'est DiffDate ...
Au même titre que ce sera Year en Vba et Année dans le générateur, ou DateSerial en Vba au lieu de SérieDate.

En Vba ce serait donc

Code :

 = DateDiff("d", Date, DateSerial(Year(Date), 12, 31))

[Aladin_23]

Bonsoir GAYOT et le forum
Merci de m' avoir répondu , j' ai testé ta solution et c' est Ok
Bonne continuation
Aladin