Calcul de dates

f76 - 5 févr. 2024 à 16:09
yg_be Messages postés 23416 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 janvier 2025 - 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 23416 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 janvier 2025 Ambassadeur 1 557
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 23416 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 janvier 2025 Ambassadeur 1 557
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