denne opplæringen vil demonstrere hvordan du formaterer datoer ved HJELP AV VBA.
Formater Datoer I VBA
det finnes to metoder for å formatere datoer ved HJELP AV VBA.
- Egenskapen NumberFormat For Celler / Områder-for å formatere datoer lagret i celler
- funksjonen VBA-Format-for å formatere datoer I VBA (eks. variabler)
NumberFormat-Datoer
standard tallformat for en celle i Excel Er Generelt. Du kan vise verdier som tall, tekst, datoer, prosenter eller valutaer ved å endre tallformatet. Egenskapen NumberFormat kan brukes I VBA til å angi tallformatet for datoer i en celle eller et område.
Merk: for å se de forskjellige standarddatoformatene som er tilgjengelige I Excel, gå Til Hjem > Nummer, og du vil se alternativer som Kort Dato, Lang Dato og Klokkeslett.
Kort Dato
Alternativet kort datotallformatering viser datoen i et kort, numerisk format.
folgende kode vil sette den .NumberFormat egenskap av celle A1 Til Kort dato:
1
|
Rekkevidde («A1»).NumberFormat = «mm / dd / åååå»
|
Lang Dato
lang dato nummerformatering viser datoen i et lengre, skriftlig format. Folgende kode vil sette den.NumberFormat egenskap av celle A1 Til Lang dato:
1
|
Rekkevidde («A1»).NumberFormat = «dddd, mmmm dd, åååå»
|
Egendefinerte datoer
Hvis du vil se de egendefinerte tallformatkodene du kan bruke I vba til å formatere datoer, går Du Til Hjem>Tall og klikker På Dialogboksvelgeren. Velg Kategorien Tall og Velg Egendefinert.
du kan enten velge de egendefinerte innebygde formatene for datoen din eller opprette dine egne brukerdefinerte datoformater. Folgende kode vil sette den.NumberFormat-egenskapen til celle A1 til et innebygd egendefinert datoformat:
1
|
Rekkevidde («A1»).NumberFormat = «mmm-åå»
|
resultatet er:
folgende kode vil sette den .NumberFormat-egenskapen til celle A1, til et brukerdefinert egendefinert datoformat:
1
|
Rekkevidde («A1»).NumberFormat = «dddd-dd-mmm-åå»
|
resultatet er:
ved å se Gjennom Excel pre-bygget eksempler kan du lære Hvordan NumberFormats skal angis. For mer informasjon, les Microsofts dokumentasjon på tallformater for datoer.
VBA-Formatfunksjon
Som nevnt ovenfor er NumberFormat-metoden egnet for å angi Numberformat for datoer lagret i Excel-celler. I VBA kan Du bruke Format-Funksjonen til å konvertere datoer til strenger med bestemt datoformatering.
du vil bruke følgende syntaks til å formatere datoer:
Format (String_Representation, NumberFormatCode) hvor:
String_Representation – tekststrengen som representerer datoen.
Tallformatkode-tallformatkoden som angir hvordan datoen skal vises.
følgende kode viser hvordan du formaterer en tekststrengrepresentasjon av en dato så lenge datoformat:
1
|
MsgBox Format («1/1/2010», «dddd, mmmm dd, åååå»)
|
resultatet er:
Legg Merke til At Format-Funksjonen bruker samme datoformateringssyntaks som NumberFormat ovenfor.
følgende kode viser hvordan du formaterer en tekststrengrepresentasjon av en dato som medium datoformat:
1
|
MsgBox Format («09 oktober 2012», «Medium Dato»)
|
resultatet er:
følgende kode viser hvordan du formaterer en tekststrengrepresentasjon av en dato som et brukerdefinert format:
1
|
MsgBox Format («09 oktober 2012″, » dddd: dd / mm / åå»)
|
VBA Custom Format Builder
Vba-Tillegget Vårt: AutoMacro inneholder En Egendefinert Formatbygger for Vba-Editoren. Dette lar deg angi egendefinerte formater og umiddelbart forhåndsvise utdataene for ønsket verdi:
Vba-Tillegget inneholder mange andre «Kodegeneratorer», et omfattende kodebibliotek og et utvalg av andre kodingsverktøy. Det er den ultimate add-in for alle seriøse OM VBA programmering!
VBA-Formatdato I Access
FUNKSJONEN Vba-Formatdato fungerer nøyaktig det samme I Access VBA som I Excel VBA.
1
2
3
4
5
6
7
8
9
10
|
Funksjon GetDateFilter () Som Streng
‘ opprett en streng for å få informasjon fra 2 datofelt i et skjema I Access
Dim strDateField Som Streng
Hvis IsNull(Me.Txtsdate) = False Deretter
Hvis IsNull (Meg.txtEDate) = Sant Da Meg.txtEDate = Meg.txtSDate
hvis strDateField2 = «» Så
GetDateFilter = strDateField & «Mellom #» & Format(Meg.txtSDate, «mm / dd / åååå») & «# Og # » & Format (Meg.txtEDate, «mm / dd / åååå») & «#»
Avslutt Hvis
Avslutt Hvis
Sluttfunksjon
|