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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.