calculer l'âge à partir de la date de naissance

J'ai 2 zones de liste modifiables et 2 zones de texte. Ma première zone de liste déroulante contient des mois dans ce format de janvier, février, etc, et de l'autre zone de liste déroulante contient tous les chiffres de 1 à 31. Ma première zone de texte est txtyear. Une fois la saisie de l'utilisateur de l'année de naissance de txtyear une variable BOD sera égale à la présente.

Dim BOD as string
BOD = cbomonth.text + "-" + cboday.text + "-" + txtyear.text

Le but de ma dernière zone de texte est à la poignée de l'âge de l'utilisateur qui sera calculé lorsque le curseur perdu l'accent sur txtyear.

Peut aider quelqu'comment calculer l'âge.

Ce fut l'une des premières questions à AFIN de, le numéro de la question 9. Fais un effort de recherche pour des questions, s'il vous plaît.
désolé monsieur. im nouveau à la programmation. j'ai rechercher mais je ne comprends pas la plupart des codes..
Puis vous n'avez pas à poser votre question dans un très intelligente. Vous êtes probablement juste obtenir plus de réponses que vous ne comprenez pas. C'est inutile de cours. Assurez-vous de parler du fait d'avoir trouvé les réponses et expliquer ce que vous ne comprenez pas sur eux. Poste le code que vous avez essayé et dire pourquoi il n'a pas ce qu'on espérait qu'il le ferait.
Merci monsieur pour me dire à ce sujet. Je vais garder cela à l'esprit et assurez-vous que avant de poser une question.
Hans, en fait, depuis que le numéro de la question 9 est pour le C#, et c'est pour VB, ce n'est pas exactement la même question. Cela dit, la question aurait pu être posée dans une bien meilleure façon.

InformationsquelleAutor joshua | 2013-06-01

9

Il y a vraiment deux questions ici:
1. Comment faire pour convertir la chaîne de caractères d'entrée dans un DateTime objet
2. Comment calculer l'âge une fois que vous avez vos données dans le bon format.
Je vais vous suivez les autres instructions sur la façon d'utiliser TryParseExtract qui est certainement la bonne façon de procéder ici.

Lors de la détermination de quelqu'un de l'âge de leur date de naissance, essayez d'utiliser ceci:
```
Public Function GetCurrentAge(ByVal dob As Date) As Integer
    Dim age As Integer
    age = Today.Year - dob.Year
    If (dob > Today.AddYears(-age)) Then age -= 1
    Return age
End Function
```
C'est la version de visual basic de haut réponses sur Jeff Atwood est très populaire question Comment dois-je calculer quelqu'un de son âge

J'ai écrit un billet de blog à propos de le calcul de l'âge à partir de la date de naissance ainsi.

InformationsquelleAutor KyleMit

Voici une manière un peu différente à l'aide de l'année et le mois de propriétés de la classe Date:

Dim BOD as string
BOD = cbomonth.text + "-" + cboday.text + "-" + txtyear.text

Dim dt As Date
If Date.TryParseExact(BOD, "MMMM-dd-yyyy", Nothing, Globalization.DateTimeStyles.None, dt) Then
    Dim Age As New Date(Now.Subtract(dt).Ticks)
    MsgBox(String.Format("Your age is : {0} Years and {1} Months", Age.Year - 1, Age.Month - 1))

Else
    MsgBox("Birth Date is in wrong format")
End If

InformationsquelleAutor tinstaafl

Voici une technique lorsque vous utilisez Visual Studio 2012
VB.NET langue

Private Sub dtpBOfD_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpBOfD.ValueChanged

        lblAge.Text = Age(dtpBOfD.Value)

    End Sub

    Public Shared Function Age(DOfB As Object) As String
        If (Month(Date.Today) * 100) + Date.Today.Day >= (Month(DOfB) * 100) + DOfB.Day Then
            Return DateDiff(DateInterval.Year, DOfB, Date.Today)
        Else
            Return DateDiff(DateInterval.Year, DOfB, Date.Today) - 1
        End If
    End Function

InformationsquelleAutor user3122495

Utiliser cette fonction

Function String2Date(ByVal sDay As String, ByVal sMonth as String, ByVal sYear as String) As Date
   StdDateString = sMonth & " " & sDay & ", " & sYear
End Function

Et de l'appliquer ..

Dim dt1 as Date = String2Date(ComboBox2.Text,ComboBox1.Text,txtYear.Text).ToShortDateString
Dim dt2 as Date = Now.ToShortDateString
Dim dt3 as TimeSpan = (dt2 - dt1)
Dim diff as Double = dt3.Days
Dim sAge as String

sAge = Str(Int(diff / 365)) & " Year "
diff = diff Mod 365
sAge = sAge & Str(Int(diff / 30)) & " Month(s)"
diff = diff Mod 30
sAge = sAge & Str(diff) & " Day(s)"

txtAge.Text = sAge

Cela suppose 365 jours dans une année (chaque quatrième a 366 - fail (365.25 serait probablement travailler la plupart du temps)) et cela suppose qu'il y a exactement 30 jours chaque mois (Feb 28 (ou 29), et il y a plusieurs mois avec 31 - fail (30.45 est assez proche, la plupart du temps)). Ci-dessous la réponse est beaucoup mieux à cet égard.

InformationsquelleAutor matzone

pour compléter l'âge de l'information utiliser ce code en c#.`

public string calculateDays(int day, int Month, int year)
{           
int Diffyear;
int DiffMonth;
int DiffDay;
int cuYear=DateTime.Now.Year;
int cuMonth=DateTime.Now.Month;
int cuDay=DateTime.Now.Day;
string Age;
Diffyear= cuYear-year;
DiffMonth=cuMonth-Month;
DiffDay=cuDay-day;
if ((DiffMonth) < 0)
{
Diffyear -= 1;
}
if ((DiffDay) < 0)
{
DiffMonth -= 1;
if ((cuMonth - 1) < 8)
{
if (((cuMonth - 1) % 2) == 0)
{
if ((cuMonth - 1) == 2)
if (cuYear % 4 == 0)
{
DiffDay = 29 + DiffDay;
}
else
{
DiffDay = 28 + DiffDay;
}
else
DiffDay = 30 + DiffDay;
}
else
DiffDay = 31 + DiffDay;
}
else
{
if (((cuMonth - 1) % 2) == 0)
{
DiffDay = 31 + DiffDay;
}
else
{
DiffDay = 30 + DiffDay;
}
}
}
if ((DiffMonth) < 0)
{
DiffMonth = DiffMonth+12;
}
if (Diffyear < 0)
{
Diffyear = Diffyear * (-1);
}
if ((DiffDay) < 0)
{
DiffDay = DiffDay * (-1);
}
Age = "Age: " + Diffyear.ToString() + " year, " + DiffMonth.ToString() + " months, " + DiffDay.ToString() + " days";
return Age;
}

Alors que cet extrait de code, peut-être de résoudre la question, y compris une explication aide vraiment à améliorer la qualité de votre post. Rappelez-vous que vous répondez à la question pour les lecteurs dans l'avenir, et ces personnes pourraient ne pas connaître les raisons de votre code suggestion.
Ce code est conçu pour obtenir de l'âge exact dans le formiate de l'âge en année, mois et jour
Exemple :- 22 ans 4 mois 4 jours. Pour une personne née 07/07/1994
Ce code est testé et cela fonctionne pour tous les jour, y compris les années bissextiles.

InformationsquelleAutor keerthi.rb

-2

Dim d1 Que la Date

Dim d2 Que la Date

d1 = Format(date de naissance.Value, "dd/MM/yyyy"

d2 = Format(Système d'.DateTime.Maintenant, "dd/MM/yyyy")

d = DateDiff(DateInterval.Année, d1, d2) d-1 fournit des informations précises âge

InformationsquelleAutor Sujith Suseelan

Vous devez vous connecter pour publier un commentaire.