\n
Montag und Sonntag ermitteln<\/b><\/p>\n
Einige Anwendungsfälle benötigen das Datum eines Montags oder Sonntags für eine Kalenderwoche oder ein gegebenes Datum. Die beiden Routinen aus Listing 1 und Listing 2 erledigen Letzteres: Sowohl MontagErmitteln <\/b>als auch SonntagErmitteln <\/b>erwarten ein Datum als Parameter, zu dem die Routine dann den vorherigen Montag oder den folgenden Sonntag berechnet. Ein Einsatzfall ist etwa der Monatskalender in Berichtsform aus [1].<\/p>\n
Public Function MontagErmitteln(dateReferenzdatum As Date) As Date\r\n Dim dateTemp As Date\r\n dateTemp = dateAusgangsdatum\r\n Select Case Weekday(dateTemp)\r\n Case Is > 2\r\n MontagErmitteln = _
DateAdd("d", dateTemp, -Weekday(dateTemp) + 2)\r\n Case 2\r\n MontagErmitteln = dateTemp\r\n Case 1\r\n MontagErmitteln = DateAdd("d", dateTemp, -6)\r\n End Select\r\nEnd Function<\/pre>\n<\/p>\nPublic Function SonntagErmitteln(dateReferenzdatum As Date) As Date\r\n Dim dateTemp As Date\r\n dateTemp = dateAusgangsdatum\r\n Select Case Weekday(dateTemp)\r\n Case 1\r\n SonntagErmitteln = dateTemp\r\n Case Is > 1\r\n SonntagErmitteln = DateAdd("d", dateTemp, 8 - Weekday(dateTemp))\r\n End Select\r\nEnd Function<\/pre>\nKalenderwoche ermitteln<\/b><\/p>\n
Ebenfalls in [1] wird die Funktion Kalenderwoche <\/b>benötigt, die zu einem Referenzdatum die passende Kalenderwoche ermittelt (s. Listing 3). Die Funktion setzt voraus, dass die erste Woche diejenige ist, die vier Tage des neuen Jahres enthält. Der übergabeparameter ist vom Typ Date<\/b>, der Rückgabewert ist eine Integer<\/b>-Zahl.<\/p>\n
Function Kalenderwoche(dateReferenzdatum As Date) _
As Integer\r\n Kalenderwoche = _
Format(dateReferenzdatum, "ww", vbMonday, _
vbFirstFourDays)\r\n If Kalenderwoche > 52 Then\r\n If Format(dateReferenzdatum + 7, _
"ww", vbMonday, vbFirstFourDays) = 2 Then \r\n Kalenderwoche = 1\r\n End If\r\n End If\r\nEnd Function<\/pre>\n<\/p>\n
Datum für SQL-Anweisung aufbereiten<\/b><\/p>\n
Mit Datumswerten in SQL-Anweisungen gibt es immer wieder Probleme. Allerdings nicht, wenn Sie einen Ausdruck wie diesen hier verwenden:<\/p>\n
SELECT KalenderdatumID, Kalenderdatum\r\nFROM tblKalenderdaten WHERE Kalenderdatum = #2006\/1\/1#;<\/pre>\nNun müssen Sie ihn nur noch per VBA zusammenstellen, und das geht ganz einfach: Eine wichtige Rolle spielt dabei die Funktion SQLDatum<\/b> aus Listing 4. Sie erwartet einen Datumswert als Parameter und wandelt diesen mit der Format<\/b>-Funktion in einen Ausdruck im passenden Format um. In einer VBA-Routine setzen Sie diese Funktion etwa wie in der Beispielprozedur aus Listing 5 ein.<\/p>\n
Public Function SQLDatum(dateDatum As Date) As String\r\n SQLDatum = Format(dateDatum, "\\#yyyy\\-mm\\-dd\\#")\r\nEnd Function<\/pre>\n<\/p>\nPublic Sub SQLAnweisungMitDatum()\r\n Dim dateDatum As Date\r\n Dim strSQL As String\r\n dateDatum = "1.1.2006"\r\n strSQL = "SELECT * FROM tblDaten WHERE Beispieldatum = " & _
SQLDatum(dateDatum)\r\n Debug.Print strSQL\r\nEnd Sub<\/pre>\nGUIDs erstellen<\/b><\/p>\n
Wenn Sie einmal mit GUIDs arbeiten, möchten Sie diese gegebenenfalls schnell per VBA-Funktion erstellen können. Da VBA in dieser Hinsicht keine Standardfunktion liefert, reichen wir diese nach. Die Funktion CreateGUID <\/b>erfordert den Einsatz zweier API-Funktionen und eines passenden Typs (s. Listing 6). Der Aufruf lautet etwa Debug.Print CreateGuid<\/b> und liefert einen Wert wie {C568B4F7-D926-465B-B56D-FA417DD7F5C7}<\/b>.<\/p>\n
Private Declare Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As _\r\n GUID) As Long\r\nPrivate Declare Function StringFromGUID2 Lib "ole32.dll" (rGUID As Any, _\r\n ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long\r\nPrivate Type GUID\r\n Data1 As Long\r\n Data2 As Integer\r\n Data3 As Integer\r\n Data4(0 To 7) As String * 1\r\nEnd Type\r\nFunction CreateGUID() As String\r\n Const clLen As Long = 50\r\n Dim sGUID As String\r\n Dim tGUID As GUID\r\n Dim bGuid() As Byte\r\n Dim lRtn As Long\r\n If CoCreateGuid(tGUID) = 0 Then\r\n bGuid = String(clLen, 0)\r\n lRtn = StringFromGUID2(tGUID, VarPtr(bGuid(0)), clLen)\r\n If lRtn > 0 Then\r\n sGUID = Mid$(bGuid, 1, lRtn - 1)\r\n End If\r\n CreateGUID = sGUID\r\n End If\r\nEnd Function<\/pre>\nQuellen<\/p>\n
[1] Monatskalender als Bericht drucken, Ausgabe 1\/2007, Shortlink 434<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
VBAFunktionen97.mdb<\/p>\n
VBAFunktionen.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"In dieser Rubrik liefern wir Ihnen in jeder Ausgabe von Access im Unternehmen einige interessante VBA-Funktionen, mit denen Sie den Funktionsumfang von VBA erweitern können.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012007,662007,44000025],"tags":[],"class_list":["post-55000436","post","type-post","status-publish","format-standard","hentry","category-66012007","category-662007","category-VBA_und_Programmiertechniken"],"yoast_head":"\n
VBA-Funktionssammlung - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA-Funktionssammlung\" \/>\n<meta property=\"og:description\" content=\"In dieser Rubrik liefern wir Ihnen in jeder Ausgabe von Access im Unternehmen einige interessante VBA-Funktionen, mit denen Sie den Funktionsumfang von VBA erweitern können.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-11T21:08:20+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg04.met.vgwort.de\/na\/6b93652132614ee08553ad315a121f69\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"3\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"VBA-Funktionssammlung\",\"datePublished\":\"2021-02-11T21:08:20+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/\"},\"wordCount\":365,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/6b93652132614ee08553ad315a121f69\",\"articleSection\":[\"1\\\/2007\",\"2007\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/\",\"name\":\"VBA-Funktionssammlung - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/6b93652132614ee08553ad315a121f69\",\"datePublished\":\"2021-02-11T21:08:20+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/6b93652132614ee08553ad315a121f69\",\"contentUrl\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/6b93652132614ee08553ad315a121f69\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBAFunktionssammlung\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"VBA-Funktionssammlung\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"VBA-Funktionssammlung - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/","og_locale":"de_DE","og_type":"article","og_title":"VBA-Funktionssammlung","og_description":"In dieser Rubrik liefern wir Ihnen in jeder Ausgabe von Access im Unternehmen einige interessante VBA-Funktionen, mit denen Sie den Funktionsumfang von VBA erweitern können.","og_url":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-11T21:08:20+00:00","og_image":[{"url":"http:\/\/vg04.met.vgwort.de\/na\/6b93652132614ee08553ad315a121f69","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"3\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"VBA-Funktionssammlung","datePublished":"2021-02-11T21:08:20+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/"},"wordCount":365,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#primaryimage"},"thumbnailUrl":"http:\/\/vg04.met.vgwort.de\/na\/6b93652132614ee08553ad315a121f69","articleSection":["1\/2007","2007","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/","url":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/","name":"VBA-Funktionssammlung - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#primaryimage"},"thumbnailUrl":"http:\/\/vg04.met.vgwort.de\/na\/6b93652132614ee08553ad315a121f69","datePublished":"2021-02-11T21:08:20+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#primaryimage","url":"http:\/\/vg04.met.vgwort.de\/na\/6b93652132614ee08553ad315a121f69","contentUrl":"http:\/\/vg04.met.vgwort.de\/na\/6b93652132614ee08553ad315a121f69"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/VBAFunktionssammlung\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"VBA-Funktionssammlung"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000436","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000436"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000436\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000436"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000436"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000436"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}