Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 27 06:04:17

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CALCUL DE L'AGE

Information sur la source

Note :

6,67 / 10

Catégorie :Trucs & Astuces

Classé sous :age, datedenaissance Niveau :Débutant Date de création :20/07/2006 Vu :18 017

Auteur : io_ost

Ecrire un message privé

Commentaire sur cette source (30)

Ajouter un commentaire et/ou une note

Description

fonction toute simple en vb.net pour savoir l'âge d'une personne.

Source

Protected Sub calcul_age()
Dim datetimenow = DateTime.Now
Dim datedenaissance = CDate(TbDn.Text)
Dim age As Integer
age = CInt(Now.Year - datedenaissance.Year)
If (datedenaissance.Month > Now.Month) Then
age = age - 1
End If
If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then
age = age - 1
End If
Me.Label3.Text = " Age : " & age & " ans"
End Sub

Protected Sub calcul_age()

        Dim datetimenow = DateTime.Now
        Dim datedenaissance = CDate(TbDn.Text)
        Dim age As Integer


        age = CInt(Now.Year - datedenaissance.Year)
        If (datedenaissance.Month > Now.Month) Then

            age = age - 1
        End If
        If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then

            age = age - 1
        End If


        Me.Label3.Text = " Age : " & age & " ans"

    End Sub

Sources de la même categorie

OPTIONS PENDANT LE DÉBOGAGE par avictatum

TROUVER UN CONTROLE "ACTIF" DANS UN FORM par didierdeco91

RESISTANCES ÉQUIVALENTES par besqueut

JACALENDAR par raffika

EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert

Toutes les sources de la catégorie Trucs & Astuces

Sources en rapport avec celle ci

CALCULE DE VOTRE AGE AVEC ANS MOIS ET JOURS par islamway

EXEMPLE DE CRÉATION DE MAP par emine

CALCULER L'AGE EN ANNEES, MOIS ET JOURS par bassma

Commentaires et avis

Commentaire de Bidou le 20/07/2006 10:36:59 administrateur CS

C'est effectivement assez léger comme code source...

Commentaire de io_ost le 20/07/2006 11:12:08

ça calcul l'âge !! j'avais pas promis la lune ^^ (niveau débutant) je suis sûr que ça peu servir à quelqu'un (moi ça m'aurais fais gagner du temps)

Commentaire de dvdstory le 26/07/2006 15:42:26

Bonjour
J'ai un pb à la ligne de code ci-dessous.
Dim datedenaissance = CDate(TbDn.Text)
Le debbugger me dit que "La conversion de la chaîne en type 'Date' n'est pas valide."
Pourriez vous me donner la bonne syntaxe pour la date SVP.

Merci d'avance

Commentaire de Bidou le 27/07/2006 20:57:25 administrateur CS

Je pense qu'un snippet sur codyx aurait suffit, m'enfin!

Commentaire de io_ost le 27/07/2006 22:41:55

    Protected Sub calculage()
        Dim str As String = "26/01/1977"
        Dim datetimenow = DateTime.Now
        Dim datedenaissance = CDate(str)
        Dim age As Integer
        Dim str2 As String

        age = CInt(Now.Year - datedenaissance.Year)
        str3 = " Age : " & age & " ans"
        If (datedenaissance.Month > Now.Month) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If
        If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If
    End Sub

tu est tombé amoureux de ma sub bidou ?

Commentaire de dvdstory le 28/07/2006 07:42:53

erreur, ta mis str3 a la place de str2 et j'ai rajouté la ligne de code pour afficher la résultat que t'avais mis dans code original pas dans le le post.

Protected Sub calculage()

        Dim str As String = "26/01/1977"
        Dim datetimenow = DateTime.Now
        Dim datedenaissance = CDate(str)
        Dim age As Integer
        Dim str2 As String

        age = CInt(Now.Year - datedenaissance.Year)
        str2 = " Age : " & age & " ans"
        If (datedenaissance.Month > Now.Month) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If
        If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If

        Me.Label1.Text = " Age : " & age & " ans"   'Affiche dans un label

    End Sub

Commentaire de io_ost le 28/07/2006 08:59:02

désolé j'avais changer le nom des strings avant le post pour la présentation ! ^^

ciao bon dev....

Commentaire de olixelle le 28/07/2006 16:20:08

en plus simple:
_______________________________________________________________________________
    Protected Sub calcul_age()

        Dim datedenaissance = CDate(TbDn.Text)
        Dim age As Integer = DateDiff(DateInterval.Year, DateTime.Now, datedenaissance)

        Me.Label3.Text = " Age : " & age & " ans"

    End Sub
__________________________________________________________________________________

Commentaire de io_ost le 01/08/2006 12:21:58

pas mal olixelle je test .... et j'essaye de rajouter le nombre de mois et de jours ...

Commentaire de wan186 le 11/08/2006 15:59:54

Olixelle: Il y a un prob avec DateDiff: il ne tient pas compte du mois et du jour. Si on est en Octobre 2006 et que la date de naissance est Novembre 2000, alors il donne un age de 6 ans... au lieu de 5.
Donc vive IO_OST ;-)

Commentaire de wan186 le 11/08/2006 16:10:07

Voilà le mix des deux... exact et sans utilisation de cast!

Dim age As Integer = DateDiff(DateInterval.Year, NaissDacDateTimePicker.Value, DateTime.Now)
If Today.Month > NaissDacDateTimePicker.Value.Month Or Today.Month = NaissDacDateTimePicker.Value.Month AndAlso Today.Day >= NaissDacDateTimePicker.Value.Day Then
age += 1
End If

Commentaire de avrillavigne1 le 02/10/2006 18:38:17

merci pour le code

Commentaire de Clad49 le 21/01/2007 22:31:06

Salut

Essayez ca :

Private Function Age(ByVal vDate As String) As Integer
age = Math.Floor(DateDiff(Microsoft.VisualBasic.DateInterval.Month, CDate(vDate), Today, ) / 12)
End Function

et pour l'appeler :

MsgBox(Age("11/05/1985"))

bonne prog ;)

Clad

Commentaire de nerazzurro01 le 12/04/2007 13:43:05

bonjour je chercher dont j 'ai besion
g deux champs de datime piker et je veux calculer la date diffence entre les deux mais ca marche
j'aimerai bien avoir code qui marche de votre part
c urgent
merci

Commentaire de Renfield le 12/04/2007 14:43:00 administrateur CS

Clad49, ton code n'est pas précis...

en VB6 :

Age = val(datediff("D", DateNaissance, DateJour)/365.25)

Commentaire de Streptococcus le 27/06/2007 10:42:17

La solution de Renfiel est simple et efficace, mon seul problème avec elle, c'est que quand, ayant déclaré une fonction du type :
Public Function age(DateNaissance As Date) As Integer
age = Int(DateDiff("d", DateNaissance, Date) / 365.25)
End Function
je passe en paramètre DateNaissance une date du type jj/mm/aaaa, j'obtiens systématiquement un age de 107 ans. En fait en passant la fonction au débugger, je m'aperçois qu'il transforme DateNaissance en une heure (00:00:00) donc à chaque fois il me calcule un age pour une date de naissance du 01/01/1900...
Est-ce que quelqu'un saurait comment résoudre ce facheux problème ?
Merci d'avance
Quentin

Commentaire de Renfield le 27/06/2007 11:03:56 administrateur CS

une date est une date...

que transmets tu, exactement ?

Commentaire de Streptococcus le 27/06/2007 11:40:40

Alors après investigations complémentaires, et ayant utilisé la fonction de deux manières différentes :
Quand je fait :
Dim mon_age As Integer
mon_age = age(08/09/1984)
Dans ce cas, vu que l'on est en 2007, j'obtient un age de 107, car dans la fonction, la date doit être transformée en 01/01/1900...je suis sous VB6, donc j'ai un mode débug un peu primaire qui permet néanmoins de voir la valeur des variables, et donc en mode pas à pas, quand je suis dans la fonction et que je passe ma souris sur la variable DateNaissance, je ne lis que 00:00:15 ou quelques chose dans le genre.

Par contre j'ai utilisé la fonction comme suit :
Dim un_age As Integer
un_age = age(rst(date_naissance)), où rst est le résultat d'une requête SQL d'un champ date.
Et là ça à l'air de marcher parfaitement.

Donc d'après ce que je comprend, la fonction telle qu'elle est écrite dans mon précédent post reconnait le format date de ma bdd (SmallDateTime sous SQL Server), par contre il ne reconnait pas un format rentré en dur du type jj/mm/aaaa...

J'aimerais juste comprendre pourquoi...mais bon, l'un dans l'autre, la fonction à l'air de marcher pour ce que je veux en faire, donc si ce que je viens de te raconter n'est absolument pas clair...batailles pas.

Merci en tout cas
Quentin

Commentaire de Renfield le 27/06/2007 11:51:39 administrateur CS

mon_age = age(08/09/1984)
8 divisé par 9 divisé par 1984 ...

Fais plutot :
mon_age = age(#9/8/1984#)

Commentaire de Streptococcus le 27/06/2007 12:05:03

Bravo et merci Renfield...tu as tout bon

Commentaire de jaknight007 le 04/06/2009 19:28:22

Renfield et clad49 on raison, mais pour être plus précis, j'utilise :

Dim ageEntier As Integer
Dim ageDecimal As Double

'Trouver l'âge de la personne avec des décimale
ageDecimal = vDateReference.Value.Subtract(vDateNaissance.Value).Days / 365.25
'Supprimer les décimales
ageEntier = CType(Math.Floor(ageDecimal), Integer)

ageEntier nous donne la bonne réponse.

Commentaire de jaknight007 le 04/06/2009 19:30:01

Renfield et clad49 ont raisons, mais pour être plus précis, j'utilise :

Dim ageEntier As Integer
Dim ageDecimal As Double

'Trouver l'âge de la personne avec des décimale
ageDecimal = vDateReference.Subtract(vDateNaissance).Days / 365.25
'Supprimer les décimales
ageEntier = CType(Math.Floor(ageDecimal), Integer)

ageEntier nous donne la bonne réponse.

désolé, l'autre post contenait des date nullable (dim vDateReference as date? )

Commentaire de AiderMoiSvp le 04/02/2010 15:20:29

Bonjour, j'ai grand besoin de vos expertise.

Je doit finir mon programme d'ici une semaine qui constitue a trouver la date de naissance, l'âge et le sexe de la personne juste en sachant son code permanent. Voici mon code et voici mon problème je suis incapable de trouver l'age .

Option Explicit

Private Sub cmdAff_Click()

Dim iCod As String
Dim iCod2 As String
Dim iCod3 As String

Let iCod = Mid(txtCod.Text, 7, 2)  ' Numérise le mois
Let iCod2 = Mid(txtCod.Text, 5, 2) 'Numérise le jours
Let iCod3 = Mid(txtCod.Text, 9, 2) 'Numérise l'annee

If txtCod.Text = "" Then
MsgBox "Veuillez entrer votre code permanent"
Else

If UCase(Mid(txtCod.Text, 5, 1)) >= "A" And UCase(Mid(txtCod.Text, 5, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 6, 1)) >= "A" And UCase(Mid(txtCod.Text, 6, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 7, 1)) >= "A" And UCase(Mid(txtCod.Text, 7, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 8, 1)) >= "A" And UCase(Mid(txtCod.Text, 8, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 9, 1)) >= "A" And UCase(Mid(txtCod.Text, 9, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 10, 1)) >= "A" And UCase(Mid(txtCod.Text, 10, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 11, 1)) >= "A" And UCase(Mid(txtCod.Text, 11, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
ElseIf UCase(Mid(txtCod.Text, 12, 1)) >= "A" And UCase(Mid(txtCod.Text, 12, 1)) <= "Z" Then
MsgBox "Les Huits dernier caractere doivent etre des chiffres"
Else

If Mid(txtCod.Text, 1, 1) >= 0 And Mid(txtCod.Text, 1, 1) <= 9 Then
MsgBox "Les quattres premier caracteres doivent etre des lettres"
ElseIf Mid(txtCod.Text, 2, 1) >= 0 And Mid(txtCod.Text, 2, 1) <= 9 Then
MsgBox "Les quattres premier caracteres doivent etre des lettres"
ElseIf Mid(txtCod.Text, 3, 1) >= 0 And Mid(txtCod.Text, 3, 1) <= 9 Then
MsgBox "Les quattres premier caracteres doivent etre des lettres"
ElseIf Mid(txtCod.Text, 4, 1) >= 0 And Mid(txtCod.Text, 4, 1) <= 9 Then
MsgBox "Les quattres premier caracteres doivent etre des lettres"
Else

If iCod <= Month(Date) And iCod2 < Day(Date) Then 'La Date de Naissance
lblAge.Caption = Year(Date) - 1900 - iCod3

ElseIf Mid(txtCod.Text, 7, 2) >= Month(Date) And iCod2 > Day(Date) Then 'La Date de Naissance
lblAge.Caption = Year(Date) - 1901 - iCod3

ElseIf Mid(txtCod.Text, 7, 2) >= Month(Date) And iCod2 = Day(Date) Then 'La Date de Naissance
lblAge.Caption = Year(Date) - 1900 - iCod3

ElseIf Mid(txtCod.Text, 7, 2) >= Month(Date) Then
lblAge.Caption = Year(Date) - 1901 - iCod3 'La Date de Naissance

End If

If iCod2 >= 32 And iCod2 <= 60 Then
MsgBox "Un mois comporte que de 31 jours maximum"

ElseIf iCod2 > 60 And iCod2 <= 91 Then ' si le mois est plus de 60
lblJours.Caption = iCod2 - 60

ElseIf iCod2 > 91 Then 'si le mois est plus de 91 il n'existe pas
MsgBox "ERREUR Un mois comporte seulement 31 jours maximum"

Else
lblJours.Caption = iCod2

End If

lblIni.Caption = UCase(Mid(txtCod.Text, 4, 1)) ' Maj le 4ieme caractere
lblIni2.Caption = UCase(Mid(txtCod.Text, 1, 1)) ' Maj le Premier Caractere

If lblYear.Caption >= Year(Date) Then
MsgBox " La personne n'est pas encore née ou bien c'est un nouveau née"
End If

If lblAge.Caption >= 100 Then 'si l'age surpasse 100
lblAge.Caption = lblAge.Caption - 100
End If

End If
If Mid(txtCod.Text, 9, 1) >= 5 Then
lblYear.Caption = "19" + Mid(txtCod.Text, 9, 1) + Mid(txtCod.Text, 10, 1) 'Calcule L'annee

ElseIf Mid(txtCod.Text, 9, 1) <= 4 Then
lblYear.Caption = "20" + Mid(txtCod.Text, 9, 1) + Mid(txtCod.Text, 10, 1) 'Calcule L'annee

Else
MsgBox "ERREUR NON VALIDE"
End If

If lblYear.Caption Mod 4 And iCod = 2 Then 'Détermine une année non bissextile si le mois est février
lblBis.Caption = "En Février une année non bissextile comporte que de 28 jours"

ElseIf lblYear.Caption Mod 4 And iCod = 52 Then 'Détermine une année non bissextile si le mois est février
lblBis.Caption = "En Février une année non bissextile comporte que de 28 jours"

ElseIf iCod = 2 And (lblYear.Caption Mod 100 Or ((lblYear.Caption Mod 400) = 0)) Then 'Détermine une année  bissextile si le mois est février
lblBis.Caption = "En Février une année Bissextile comporte que de 29 jours"

ElseIf iCod = 52 And (lblYear.Caption Mod 100 Or ((lblYear.Caption Mod 400) = 0)) Then 'Détermine une année  bissextile si le mois est février
lblBis.Caption = "En Février une année Bissextile comporte que de 29 jours"

Else
lblBis.Caption = ""

End If

If iCod = "01" Then ' Le mois
lblMois.Caption = "Janvier"
ElseIf iCod = "02" Then ' Le mois
lblMois.Caption = "Février"
ElseIf iCod = "03" Then ' Le mois
lblMois.Caption = "Mars"
ElseIf iCod = "04" Then ' Le mois
lblMois.Caption = "Avril"
ElseIf iCod = "05" Then ' Le mois
lblMois.Caption = "Mai"
ElseIf iCod = "06" Then ' Le mois
lblMois.Caption = "Juin"
ElseIf iCod = "07" Then ' Le mois
lblMois.Caption = "Juillet"
ElseIf iCod = "08" Then ' Le mois
lblMois.Caption = "Août"
ElseIf iCod = "09" Then ' Le mois
lblMois.Caption = "Septembre"
ElseIf iCod = "10" Then ' Le mois
lblMois.Caption = "Octobre"
ElseIf iCod = "11" Then ' Le mois
lblMois.Caption = "Novembre"
ElseIf iCod = "12" Then ' Le mois
lblMois.Caption = "Décembre"

ElseIf iCod = "51" Then ' Le mois
lblMois.Caption = "Janvier"
ElseIf iCod = "52" Then ' Le mois
lblMois.Caption = "Février" 'Le mois
ElseIf iCod = "53" Then ' Le mois
lblMois.Caption = "Mars" 'Le mois
ElseIf iCod = "54" Then 'Le mois
lblMois.Caption = "Avril" 'Le mois
ElseIf iCod = "55" Then
lblMois.Caption = "Mai" ' Le mois
ElseIf iCod = "56" Then
lblMois.Caption = "Juin" 'Le mois
ElseIf iCod = "57" Then
lblMois.Caption = "Juillet" 'Le mois
ElseIf iCod = "58" Then
lblMois.Caption = "Août" 'Le mois
ElseIf iCod = "59" Then
lblMois.Caption = "septembre" 'Le mois
ElseIf iCod = "60" Then
lblMois.Caption = "Octobre" 'Le mois
ElseIf iCod = "61" Then
lblMois.Caption = "Novembre" 'Le mois
ElseIf iCod = "62" Then
lblMois.Caption = "Décembre" 'Le mois

Else

MsgBox "ERREUR  le numéro du mois est invalide"

End If

If (Mid(txtCod.Text, 7, 2)) <= 12 Then ' Le sexe de la personne masculin
lblSexe.Caption = "Masculin"

ElseIf (Mid(txtCod.Text, 7, 2)) >= 51 And (Mid(txtCod.Text, 7, 2)) <= 62 Then ' Le sexe de la personne Féminin
lblSexe.Caption = "Féminin"

Else

End If
End If
End If

End Sub

.........

Tout commentaire me serait utile.

Et voici les lignes donc j'ai la difficulté -.-

If iCod <= Month(Date) And iCod2 < Day(Date) Then 'La Date de Naissance
lblAge.Caption = Year(Date) - 1900 - iCod3

ElseIf Mid(txtCod.Text, 7, 2) >= Month(Date) And iCod2 > Day(Date) Then 'La Date de Naissance
lblAge.Caption = Year(Date) - 1901 - iCod3

ElseIf Mid(txtCod.Text, 7, 2) >= Month(Date) And iCod2 = Day(Date) Then 'La Date de Naissance
lblAge.Caption = Year(Date) - 1900 - iCod3

ElseIf Mid(txtCod.Text, 7, 2) >= Month(Date) Then
lblAge.Caption = Year(Date) - 1901 - iCod3 'La Date de Naissance

End If

If lblYear.Caption >= Year(Date) Then
MsgBox " La personne n'est pas encore née ou bien c'est un nouveau née"
End If

If lblAge.Caption >= 100 Then 'si l'age surpasse 100
lblAge.Caption = lblAge.Caption - 100
End If

Je suis pas un génie et j'ai grandement besoin d'un coup de pouce.
Merci a tous

Commentaire de Renfield le 04/02/2010 15:46:11 administrateur CS

y'a 9 fois plus de code qu'il n'en suffit ...

Age = (Nombre de jours entre naissance et date du jour ) / 365.25

Commentaire de Renfield le 04/02/2010 15:58:37 administrateur CS

En gros, je dirai :

Private Sub cmdAff_Click()
Dim nDay As Integer
Dim nMonth As Integer
Dim nYear As Integer
Dim bBirth As Date
    If Len(txtCod.Text) <> 12 Then
        MsgBox "Veuillez entrer votre code permanent", vbExclamation
    ElseIf Not txtCod.Text Like "*[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]" Then
        MsgBox "Les Huits dernier caractere doivent etre des chiffres", vbExclamation
    ElseIf Not txtCod.Text Like "[A-Z][A-Z][A-Z][A-Z]*" Then
        MsgBox "Les quatres premier caracteres doivent etre des lettres", vbExclamation
    Else
        nDay = Val(Mid$(txtCod.Text, 5, 2))
        nMonth = Val(Mid$(txtCod.Text, 7, 2))
        nYear = Val(Mid$(txtCod.Text, 9, 2))
        dBirth = DateSerial(nYear, nMonth, nDay)

        lblMois.Caption = MonthName(nMonth)
        If nMonth <= 12 Then
            lblSexe.Caption = "Masculin"
        Else
            lblSexe.Caption = "Féminin"
        End If
        lblAge.Caption = CLng((Date - dBirth) / 365.25)
    End If
End Sub

Commentaire de AiderMoiSvp le 04/02/2010 15:59:18

Pourrai tu svp me préciser cette phrase pour moi

(Nombre de jours entre naissance et date du jour )

Je crois que cela ma m'aide beacoup

Commentaire de AiderMoiSvp le 04/02/2010 16:00:40

Vien tu juste de faire mon programme en plus simplifié? WoW

Commentaire de Renfield le 04/02/2010 16:04:26 administrateur CS

préciser :
(Nombre de jours entre naissance et date du jour )

???

euh, ben, c'est ...

le nombre de jour entre :
- date de naissance
- date courante

Commentaire de AiderMoiSvp le 04/02/2010 16:18:34

OK merci beaucoup

Commentaire de SergBobo le 08/06/2010 17:43:45

age à partir de la date de naissance :

If DateSerial(Year(Date), Month(DateNaissance), Day(DateNaissance)) > Date Then
MyAge = Year(Date) - Year(DateNaissance) - 1
Else
MyAge = Year(Date) - Year(DateNaissance)
End if

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Help ! Une petite aide sur la compréhension d'un code [ par cassivellaunos ] Bonjour, Je reviens sur le site pour vous poser une autre question ayant eu des réponses à mes précédentes. Je voudrais effectuer un calcul auto de l Comment changer une photo en fonction du chanp age? [ par jeepsys ] [^^happy13]Bonjour a tous, Voilà m'ont problème. J'ai une table access avec un champ Age, dans le formulaire lier a cette table, j'aimerai que dans l [BAR]Team de Programmation VB10 [ par callas83 ] Salut a tous je me présente Prénom : Olivier Age : 17 Maturité : Moyenne voir Élevée Pays de residence : Portugal Nationalitée : Francaise Interet Délimiter une zone d'une age Internet [ par Cjvg ] Bonjour, J'ai développé un projet qui affiche à l'écran une toute petite Form de 0.5mm au carré. Ce projet est exécuté lorsque je suis sur Internet. Calculer l'age d'une personne [ par Amstel ] Je cherche la formule magique qui permet de calculer l'age d'une personne par rapport à la date du jour.Par exemple, pour une personne née le 10/06/19 Base de donnée : j'ai un problème [ par LEAU ] Bonjour, j'ai un problème j'ai une base de donnée simple, avec trois colones : nom, prénom, et ageJe voudrais pouvoir créer une liste de choix qui se Différentes informations dans un même fichier ? [ par Gengis Kahn ] Comment faire pour enregistrer plusieurs types d'informations différentes dans un même fichier et de pouvoir les retrouver facilement.ex: NOM, PRENOM, Renvoyer une valeur dans un MsgBox [ par Vbsupernul ] Voilà, c'est un truc tout con, je voudrais savoir comment renvoyer la valeur d'un InputBox, du styleage=InputBox("Veuillez entrer votre age") MsgBox(" Urgent!!! convertion age... [ par sonoboss ] Voila je fé une appli sur le milieu médical et je dois notemment travailler avec l'ages des patients...Seulement voilà : 8,23 ans ca leur parle pas bc Age de qqn à partir de sa date de naissance [ par dehayef ] Bonjour,j'ai besoind 'avoir l'age de qqn à partir de sa date de naissance. J'utilise la fonction DateDiff entre la datede naissance et la date du jour

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : PROBLèME PROVIDER POUR ACCéDER AUX BASES ACCES AVEC ADO par acive

PROBLEME AVEC CRYSTAL REPORT par youness03X

RE : PROBLèME PROVIDER POUR ACCéDER AUX BASES ACCES AVEC ADO par zizoweb

RE : LISTBOX ET CASES à COCHER par cmarcotte

RE : VISUAL BASIC 2010: COLLER DES DONNéS COPIER D'UN COLONNE D'UN FICHIER EXEL DANS UN COLONNE DE DATAGRIDVIEW par cmarcotte

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP