[vb.net] Datetimepicker Problem

[vb.net] Datetimepicker Problem kleines Remindertool

#1 _Der dom_

Gruppe: Gäste

geschrieben 08. Mai 2009 - 13:41

Moin,

folgendes Problem stellt sich mir in den Weg:

Ich habe eine Hauptform, darin soll eine IF Bedingung stehen, die den Wert eines DateTimePickers in einer Subform (Termine) abruft und mit dem jetzigen Systemdatum vergleichen soll. Wenn der gespeicherte Wert (wird in ner Access DB gespeichert) des DateTimePickers mit dem jetzigen Datum übereinstimmt, soll eine MsgBox erscheinen.

Soweit so gut. Habe schon im Form_Load der Hauptform folgenden Code

If Termine.DatumDateTimepicker.value = now then
 msgbox ("Es sind Termine fällig")
end if

Das sollte auch soweit funktionieren ABER. Jetzt kommt das Problem. Soweit ich weiß zieht sich der DateTimePicker die Uhrzeit noch aus dem System. So kann ich ja das Datum nicht den ganzen Tag vergleichen. Ich hatte es auch schon so versucht:

if termine.datumtextbox.text = now then
msgbox ("Es sind Termine fällig")
end if

Funktioniert auch nicht, dann meckert er, dass er den Inhalt nicht in Date konvertieren kann.

Jemand eine Idee wie ich das am besten hinbekomme!?!?!

Nach oben
Nach oben of the page up there ^

#2 aeris

WinFuturianer

Gruppe: aktive Mitglieder
Beiträge: 129
Beigetreten: 06. September 08
Reputation: 12
Geschlecht:unbekannt

geschrieben 09. Mai 2009 - 12:26

Wenn du dem DateTimePicker eine Zeit setzt, bleibt diese auch.

Dein Vergleich ob die Zeit des DateTimePickers gleich DateTime.Now ist funktioniert allerdings nicht, da DateTime.Now viel genauer ist und es daher höchst unwahrscheinlich ist, dass du die exakte Millisekunde triffst.

Was du allerdings machen kannst ist abfragen ob der Termin bereits vergangen ist, Beispiel:

'messagebox schon gezeigt?
Dim shown As Boolean = False

'vergleich in einem tickenden timer oder aehnlichem
If shown = False AndAlso DateTime.Now > DateTimePicker1.Value Then
	   shown = True
	   MessageBox.Show("Triggered")
End If

Wenn du allerdings nur das Datum kontrollieren willst, kannst du auch nur das Datum abfragen:

If DateTimePicker1.Value.Day = DateTime.Now.Day AndAlso DateTimePicker1.Value.Month = DateTime.Now.Month Then
	   MessageBox.Show("Triggered 2")
End If