ten samouczek pokaże, jak formatować daty za pomocą VBA.
formatowanie dat w VBA
istnieją dwie metody formatowania dat przy użyciu VBA.
- właściwość NumberFormat komórek / zakresów – do formatowania dat zapisanych w komórkach
- funkcja formatu VBA – do formatowania dat w VBA (np. zmienne)
NumberFormat-Dates
domyślny format liczby komórki w programie Excel jest ogólny. Wartości można wyświetlać jako liczby, tekst, daty, wartości procentowe lub waluty, zmieniając format liczb. Właściwość NumberFormat może być użyta w VBA do Ustawienia formatu liczbowego dat w komórce lub zakresie.
uwaga :aby zobaczyć różne standardowe formaty dat dostępne w programie Excel, przejdź do strony głównej>numer, a zobaczysz opcje, takie jak krótka Data, długa Data i godzina.
krótka Data
opcja formatowania krótkiej daty wyświetla datę w krótkim, numerycznym formacie.
poniższy kod ustawi .Właściwość NumberFormat komórki A1 do krótkiej daty:
|
1
|
zakres(„A1”).NumberFormat = „mm / dd / yyyy”
|
długa Data
długie formatowanie numeru daty wyświetla datę w dłuższym, pisanym formacie. Poniższy kod ustawi .Właściwość NumberFormat komórki A1 do Long date:
|
1
|
zakres(„A1”).NumberFormat = „dddd, mmmm dd, yyyy”
|
niestandardowe daty
aby zobaczyć niestandardowe kody formatu numerów, których można użyć w VBA do formatowania dat, przejdź do Strona główna> numer i kliknij przycisk uruchamiający okno dialogowe. Wybierz kartę numer i wybierz niestandardowe.
możesz wybrać niestandardowe wbudowane formaty daty lub utworzyć własne formaty daty zdefiniowane przez użytkownika. Poniższy kod ustawi .Właściwość NumberFormat komórki A1 do wbudowanego niestandardowego formatu daty:
|
1
|
Zakres(„A1”).NumberFormat = „mmm-yy”
|
rezultatem jest:
następujący kod ustawi .Właściwość NumberFormat komórki A1, do zdefiniowanego przez użytkownika niestandardowego formatu daty:
|
1
|
zakres(„A1”).NumberFormat = „dddd-dd-MMM-yy”
|
rezultatem jest:
przeglądając wstępnie zbudowane przykłady programu Excel, możesz dowiedzieć się, jak należy wprowadzać formaty liczbowe. Aby uzyskać więcej informacji, przeczytaj dokumentację firmy Microsoft dotyczącą formatów liczb dla dat.
funkcja formatu VBA
jak wspomniano powyżej, metoda NumberFormat jest odpowiednia do Ustawienia Numberformat dat przechowywanych w komórkach programu Excel. W VBA możesz użyć funkcji Formatuj, aby przekonwertować daty na ciągi z określonym formatowaniem daty.
do formatowania dat należy użyć następującej składni:
Format (String_Representation, NumberFormatCode) gdzie:
String_Representation – łańcuch tekstowy przedstawiający datę.
NumberFormatCode – kod formatu liczb określający sposób wyświetlania daty.
poniższy kod pokazuje, jak sformatować ciąg tekstowy reprezentacja daty jako długi format daty:
|
1
|
Format MsgBox („1/1/2010”, „dddd, mmmm dd, yyyy”)
|
rezultatem jest:
zauważ, że funkcja formatowania używa tej samej składni formatowania daty, co powyższy Format NumberFormat.
poniższy kod pokazuje, jak sformatować ciąg tekstowy reprezentacji daty jako średni format daty:
|
1
|
Format MsgBox („09 października 2012”, „Data Średnia”)
|
rezultatem jest:
poniższy kod pokazuje, jak sformatować reprezentację ciągu tekstowego daty jako format zdefiniowany przez użytkownika:
|
1
|
Format MsgBox („09 październik 2012″, ” dddd: dd / mm / RR”)
|
VBA custom Format Builder
nasz dodatek do VBA: AutoMacro zawiera Niestandardowy Kreator formatów dla edytora VBA. Umożliwia to ustawienie niestandardowych formatów i natychmiastowy podgląd danych wyjściowych dla żądanej wartości:
dodatek VBA zawiera wiele innych „generatorów kodu”, obszerną bibliotekę kodu i szereg innych narzędzi do kodowania. To najlepszy dodatek dla każdego, kto poważnie myśli o programowaniu VBA!
Data formatu VBA w programie Access
funkcja daty formatu VBA działa dokładnie tak samo w programie Access VBA, jak w programie Excel VBA.
|
1
2
3
4
5
6
7
8
9
10
|
Function GetDateFilter () As String
’Utwórz string, aby uzyskać informacje z 2 pól daty w formularzu w programie Access
Dim strDateField As String
If Isnull(Me.txtSDate) = False Then
If IsNull(Me.txtEDate) = True Then Me.txtEDate = ja.txtSDate
If strDateField2 = „”Then
GetDateFilter = strDateField & „Between #” & Format(Me.Txtsdate,” mm/dd/yyyy”) & „# i # ” & Format (Me.txtEDate, „mm / dd / yyyy”) & „#”
End If
End If
End Function
|