Discussion :

[chernirachid]

Bonjour, je voulais mettre une Date répétitive le même mois exemple 30 mai de chaque année je n'arrive pas à trouver la formule merci de votre aide

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
Function calculAge(dateAnniv As Variant, dateM As Variant) As Variant
 Dim nbMois As Integer
Dim nbJours As Integer
dateM = "05/31/2023"
nbMois = DateDiff("m", dateAnniv, dateM) + (Day(dateM) < Day(dateAnniv))
 
If Day(dateM) < Day(dateAnniv) Then
    nbJours = DateDiff("d", dateAnniv, DateSerial(Year(dateAnniv), Month(dateAnniv) + 1, 0)) + Day(dateM)
Else
    nbJours = Day(dateM) - Day(dateAnniv)
End If
 
calculAge = LTrim(Str(nbMois \ 12)) & " ans " & LTrim(Str(nbMois Mod 12)) & " mois " & LTrim(Str(nbJours)) & " jours"
End Function
 
Private Sub Form_Current()
c_age.Value = calculAge(Text686.Value, Now())
End Sub

je voulais que le " Now() dans Form_Current() doit être le 30 mai de chaque année

Merci beaucoup

[Jean-Philippe André]

Salut,

est-ce que tu peux donner un exemple concret de ce que tu attends stp ?

avec des exemples, on arrivera mieux à cerner ce que tu veux faire, et on pourra adapter ton code en conséquence...

[deedolith]

Tu veux calculer l'age (en années, mois, jours) entre 2 dates ?
Pourquoi faire compliqué quand on peut faire simple ? Fait la différence.
Et un type personnalisé ne sera pas superflu:

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
25
26
Type Age
    Annees As Integer
    Mois As Integer
    Jours As Integer
End Type
 
Function calculAge(dateAnniv As Date, dateM As Date) As Age
    Dim dt As Date
    dt = Now - dateAnniv
 
    Dim Age As Age
    Age.Annees = Year(dt) - 1900
    Age.Mois = Month(dt)
    Age.Jours = Day(dt)
    calculAge = Age
End Function
 
Private Sub Form_Current()
    If(IsDate(Text686.Value)) Then
        Dim Age As Age
        Age = calculAge(CDate(Text686.Value), Now())
        c_age.Value = Age.Annees & " ans " & Age.Mois & " mois " & Age.Jour & " jours"
    Else
        '// à définir
    End If
End Sub

PS: Evite le type variant (sauf necessité) et les convertions implicites, ca peut réserver de mauvaises surprises.

[hyperion13]

Salut
La fonction Noiw() est volatile, vous ne pouvez pas la substituer à autre chose. Sauf ...
Si je comprends bien votre textbox Text686,affiche la date en cours et vous voudriez afficher la même date, mais de l'année suivante.
Donc je ne vois pas l'utilité de votre fonction.

Code :

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

1
2
3
Private Sub Form_Current()
Me.Text686 = DateSerial(Year(Date) + 1, Month(Date), Day(Date))
End Sub

Bonjour, ...je voulais que le " Now() dans Form_Current() doit être le 30 mai de chaque année

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function calculAge(dateDeb As Date, dateFin As Date) As String
Dim i As Integer, j As Integer
 
i = DateDiff("m", dateDeb, dateFin) + (Day(dateFin) < Day(dateDeb))
    If Day(dateFin) < Day(dateDeb) Then
        j = DateDiff("d", dateDeb, DateSerial(Year(dateDeb), Month(dateDeb) + 1, 0)) + Day(dateFin)
    Else
        j = Day(dateFin) - Day(dateDeb)
    End If
calculAge = Int(i / 12) & " ans " & i Mod 12 & " mois " & j & " jours"
End Function

Code :

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

1
2
3
Private Sub Form_Current()
Me.Text687 = calculAge(Me.Text686.Value, Date())
End Sub

[chernirachid]

Bonjour, j'ai essayé d'envoyer un fichier Zip, mais l'envoi ne fonctionne pas !