If the specified date is a birthday, the function returns the number of ' months since the last birthday. ' StartDate: The beginning date (for example, a birthday). ' Months since the last birthday. Function AgeMonths(ByVal StartDate As String) As Integer Dim tAge As Double tAge = (DateDiff("m", StartDate, Now)) If (DatePart("d", StartDate) > DatePart("d", Now)) Then tAge = tAge - 1 If tAge < 0 Then tAge = tAge + 1 AgeMonths = CInt(tAge Mod 12) Testen der Funktionen Age() und AgeMonths() Führen Sie die folgenden Schritte aus, um die Funktionen Age() und AgeMonths() zu testen. Wichtig In den folgenden Schritten werden Sie aufgefordert, das Datum auf Ihrem Computer zu ändern. Funktionen in access.com. Stellen Sie sicher, dass Sie Schritt 6 ausführen, um das Datum auf das aktuelle Datum zurückzusetzen. Notieren Sie sich mithilfe des Datums-/Uhrzeittools in Systemsteuerung das aktuelle Datum, und legen Sie dann das Datum auf den 3. Juni 2001 fest. Öffnen Sie ein Modul, oder erstellen Sie ein neues Modul. Klicken Sie im Ansichtsmenü auf "Direktfenster".
Dabei ist die Funktion teilweise schwer einzuschätzen. Während die IstDatum -Funktion zum Beispiel eine Zahl wie 33333 nicht als Datum erkennt, wandelt die ZDatum -Funktion diesen Wert in ein Datum um: Bild 3: Das Konvertieren ungültiger Datumsangaben liefert eine Fehlermeldung. CDate(33333) 05. 04. 1991 Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket! Hier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]: Zur Bestellung... Danach greifen Sie sofort auf alle rund 400 Artikel unseres Angebots zu - auch auf diesen hier! Funktionen in access database. Oder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:
Ich benutze sie häufig, wenn ich im Access SQL-Editor arbeite, was nicht allzu oft der Fall ist, da die Benutzerfreundlichkeit insgesamt begrenzt ist. - Aber das könnte sich in Zukunft verbessern… Verbesserungen am Beziehungsfenster Im Access Beziehungsfenster können jetzt mehrere Tabellen ausgewählt werden. Im Kontextmenü des Beziehungsfensters gibt es neue Einträge, um die jeweilige Tabelle direkt zu öffnen und Tabellen automatisch auf die kleinste passende Größe anpassen. Neue Task Pane "Tabellen hinzufügen" Ich habe gemischte Gefühle bezüglich der neuen Task Pane "Tabellen hinzufügen" für die Entwurfsansicht von Abfragen. Funktionen in access youtube. Sicher, das alte "Show Tables" -Fenster war unkomfortable und im Vergleich dazu ist das neue Fenster deutliche eine Verbesserung. Andererseits ist dies nur eine geringfügige Verbesserung, und man hätte das alte Fenster wahrscheinlich mit weniger Aufwand nicht modal und veränderbar machen können und das Ergebnis wäre fast genauso gut gewesen. Außerdem bot Drag&Drop von Tabellen aus dem Navigationsbereich in die Abfrage bereits eine ähnliche Nutzungmöglichkeit.
Die mangelnde Performance von VBA allein ist jedoch noch nicht der einzige Bremsschuh. Um dies zu erläutern, betrachten wir ein Beispiel, welches die Abfrage aus Bild 1 um eine benutzerdefinierte Funktion erweitert (siehe Bild 3). Die VBA-Funktion fux ist im Modul mdlTest der Beispieldatenbank so angelegt: Bild 3: Abfrage mit zusätzlich eingefügter VBA-Funktion Function fux(lId As Long) As Long fux = lId End Function Sie tut nichts anderes, als den ihr übergebenen Wert als Resultat wieder zurückzugeben. Genauso gut hätte man für die Abfragenspalte n auch auch schlicht das Feld ID direkt einsetzen können. Um die Performance dieser Abfrage zu prüfen, existiert im Modul mdlTest eine Routine TestPerformance, die in einer Schleife hundertmal ein Recordset auf die Abfrage öffnet und alle Datensätze durchläuft. Die dafür benötigte Zeit wird gemessen. Sie ist in Listing 1 zu finden und wird später noch gesondert beleuchtet. Verschachtelte Wennfunktion in access - Supportnet Forum. Im VBA-Direktfenster gibt sie schließlich die benötigte Zeit für ihre Ausführung aus.