Angezeigte Tage in TMonthCalendar

[mtm2502]

Hallo zusammen

Ich habe ein kleines Problem. Ich möchte herausbekommen, welche Tage in einem TMonthCalendar-Komponente angezeigt werden, bzw. welcher Datums-Bereich (also den ersten und letzten angezeigten Tag).
Kennt einer von Euch da vielleicht eine Möglichkeit ?

Danke im Voraus
mtm2502

[Steku]

Crosspost...

http://www.delphi-forum.de/viewtopic...5c5b7c8c51a72a

[Klaus01]

Guten Abend,

sollte sich das nicht über TMonthCalendar.Date bewerkstelligen lassen.
Wenn Du dort den Monat extrahierst dann weißt Du auch den ersten und letzten Tag.

Damit sollte es funktionieren: dateUtils.monthOf(MonthCalendar1.Date)

Grüße
Klaus

[mtm2502]

Nee, das meine ich nicht. Es werden auf dem TMonthCalendar ja auch Daten vom Vormonat und Folgemonat angezeigt, falls der erste des Monats kein Montag, bzw. der letzte kein Sonntag ist.
Ich brauche also nicht den ersten und letzten des Monats, sondern den ersten und letzten Tag, der angezeigt wird.

P.S. : @Steku : Was soll mir Dein Post sagen ? Wenn Du ein Problem hast, postest Du es dann immer nur in einem Forum, wenn es doch mehrere gibt ?

[Klaus01]

.. dann solltest Du überprüfen ob der erste Tag des Monats ein Montag ist
(da sollte es auch etwas in den DateUtils für geben)
und ob der letzte Tag des Monats ein Sonntag.

Grüße
Klaus

[mtm2502]

Ich dachte da gäbe es eine Möglichkeit, direkter auf die entsprechenden Daten zuzugreifen. Ich werde es dann mal auf diese Art probieren.

Danke Dir für den Tipp

[Union]

Die Möglichkeit gibt es:

http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx

[DeddyH]

Zitat von mtm2502:

P.S. : @Steku : Was soll mir Dein Post sagen ? Wenn Du ein Problem hast, postest Du es dann immer nur in einem Forum, wenn es doch mehrere gibt ?

Wenn Du der Meinung bist, dass ein Forum alleine nicht ausreicht, kannst Du die Frage auch in mehreren stellen. Allerdings solltest Du dann auch in die jeweils anderen Foren verlinken, es kann sonst passieren, dass sich jemand den Kopf über ein Problem zerbricht, das anderswo bereits gelöst wurde. Bei gegenseitiger Verlinkung hingegen kann man sich mal eben über den aktuellen Stand der Dinge informieren. Aus diesem Grund solltest Du Steku eigentlich dankbar sein, dass er diese Aufgabe für Dich übernommen hat

[Union]

So sollte das gehen:

Delphi-Quellcode:

procedure TForm1.GetCalRange;
type
   TTimeRangeArray = Array[0..1] of _SYSTEMTIME;
   PTimeRangeArray = ^TTimeRangeArray;
var
   TimeRange : PTimeRangeArray;
begin
   GetMem(TimeRange, SizeOf(_SYSTEMTIME) * 2);
   ZeroMemory(TimeRange, sizeof(_SYSTEMTIME)*2);
   try
      SendMessage(MonthCalendar1.Handle, MCM_GETMONTHRANGE, GMR_DAYSTATE, integer(TimeRange));

      lblStartDate.Caption := DateToStr(SystemTimeToDateTime(TimeRange[0]));
      lblEndDate.Caption   := DateToStr(SystemTimeToDateTime(TimeRange[1]));
   finally
      FreeMem(TimeRange);
   end;
end;

[mtm2502]

@Union : Danke Dir, funktioniert super.

@DeddyH : OK, sehe ich ein. Beim nächsten mal mach ich das dann selbst.