Calcul de dates
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
2 réponses
-
Contributeur
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
-
Contributeur
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])
