TMonthCalender und das setzten und prüfen des Datums

elimhren · Beiträge: 21 D6 Prof

ihr seid meine letzte hoffnung...
um mein problem zu verstehen, bitte kurzes programm nachstellen - formular mit einem monthcalender (registerkarte win32) & einem button, dort im onclick

markieren

Delphi-Quelltext

1:
2:

 monthcalendar1.date := strtodate('15.07.03');
if monthcalendar1.Date = strtodate('15.07.03') then showmessage('hi');

warum funktioniert das nicht & viel wichtiger warum funktionierst wenn ich im kalender den 15.07.03 manuell anklicke?

vielen dank !!!
johannes

Moderiert von Tino: Titel geändert.

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Das Problem ist, dass die Eigenschaft Date im Kalender auch die Uhrzeit gespeichert hat. Du musst also einen Vergleich ohne die Uhrzeit machen.
Hier ein Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  Datum: TDate;
begin
  Datum := StrToDate('15.07.2003');
  MonthCalendar1.Date := Datum;
  if DateToStr(MonthCalendar1.Date) = DateToStr(Datum) then
    begin
      ShowMessage('Hi');
    end;
end;

Durch DateToStr wird nur das Datum in einen String verwandelt. Die Zeit wird ignoriert.

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

elimhren · Beiträge: 21 D6 Prof

danke dir!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme