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
|
|