{"id":3863,"date":"2009-09-24T21:08:05","date_gmt":"2009-09-24T19:08:05","guid":{"rendered":"http:\/\/funrecycler.com\/?p=3863"},"modified":"2009-09-24T21:08:05","modified_gmt":"2009-09-24T19:08:05","slug":"vb-net-datum","status":"publish","type":"post","link":"https:\/\/funrecycler.com\/index.php\/2009\/09\/24\/vb-net-datum\/","title":{"rendered":"VB.Net – Datum"},"content":{"rendered":"

Des \u00f6fteren habe ich das Problem das ich eine Datei mit einen Datum versehen m\u00f6chte. Zum Beispiel soll ein Logfile erstellt werden in welchen das Datum im Dateinamen enthalten ist. Man k\u00f6nnte nun ganz einfach das heutige Datum nehmen und daraus den Dateinamen bilden. Dies w\u00fcrde dann so aussehen:
\n
\n24.09.2009_log.txt oder 24. September 2009_log.txt
\nDiese Sonderzeichen („.“) sind unter Windows durchaus zul\u00e4ssig und Windows kann mit solchen Sonderzeichen umgehen. Wie hier<\/a> nach zu lesen ist, d\u00fcrfen nur diese Sonderzeichen „< > ? “ : | \\ \/ *“ nicht in Dateinamen verwendet werden. Doch trennt der Punkt eigentlich die Dateierweiterung vom Dateinamen. Etwas eleganter k\u00f6nnte es so aussehen:
\n2009_09_24_log.txt oder 24_september_2009.txt
\nWobei die Angabe Jahr, Monat, Tag sich perfekt f\u00fcr die Sortierung an Hand des Dateinamen eignet.
\nNun zum praktischen.<\/p>\n

Public date_complete(5) as String<\/pre>\n
In diesen Beispiel lege ich eine globale Variable(Array) an, um sp\u00e4ter komfortabel \u00fcberall darauf zu zugreifen.<\/p>\n
Public Sub func_full_date<\/pre>\n
Ein Funktion ist nicht notwendig, da ich die globale Variablen innerhalb der Sub best\u00fccke. Also kein Return.<\/p>\n
Dim datum As Date<\/pre>\n
Datums Variable definieren.<\/p>\n
date_complete(0) = datum.today.Year<\/pre>\n
Das Jahr in das erste Arrayfeld.<\/p>\n
If datum.today.Month < = 9 Then\n    date_complete(1) = \"0\" & datum.today.Month\nElse\n    date_complete(1) = datum.today.Month\nEnd If<\/pre>\n
Pr\u00fcfen ob der Monat unter 10 liegt um nicht z.B. 9 sondern 09 zu erhalten, deswegen auch das Array als String.<\/p>\n
If datum.today.day < = 9 Then\n    date_complete(2) = \"0\" & datum.today.day\nElse\n    date_complete(2) = datum.today.day\nEnd If<\/pre>\n
Tage<\/p>\n
If datum.today.hour < = 9 Then\n    date_complete(3) = \"0\" & datum.today.Hour\nElse\n    date_complete(3) = datum.today.Hour\nEnd If<\/pre>\n
Stunden<\/p>\n
If datum.today.Minute < = 9 Then\n    date_complete(4) = \"0\" & datum.today.minute\nElse\n    date_complete(4) = datum.today.minute\nEnd If<\/pre>\n
Minuten<\/p>\n
If datum.today.Second < = 9 Then\n    date_complete(5) = \"0\" & datum.today.Second\nElse\n    date_complete(5) = datum.today.Second\nEnd If<\/pre>\n
Sekunden<\/p>\n
End Sub<\/pre>\n
Wie man sehen kann fange ich die Zahlen kleiner 10 ab und setze ein Null davor. Somit erh\u00e4lt man das Datum 2009_09_24 anstatt 2009_9_24.
\nDie Sub nutzt man wie folgt:<\/p>\n
call func_full_date<\/pre>\n
Sub aufrufen > date_complete wird mit dem aktuellen Datum und der aktuellen Uhrzeit best\u00fcckt.
\nDas Array ist nach dem ausf\u00fchren der Sub mit folgenden Werten gef\u00fcllt.<\/p>\n
date_complete(0) = 2009 'Jahr\ndate_complete(1) = 09 'Monat\ndate_complete(2) = 24 'Tag\ndate_complete(3) = 20 'Stunde\ndate_complete(4) = 50 'Minuten\ndate_complete(5) = 20 'Sekunden<\/pre>\n
Hier noch die komplette Funktion.<\/p>\n
Public Sub func_full_date\nDim datum As Date\ndate_complete(0) = datum.today.Year\nIf datum.today.Month < = 9 Then\n    date_complete(1) = \"0\" & datum.today.Month\nElse\n    date_complete(1) = datum.today.Month\nEnd If\nIf datum.today.day < = 9 Then\n    date_complete(2) = \"0\" & datum.today.day\nElse\n    date_complete(2) = datum.today.day\nEnd If\nIf datum.today.hour < = 9 Then\n    date_complete(3) = \"0\" & datum.today.Hour\nElse\n    date_complete(3) = datum.today.Hour\nEnd If\nIf datum.today.Minute < = 9 Then\n    date_complete(4) = \"0\" & datum.today.minute\nElse\n    date_complete(4) = datum.today.minute\nEnd If\nIf datum.today.Second < = 9 Then\n    date_complete(5) = \"0\" & datum.today.Second\nElse\n    date_complete(5) = datum.today.Second\nEnd If\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"
Des \u00f6fteren habe ich das Problem das ich eine Datei mit einen Datum versehen m\u00f6chte. Zum Beispiel soll<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,14],"tags":[707,2815,2819],"class_list":["post-3863","post","type-post","status-publish","format-standard","hentry","category-computer-und-technik","category-programmieren","tag-datum-formatieren","tag-vbnet","tag-vb-net-daumsformate"],"_links":{"self":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/3863","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/comments?post=3863"}],"version-history":[{"count":0,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/posts\/3863\/revisions"}],"wp:attachment":[{"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/media?parent=3863"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/categories?post=3863"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/funrecycler.com\/index.php\/wp-json\/wp\/v2\/tags?post=3863"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}