In diesem Tutorial wird gezeigt, wie Sie Datumsangaben mit VBA formatieren.
Datumsangaben in VBA formatieren
Es gibt zwei Methoden, um Datumsangaben mit VBA zu formatieren.
- Die NumberFormat-Eigenschaft von Cells / Ranges - Um in Zellen gespeicherte Datumsangaben zu formatieren
- Die VBA-Formatierungsfunktion - Um Datumsangaben in VBA zu formatieren (z. B. Variablen)
Zahlenformat - Datumsangaben
Das Standardzahlenformat einer Zelle in Excel ist Allgemein. Sie können Werte als Zahlen, Text, Datumsangaben, Prozentsätze oder Währungen anzeigen, indem Sie das Zahlenformat ändern. Die NumberFormat-Eigenschaft kann in VBA verwendet werden, um das Zahlenformat von Datumsangaben in einer Zelle oder einem Bereich festzulegen.
Notiz: Um die verschiedenen in Excel verfügbaren Standard-Datumsformate anzuzeigen, gehen Sie zu Start>Zahl und Sie sehen Optionen wie kurzes Datum, langes Datum und Uhrzeit.
Kurzes Date
Die Formatierungsoption Kurze Datumsnummer zeigt das Datum in einem kurzen, numerischen Format an.
Der folgende Code legt die .NumberFormat-Eigenschaft der Zelle A1 auf kurzes Datum fest:
| 1 | Range("A1").NumberFormat = "mm/tt/jjjj" |
Langes Datum
Bei der Zahlenformatierung für lange Datumsangaben wird das Datum in einem längeren, geschriebenen Format angezeigt. Der folgende Code legt die .NumberFormat-Eigenschaft der Zelle A1 auf Langes Datum fest:
| 1 | Range("A1").NumberFormat = "dddd, mmmm dd, yyyy" |
Benutzerdefinierte Daten
Um die benutzerdefinierten Zahlenformatcodes anzuzeigen, die Sie in VBA zum Formatieren von Datumsangaben verwenden können, gehen Sie zu Start>Zahl und klicken Sie auf das Startprogramm für das Dialogfeld. Wählen Sie die Registerkarte Nummer und wählen Sie Benutzerdefiniert.
Sie können entweder die benutzerdefinierten integrierten Formate für Ihr Datum auswählen oder Ihre eigenen benutzerdefinierten Datumsformate erstellen. Der folgende Code legt die .NumberFormat-Eigenschaft von Zelle A1 auf ein integriertes benutzerdefiniertes Datumsformat fest:
| 1 | Range("A1").NumberFormat = "mmm-yy" |
Das Ergebnis ist:
Der folgende Code legt die .NumberFormat-Eigenschaft von Zelle A1 auf ein benutzerdefiniertes benutzerdefiniertes Datumsformat fest:
| 1 | Range("A1").NumberFormat = "dddd-dd-mmm-yy" |
Das Ergebnis ist:
Indem Sie sich die vorgefertigten Beispiele von Excel ansehen, erfahren Sie, wie Zahlenformate eingegeben werden sollten. Weitere Informationen finden Sie in der Microsoft-Dokumentation zu Zahlenformaten für Datumsangaben.
VBA-Formatierungsfunktion
Wie oben erwähnt, eignet sich die NumberFormat-Methode zum Festlegen des Zahlenformats von Datumsangaben, die in Excel-Zellen gespeichert sind. In VBA können Sie die Formatfunktion verwenden, um Datumsangaben in Zeichenfolgen mit einer bestimmten Datumsformatierung zu konvertieren.
Sie würden die folgende Syntax verwenden, um Datumsangaben zu formatieren:
Format(String_Representation, NumberFormatCode) wobei:
String_Representation - die Textzeichenfolge, die das Datum darstellt.
NumberFormatCode - der Zahlenformatcode, der angibt, wie das Datum angezeigt werden soll.
Der folgende Code zeigt, wie Sie eine Textzeichenfolgendarstellung eines Datums als langes Datumsformat formatieren:
| 1 | MsgBox-Format("01.01.2010", "dddd, mmmm tt, yyyy") |
Das Ergebnis ist:
Beachten Sie, dass die Formatfunktion dieselbe Datumsformatierungssyntax wie das obige NumberFormat verwendet.
Der folgende Code zeigt, wie Sie eine Textzeichenfolgendarstellung eines Datums als mittleres Datumsformat formatieren:
| 1 | MsgBox-Format("09. Oktober 2012", "Mittleres Datum") |
Das Ergebnis ist:
Der folgende Code zeigt, wie Sie eine Textzeichenfolgendarstellung eines Datums als benutzerdefiniertes Format formatieren:
| 1 | MsgBox-Format("09. Oktober 2012", "dddd: dd/mm/yy") |
VBA Custom Format Builder
Unser VBA-Add-In: AutoMacro enthält einen Custom Format Builder für den VBA-Editor. Auf diese Weise können Sie benutzerdefinierte Formate festlegen und die Ausgabe sofort für Ihren gewünschten Wert anzeigen:
Das VBA-Add-In enthält zahlreiche weitere „Codegeneratoren“, eine umfangreiche Codebibliothek und eine Auswahl weiterer Codierungstools. Es ist das ultimative Add-In für alle, die sich ernsthaft mit der VBA-Programmierung beschäftigen!
Datum im VBA-Format in Access
Die Funktion VBA Format Date funktioniert in Access VBA genauso wie in Excel VBA.
| 12345678910 | Funktion GetDateFilter() As String'Erstellen Sie eine Zeichenfolge, um Informationen aus 2 Datumsfeldern in einem Formular in Access abzurufenDim strDateField As StringIf IsNull(Me.txtSDate) = False ThenIf IsNull(Me.txtEDate) = True Then Me.txtEDate = Me.txtSDateWenn strDateField2 = "" ThenGetDateFilter = strDateField & " Between #" & Format(Me.txtSDate, "mm/dd/yyyy") & "# And #" & Format(Me.txtEDate, "mm/dd/yyyy") & "#"Ende WennEnde WennEndfunktion |
