Calcul de dates
f76
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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])
