{"id":55000852,"date":"2012-10-01T00:00:00","date_gmt":"2020-05-22T21:48:19","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=852"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Datumsbereiche_auswaehlen_Version_20","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Datumsbereiche_auswaehlen_Version_20\/","title":{"rendered":"Datumsbereiche auswählen, Version 2.0"},"content":{"rendered":"

\"\"<\/p>\n

In Ausgabe 4\/2010 haben wir unser Tool zur einfachen Auswahl von Datumsbereichen vorgestellt. Dieses haben wir nun überarbeitet und um eine neue Methode zum Aufrufen des Formulars erweitert. Welche änderungen nötig sind und wie Sie das Formular zum Auswählen von Datumsbereichen nun nutzen, erfahren Sie im vorliegenden Beitrag.<\/b><\/p>\n

Das Formular zur Datumsauswahl zeigt die Daten eines kompletten Jahres an und ermöglicht es, bei gedrückter Maustaste einen Datumsbereich zu markieren. Dies ist insbesondere interessant, wenn Sie einen Zeitraum markieren und das Start- und das Enddatum weiterverarbeiten möchten.<\/p>\n

In der ersten Version des Auswahldialogs für Datumsbereiche (siehe Datumsbereiche auswählen<\/b>, www.access-im-unternehmen.de\/729<\/b>) konnten Sie dazu ausschließlich zwei Textfelder angeben, die dann mit den ausgewählten Datumsangaben gefüllt wurden.<\/p>\n

Die Klasse clsDatumsauswahl <\/b>brachte dazu alles Nötige mit – Sie brauchten nur noch ein Objekt auf Basis der Klasse zu deklarieren, diese zu instanzieren und das Formular und die beiden zu verwendenden Textfelder anzugeben – schon funktionierte die Datumsauswahl.<\/p>\n

In diesem Beitrag fügen wir der Lösung noch weitere Features hinzu. Das erste ist die Möglichkeit, die Klasse auch von VBA-Code aus aufzurufen, ohne gleich ein Formular oder die zu füllenden Textfelder anzugeben.<\/p>\n

Die gewählten Datumsangaben können dann einfach per Eigenschaft der Klasse ausgelesen und weiterverwendet werden.<\/p>\n

Außerdem ergänzen wir das Formular zur Auswahl der Zeiträume um Schaltflächen, mit denen Sie um jeweils einen Monat beziehungsweise ein Jahr vor- oder zurückspringen können. Bild 1 zeigt die neue Version des Formulars mit den vier Schaltflächen zum ändern des angezeigten Zeitraums.<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Formular zur Auswahl von Datumsbereichen<\/span><\/b><\/p>\n

<\/p>\n

Aufruf per VBA<\/b><\/p>\n

Zum Start zeigen wir Ihnen, wie Sie den Dialog zur Datumsauswahl – neben der bereits vorhandenen Möglichkeit – auch noch per VBA aufrufen können.<\/p>\n

Dies gelingt wie in der folgenden Beispielprozedur, die Sie in der Beispieldatenbank im Modul mdlSample <\/b>finden:<\/p>\n

Public Sub Sample()\r\n    Dim objDatumsauswahl As clsDatumsauswahl\r\n    Dim datStart As Date\r\n    Dim datEnde As Date\r\n    Set objDatumsauswahl = New clsDatumsauswahl\r\n    With objDatumsauswahl\r\n        .Startdate = Date\r\n        .Enddate = Date + 10\r\n        .DatumsauswahlStarten\r\n        datStart = .Startdate\r\n        datEnde = .Enddate\r\n    End With\r\n    Debug.Print datStart, datEnde\r\nEnd Sub<\/pre>\n
Die Prozedur deklariert zunächst ein Objekt des Typs clsDatumsauswahl<\/b> sowie zwei Variablen zum Speichern des Start- und des Enddatums, das mit dem Dialog zur Datumsauswahl ermittelt wurde. Danach instanziert die Prozedur ein neues Objekt auf Basis der Klasse clsDatumsauswahl<\/b>.<\/p>\n
In einem With…EndWith<\/b>-Konstrukt stellt die Prozedur nun zunächst die Eigenschaft Startdate <\/b>auf das aktuelle, mit der Date<\/b>-Funktion ermittelte Datum ein.<\/p>\n
Die Eigenschaft Enddate <\/b>soll der Einfachheit halber ein Datum anzeigen, das zehn Tage hinter dem aktuellen Datum liegt (Date + 10<\/b>).<\/p>\n
Auf diese Weise übergeben Sie der Klasse bereits ein vorgefertigtes Datumsintervall, das gleich beim Öffnen angezeigt wird (s. Bild 2).<\/p>\n
\"pic002.png\"<\/p>\n
Bild 2: Datumsauswahl mit vorgegebenem Intervall<\/span><\/b><\/p>\n
Der Aufruf der Methode DatumsauswahlStarten <\/b>sorgt schließlich für die Anzeige des Formulars zur Datumsauswahl. Dieses wird als modaler Dialog angezeigt, der aufrufende Code wird also erst fortgeführt, wenn der Benutzer das Formular schließt.<\/p>\n
Gleich in den nächsten Zeilen können Sie daher nach dem Schließen des Formulars die in den beiden Eigenschaften Startdate <\/b>und Enddate <\/b>gespeicherten Daten auslesen. In diesem Fall werden sie in den Variablen datStart <\/b>und datEnde <\/b>gespeichert und mit einer Debug.Print<\/b>-Anweisung im Direktfenster ausgegeben.<\/p>\n
Integration in eigene Anwendungen<\/b><\/p>\n
Um das Tool in die eigene Anwendung zu integrieren, importieren Sie die folgenden Elemente:<\/p>\n