Calcul de dates

f76 -  
yg_be Messages postés 23538 Date d'inscription   Statut Contributeur Dernière intervention   - 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

Réponse 1 / 2
yg_be Messages postés 23538 Date d'inscription   Statut Contributeur Dernière intervention    

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
Réponse 2 / 2
yg_be Messages postés 23538 Date d'inscription   Statut Contributeur Dernière intervention    

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

Discussions similaires

nombre de nuits entre deux dates
Elowine -
Elowine -

8 réponses
je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
calcul taux de realisation
naimgr -
naimgr -

3 réponses
tableau calcul heures et heures sup
aphrodite37 -
Vaucluse -

1 réponse