Calcul de dates

f76 - 5 févr. 2024 à 16:09
yg_be Messages postés 22805 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 mai 2024 - 5 févr. 2024 à 16:40

Bonjour,

Je voudrais calculer le nombre de jours entre 2 dates, soustraire 45 jours et le nombre de jours de la date de fin.

ex:date debut 25/10/2023 date fin 10/01/2024.

Avec la formule suivante j'obtiens 77 jours, c'est parfait.

ActiveCell.FormulaR1C1 = "=DAYS(R[-10]C[2],R[-10]C[1])"

ensuite je n'arrive pas dans la même formule a soustraire 45 et 10 le nombre de jour de la date de fin (qui peut être variable). Le résultat attendu est 10

Autre chose comment transformer une date 20241001 en 10/01/2024 svp?

Le tout en vba


Windows / Edge 121.0.0.0

A voir également:

2 réponses

yg_be Messages postés 22805 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 mai 2024 1 469
5 févr. 2024 à 16:33

bonjour,

un exemple:

Dim d1 As Date, s2 As String, d2 As Date, dc As Long
s2 = 20240110
d1 = DateSerial(2023, 10, 25)
d2 = DateSerial(Left(s2, 4), Mid(s2, 5, 2), Right(s2, 2))
dc = d2 - d1 - 45 - Day(d2)
Debug.Print dc
0
yg_be Messages postés 22805 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 mai 2024 1 469
Modifié le 5 févr. 2024 à 16:40

Si la question n'a rien à voir avec le VBA et tout à voir avec une formule:

=DAYS(R[-10]C[2],R[-10]C[1])-45-DAY(R[-10]C[1])
0