Ist dieses Daum vor diesem Datum?

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von der_Kurt.

    Ist dieses Daum vor diesem Datum?

    Tach!

    Ich hab zwei date Werte. Beide sind in einem Datimepicker.
    Jetzt möchte ich überprüfen ob das Datum.Value in dem einem Picker vor dem datum des anderen lieght.
    Also zb 4.Dezember ligt vor dem 10.Dezember!

    schau mal, ein kleines Beispiel...

    VB.NET-Quellcode

    1. ' exaktes Alter berechnen
    2. Public Function ExactAge(ByVal Birthday As System.DateTime) As Integer
    3. Dim nMonth As Integer
    4. Dim nYears As Integer
    6. ' Alter (Jahre) anhand Monatsdifferenz / 12 ermitteln
    7. nYears = Math.Floor(DateDiff(DateInterval.Month, Birthday, DateTime.Now) / 12)
    9. ' Wenn Geburtsmonat = aktueller Monat
    10. ' Prüfen, ob Geburstag schon war oder noch kommt
    11. ' und ggf. das Alter um 1 Jahr verringern
    12. nMonth = DatePart(DateInterval.Month, Birthday)
    13. If nMonth = DatePart(DateInterval.Month, DateTime.Now) Then
    14. If DatePart(DateInterval.Day, Birthday) > DatePart(DateInterval.Day, DateTime.Now) Then
    15. nYears += -1
    16. End If
    17. End If
    19. Return nYears
    20. End Function
    21. Beispiel:
    22. ' Annahme: Geburtsdatum = 13.04.1972
    23. Dim Birthday As New System.DateTime(1972, 4, 13)
    24. MessageBox("Alter: " & ExactAge(Birthday).ToString)

    wenn du das verstehst müsstest du weiter kommen

    Sonst ist hier noch ein Tut:

    VB.NET-Quellcode

    1. Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
    2. Dim dt As Date = DateTimePicker2.Value
    3. Dim ts As TimeSpan = dt.Subtract(DateTimePicker1.Value)
    4. Dim differenz As Integer = ts.TotalDays
    6. If differenz > 0 Then
    7. Label1.Text = "Ja"
    8. Else
    9. Label1.Text = "Nein"
    10. End If
    11. End Sub

Facebook
Telefonspende