29. März 2024, 16:21
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0422
  VB6: Problem beim vergleichen mit einem Datum
 Von Anfänger
 Am 26. Oktober 2009 um 16:50:56
 Frage Hallo zusammnen.
Ich habe ein Problem und hoffe ihr könnt mir weiterhelfen.
Ich habe zwei Textfelder. Einmal txtdatum.text dort steht immer das aktuelle datum.

txtdatum.text = date

Und das andere Text1.text dort kann ein beliebiges Datum über einen DTPicker eingeben werden.
Nun möchte ich beide werte vergleichen und zwar soll Text1.text rot werden wenn txtdatum >= Text1.text ist, ansonsten grün. Bisher habe ich es wie folgt gelöst:

Dim Dat1 as Double
Dim Dat2 as Double
'Prüfen, ob Datum zulässig ist.
If IsDate(Text1.text) Then
'Datumswert konvertieren
Dat1 = cDbl(Text1.text)
End If
'Prüfen, ob Datum zulässig ist.
If IsDate(txtDatum.text) Then
'Datumswert konvertieren
Dat2 = cDbl(txtDatum.text)
End IF
'Datumswerte vergleichen
If dat2 >= dat1 Then
Text1.Backcolor = vbred
Else
Text1.Backcolor = vbgreen
End If

Es klappt auch wunderbar, aber nur wenn sich beide Datumswerte im gleichen Jahr befinden. Wenn ich aber z.B. für txtdatum einen Wert aus 2009 habe und für Text1 einen Wert aus 2010 funktioniert es nicht mehr. Ich weiß absolut nicht warum!!! Kann mir einer weiterhelfen???
Schonmal danke im voraus.

Gruß Anfänger
[ VB-/VBA-Forum | Archiv 0422 | Archiv-Übersicht ]
 Antworten
VB6: Problem beim vergleichen mit einem Datum - Anfänger 26. Oktober 2009 um 16:50:56
Re: Problem beim vergleichen mit einem Datum - LotharK 26. Oktober 2009 um 17:18:10
Re: Problem beim vergleichen mit einem Datum - r.mueller 26. Oktober 2009 um 20:50:48

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum