Discussion :

[Publicnew]

Bonjour
Pour calculer un âge, j'utilise la fonction suivante

Code :

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

1
2
3
4
5
Public ReadOnly Property Age() As Integer
    Get
        Return CInt(Today.Subtract(Me.DateTimePicker.Value).TotalDays / 365.25)
    End Get
End Property

Je voudrais des méthodes qui puissent me fournir :

1/ l'âge en jours (exemple : quelqu 'un né le 01/05/2011)
2/ l'âge en mois + jours restants ( exemple quelqu'un né le 01/05/2010)
3/ l'âge en années + mois restants (exemple : quelqu 'un né le 01/05/1990)

Comment faire ?

Merci

[Nathanael Marchand]

Lorsque tu fais une soustraction de deux dates tu obtiens un timespan. Avec ce timespan tu peux obtenir la valeur en années, jours, etc.

[Publicnew]

Lorsque tu fais une soustraction de deux dates tu obtiens un timespan. Avec ce timespan tu peux obtenir la valeur en années, jours, etc.

Merci pour ta réponse, mais en clair , pourra-tu me l'illustrer par un exemple de code ? Ce sera plus parlant pour moi.

[Nathanael Marchand]

Youps, j'ai dit des bétises ca s'arrête au jour.

[Danyel]

Tu dois pouvoir trouver ton bonheur avec un DateTime.

[Publicnew]

Tu dois pouvoir trouver ton bonheur avec un DateTime.

Merci.Je vais essayer de faire marcher mes neurones de débutant averti.Cependant un exemple de petit bout de code économiserait une surchauffe de mes neurones.

[Danyel]

Sur le lien que je t'ai donne, tu trouveras un exemple pour chaque evenement

[Publicnew]

Sur le lien que je t'ai donne, tu trouveras un exemple pour chaque evenement

Merci Danyel et aussi Nathanael.

J'ai trouvé la solution qui m'intéressait en suivant les liens indiqués et tout particulièrement celui-ci :

http://plasserre.developpez.com/cour...e-vb8#LV-AB-12

Voici un exemple de code sur cette page qui extrait la différence en nombre de jours entre deux dates, et que j'ai pu compiler pour l'expérience.

Ouf! Vous m'avez épargné la surchauffe de mes "neurones".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim DateS, Msg As String ' Declare les  variables.
        Dim DateD As DateTime
        DateS = InputBox("Entrer une date") 'Saisir une date : on récupère une string
        DateD = CDate(DateS)                'Conversion de la string en DateTime
        Msg = "Nombre de jour:" & DateDiff(DateInterval.Day, Now, DateD) 'différence en jours
        MsgBox(Msg)
 
 
    End Sub