Funkcija CDATE v VBA
VBA CDATE je funkcija pretvorbe podatkovnega tipa, ki pretvori podatkovni tip, ki je bodisi besedilo bodisi niz, v podatkovni tip datuma. Ko je vrednost pretvorjena v podatkovni tip datuma, se lahko poigramo z datumskimi stvarmi.
Sintaksa CDATE
Spodaj je sintaksa funkcije CDATE v VBA.
Izraz: izraz je lahko vrednost niza ali besedila ali spremenljivka, ki vsebuje vrednost, ki jo je treba pretvoriti v podatkovni tip datuma.
CDATE prepozna obliko datuma in ure v računalniku, v katerem delamo, in pretvori priloženo vrednost v isti podatkovni tip datuma. Če navedete samo dan in mesec in prezrete leto, potem funkcija CDATE sistemsko vzame leto, prikaže se skupaj z dobavljenim dnevom in mesecem.
V spodnjem razdelku bomo videli vedno več primerov.
Kako uporabiti funkcijo CDATE v Excelu VBA?
Primeri funkcije CDATE v Excelu VBA.
Primer # 1
Preden vam pokažem primer CDATE, najprej poglejte spodnjo kodo.
Koda:
Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub
V zgornjem za spremenljivko "k" sem vrednost določil kot "25-12". Ko izvedem to kodo, bomo v polju za sporočila v VBA videli enako vrednost.
Toda to lahko pretvorite v datum s pomočjo funkcije VBA CDATE, za to določite še eno spremenljivko kot datum.
Koda:
Dim k1 Kot datum
Za to spremenljivko "k1" dodeli funkcijo CDATE in dobavi spremenljivko "k", ki vsebuje niz "25-12". In za okno s sporočilom namesto „k“ prikažite spremenljivko „k1“.
Koda:
k1 = CDate (k)
Zdaj zaženite kodo in v oknu za sporočilo si oglejte rezultat.
Rezultat je torej "25.12.2019".
Pozorno si oglejte vrednost, ki smo jo navedli. Dobavili smo “25-12”, nismo dobavili leta.
Med pisanjem tega članka je bilo trenutno leto v mojem sistemu 2019, zato je VBA CDATE do danes pretvoril vrednost niza »25-12« in ji dodal sistemsko leto 2019. Torej, končni rezultati glasi takole 12/25/2019 tj, 25 th decembra 2019.
2. primer
Zdaj si oglejte spodnjo kodo.
Koda:
Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
In the above code for the variable “k,” I have applied the number “43889”. We all know this is a serial number, but for another variable, “KResult,” we have converted this value to date by using the “CDATE” function.
The same result of the variable “KResult” is shown in the message box.
Run the code and see the magic of the function “CDATE.”
It shows the result as “2/28/2020” if you are not familiar with dates in excel, then you must be wondering how did this happen.
For example, enter the same number (43889) in one of the cells in the spreadsheet.
For this, apply the format as “DD-MM-YYYY.”
Now click on Ok and see the result.
Now the result has changed from a serial number to date. Because we have applied date format top the serial number, it has shown the respective date.
So this means the serial number 43889 is equal to the date 28-02-2020.
Torej je v naši kodi VBA funkcija CDATE izvedla isto stvar s pretvorbo vrednosti niza v podatkovni tip datuma.
3. primer
Za ta primer si oglejte spodnjo kodo.
Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24. december 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Value3) End Sub
Ko zaženemo to kodo, bomo dobili spodnje rezultate.
Torej, vse vrednosti se pretvorijo v podatkovni tip datuma s funkcijo CDATE.
Stvari, ki si jih je treba zapomniti
- CDATE pretvori v datumski tip podatkov samo številke in nizne vrednosti.
- To je koristno, kadar ga uporabljamo z drugimi funkcijami.
- Če je navedena napačna vrednost podatkovnega tipa, bomo dobili napako neusklajenosti tipa.
- Ker sta datum in čas del serijske številke, pretvarjata čas in pravi čas.
