Turinys
Šiame straipsnyje parodysiu, kaip galite gauti dabartinę datą VBA Excel programoje. Išmoksite rodyti esamą datą, rodyti esamą laiką, taip pat formatuoti datą ir laiką norimu formatu.
Kaip gauti dabartinę datą naudojant VBA (greitasis vaizdas)
Atsisiųsti praktikos sąsiuvinį
Atsisiųskite šią pratybų knygą, kad skaitydami šį straipsnį galėtumėte atlikti užduotį.
Dabartinių datų gavimas VBA.xlsm3 būdai, kaip gauti dabartinę datą VBA
Panagrinėkime geriausius būdus, kaip gauti dabartinę datą ir laiką Makro svetainėje VBA .
1. Dabartinės datos gavimas naudojant VBA funkciją Date
Pirmiausia pažiūrėkime, kaip galime gauti dabartinę datą. Dabartinę datą galite gauti VBA gana išsamiai naudojant Datos funkcija iš VBA .
Kodo eilutė bus tokia:
Current_Date=Date() Visas kodas, skirtas dabartinei datai rodyti, bus toks:
⧭ VBA kodas:
Sub Get_Current_Date() Current_Date = Data MsgBox Current_Date End Sub Pastaba: Šis kodas sukuria Makro vadinamas . Get_Current_Date .
⧭ Išvestis:
Paleiskite šią makrokomandą ir gausite Pranešimų laukelis rodoma dabartinė data, 11-sausio 22 d. .
Skaityti daugiau: Kaip įterpti dabartinę datą programoje "Excel
2. Dabartinės datos ir laiko įterpimas naudojant VBA funkciją Now
Galite naudoti Dabar funkcija VBA norėdami gauti dabartinę datą ir dabartinį laiką.
Kodo eilutė bus tokia:
Current_Date_and_Time = Now() Todėl visas kodas rodyti dabartinę datą ir laiką:
⧭ VBA kodas:
Sub Get_Current_Date_and_Time() Current_Date_and_Time = Now() MsgBox Current_Date_and_Time End Sub Pastaba: Šis kodas sukuria Makro vadinamas . Get_Current_Date_and_Time .
⧭ Išvestis:
Paleiskite šį Makro ir gausite Pranešimų laukelis rodoma dabartinė data ir laikas, 11-Jan-22 11:23:20 .
Skaityti daugiau: Dabar ir formatavimo funkcijos "Excel VBA" programoje
Panašūs skaitiniai
- Datos kintamasis VBA koduose (7 makrokomandų naudojimo būdai ir pavyzdžiai)
- Kaip naudoti "Excel" datos spartųjį klavišą
- Apskaičiuokite termino datą naudodami "Excel" formulę (7 būdai)
- Kaip naudoti IF formulę su datomis (6 paprasti pavyzdžiai)
3. Dabartinės datos ir laiko formatavimas naudojant VBA formatavimo funkciją
Iki šiol mokėmės gauti esamą datą ir laiką. Šį kartą pažiūrėkime, kaip galime rodyti datą ir laiką norimu formatu.
3.1 Dabartinės datos formatas
Pirmiausia suformatuosime tik dabartinę datą.
Naudosime Formatas funkcija VBA šiam tikslui. sintaksė funkcija yra:
=Format(Data,Format) Todėl, norėdami rodyti dabartinę datą formatu dd/mm/rrrr , kodo eilutė bus tokia:
Current_Date = Format(Data, "dd/mm/yyyy")
Ir visiškai VBA kodas bus:
⧭ VBA kodas:
Sub Format_Date_and_Time() Current_Date = Format(Date, "dd/mm/yyyy") MsgBox Current_Date End Sub Pastaba: Šis kodas sukuria Makro vadinamas . Format_Date_and_Time .
⧭ Išvestis:
Jei paleisite šį kodą, dabartinė data bus rodoma norimu formatu, dd/mm/rrrr , 11/01/2022 .
3.2 Dabartinės datos ir laiko formatas
Taip pat galite naudoti Formatas funkciją, skirtą dabartinei datai ir dabartiniam laikui formatuoti kartu.
Parodykime dabartinę datą ir laiką formatu dd/mm/yyyy hh:mm:ss am/pm .
Kodo eilutė bus tokia:
Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm") Ir visiškai VBA kodas bus:
⧭ VBA kodas:
Sub Format_Date_and_Time() Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm") MsgBox Current_Date_and_Time End Sub Pastaba: Šis kodas sukuria Makro vadinamas . Format_Date_and_Time .
⧭ Išvestis:
Jei paleisite šį kodą, dabartinė data ir laikas bus rodomi norimu formatu, dd/mm/yyyy hh:mm:ss am/pm , 11/01/2022 12:03:45 val. .
Skaityti daugiau: Kaip formatuoti datą naudojant VBA programoje "Excel
Santrauka
- Svetainė DABAR funkcija "Visual Basic" programa grąžina dabartinę datą ir laiką.
- Svetainė Data funkcija grąžina dabartinę datą.
- Svetainė Formatas funkcija rodo datą ir laiką bet kokiu pageidaujamu formatu.
Išvada
Naudodami šiuos metodus galite gauti ir rodyti esamą datą ir laiką Makro "Excel" programoje. Turite klausimų? Nedvejodami kreipkitės į mus.
