Alter durch Geburtsdatum errechnen

    • VB.NET

    Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

      Alter durch Geburtsdatum errechnen

      Hallo,

      Hier ein Code mit dem man ganz einfach das Alter einer Person herausfindet, durch das Geburtsdatum.

      VB.NET-Quellcode

      1. Private Function getage(ByVal jahr As Integer, ByVal monat As Integer, ByVal tag As Integer) As Integer
      2. Dim alter As Integer = Now.Year - jahr
      3. If Now.Month = monat Then
      4. If Now.Day < tag Then
      5. alter -= 1
      6. End If
      7. ElseIf Now.Month < monat Then
      8. alter -= 1
      9. End If
      10. Return alter
      11. End Function


      ein kleines AufrufBeispiel:

      VB.NET-Quellcode

      1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      2. Button1.Text = getage(1997, 7, 15)
      3. End Sub


      lg Gugi

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gugi“ ()

      Also ich bekomme es mit weniger Code hin.

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. Dim datebetween As Date = Nothing
      6. Dim dateborn As Date = Nothing
      7. Dim datenow As Date = Nothing
      9. dateborn = New Date(1989, 8, 22)
      10. datenow = Date.Now
      12. MessageBox.Show(CStr(datenow.Subtract(dateborn).Days))
      14. End Sub
      15. End Class

      Hallo Singu,

      oft ist der Kotzfaktor geposteter Codes recht hoch.

      Deine Lösung wäre auch die Meinige, denn du verwendest die Möglichkeiten des Framework.

      Gugis Lösung ist aber auch nicht schlecht.

      Somit war hier ein Freischalten des Beitrages zu rechtfertigen.

      Gruss

      mikeb69

    Facebook