Anzahl seiner Tage ermitteln... Mit diesem Code können Sie ganz einfach herausfinden, wieviele Tage Sie alt sind.
Autor:   Samir Ben Kheder	Bewertung:     [ Jetzt bewerten ]	Views:  6.083
www.bk-software.de	System:  Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 43 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit diesem Code können Sie ganz einfach herausfinden, wieviele Tage Sie alt sind.
Außerdem können Sie diesen Code auch leicht verändern um z.B herauszufinden wieviel Minuten Sie alt sind!

Platzieren Sie eine TextBox (TextBox1), einen Button (Button1) und ein Label-Control (Label1) auf die Form und fügen folgenden Code ein:

Option Strict On
Public Class Form1
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
      Dim jetzt As DateTime
      Dim früher As DateTime
      jetzt = Now
      früher = Date.Parse(Me.TextBox1.Text)   ' <-- Geburtsdatum!
      Dim ergebnis As TimeSpan
      ergebnis = jetzt - früher
      Me.Label6.Font = New Font("Arial", 12, FontStyle.Bold)
 
      ' Ergebnis anzeigen...
      Me.Label6.Text = String.Format _
              ("Sie sind {0} Tage alt.", Math.Round(ergebnis.TotalDays))
    Catch ex As Exception
      MsgBox("Fehler beim Ermittlen der Tage!" & vbCrLf & _
        "Evtl. haben Sie ein ungültiges Datum angegeben!", MsgBoxStyle.Critical)
    End Try
  End Sub
 
End Class