Discussion :

[PPN83]

Bonjour,

Je souhaite soustraire des mois et jours à une date mais en comptant les mois à 30 jours.
Ex: retrancher 90 jours à la date du 01/02/2014 et trouver 01/11/2013 et non 03/11/2013
Merci de votre aide

[gnain]

Je ne sais pas si cela fonctionne dans tout les cas mais c'est un début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim nombre_mois As Integer
Dim nombre_jour As Integer
Dim Date_1 As Date
 
Date_1 = "01-02-2014"
nombre_jour = 90
nombre_mois = Round(90 / 30)
 
MsgBox DateAdd("d", -(nombre_jour + nombre_mois), Date_1)

[Theze]

Bonsoir,

Je ne sais pas si ceci te conviendras ? A creuser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
    Dim LaDate As Date
 
    LaDate = CDate("01/02/2014")
 
    MsgBox Mois30Jours(LaDate, 90)
 
End Sub
 
Function Mois30Jours(LaDate As Date, _
                     NBJoursRetires As Integer) As Date
 
    Dim D As Date
    Dim NBJours As Integer
 
    D = LaDate - NBJoursRetires
 
    If NBJoursRetires > 29 Then NBJours = Day(LaDate) - Day(D)
 
    Mois30Jours = Format(D + NBJours, "dd/mm/yyyy")
 
End Function

Hervé.

[Theze]

Comme la fonction est typée Date, tu peux virer Format :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Mois30Jours = D + NBJours

Hervé.

[PPN83]

Bonsoir,

Merci à tous les deux, mais je n'ai pas tout à fait la réponse peut être que mon exemple n'était pas assez parlant.
mon exemple se compose de 5 colonnes sur x lignes.

A1= Date d'effet (01/02/2014)
B1= 1 an
C1= 6 mois
D1= 15jours
E1= date rectifiée (mon résultat)

Avec la formule ci dessous
E1=DATE(ANNEE(A1)-B1;MOIS(A1)-C1;JOUR(A1))-D1

j'arrive au résultat E1= 17/07/2012 au lieu de 16/07/2012
je n'ai donc pas un calcul sur une année à 360 jours et 1 mois à 30 jours.

En espérant avoir été plus clair
Merci d'avance