Ce este VBA DateSerial?

Funcția VBA DATESERIAL este o funcție încorporată în Excel. Funcția DATESERIALĂ returnează o dată dată la un an, o lună și o zi. Să spunem, de exemplu, dacă data de astăzi este 18 iulie 2019. Unii utilizatori pot scrie ca 18-Jul'19 sau 18-Jul-19. Formate pentru date pot fi diferite pentru mai mulți utilizatori. Acest lucru ne oferă sarcina obositoare de lucru cu un număr mai mare de date în diferite formate.

Așa cum este definită problema de mai sus, formatul pentru date poate fi diferit pentru mai mulți utilizatori. Acesta este locul în care funcția serial date vine în VBA pentru a ajuta. Este o funcție foarte bună să ne facem propria dată cu valorile pe care alegem să le definim. Spuneți-ne în detaliu această funcție. DateSerial funcția în VBA este o funcție de dată și oră, astfel încât valoarea returnată pentru această funcție este DATE. Metoda de utilizare a sintaxei pentru această funcție va fi următoarea.

Sintaxa VBA DateSerial

Sintaxa pentru funcția VBA DateSerial în excel este următoarea:

Este nevoie de trei argumente an, lună și zi.

  • Anul: intervalul acceptat pentru această parte a argumentului din funcție este cuprins între 100-9999. Tipul de date pentru argument ar trebui să fie un număr întreg.
  • Luna: intervalul acceptat pentru această parte a argumentului din funcție este de la 1-12. Tipul de date pentru argument ar trebui să fie un număr întreg.
  • Ziua: Intervalul acceptat pentru această parte a argumentului din funcție este de la 1-31. Tipul de date pentru argument ar trebui să fie un număr întreg.

Dar iată o parte mișto a acestei funcții. Dacă furnizăm argumentul peste intervalul acceptat, funcția nu returnează o eroare, ci calculează partea suplimentară a intervalului și afișează data. De exemplu, dacă dau intrare ca dată serial (2019, 14, 02), acum știm că pot exista doar 12 luni într-un an, dar am oferit 14 drept argument. Funcția nu va întoarce o eroare, ci va adăuga cele două luni suplimentare în anul curent, astfel încât producția va fi 2020-02-02.

Cum se utilizează funcția VBA DateSerial în Excel?

Vom învăța cum să folosiți o funcție VBA DateSerial cu câteva exemple în excel.

Puteți descărca acest șablon VBA DateSerial Excel aici - șablonul VBA DateSerial Excel

Să testăm această funcție prin câteva exemple care vor face lucrurile mult mai clare pentru noi.

Exemplul # 1 - VBA DateSerial

Să oferim mai întâi o dată simplă unei variabile folosind funcția de serie a datei și să vedem ieșirea pe care o obținem.

Pasul 1: Înainte de a începe cu exemplele noastre, mai întâi asigurați-vă că aveți activat fila dezvoltatorului și apoi treceți la secțiunea de coduri pentru a deschide editorul VB făcând clic pe Visual Basic la fel ca în imaginea de mai jos.

Pasul 2: Din fereastra afișată mai sus, faceți clic pe fila Insert pentru a introduce un modul. Vom lucra în același modul pentru toate exemplele noastre.

Pasul 3: Inițiați o subprocesare după cum urmează și declarați o variabilă ca tip de date date.

Cod:

 Sub eșantion () Dim Dt Ca dată de încheiere Sub

Pasul 4: Haideți să oferim o dată variabilei folosind funcția de serie a datei.

Cod:

 Sub eșantion () Dim Dt As Date Dt = DateSerial (2019, 7, 2) Sub Sub

Pasul 5: Afișați valoarea stocată în variabila noastră folosind funcția msgbox.

Cod:

 Sub eșantion () Dim Dt As Date Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Pasul 6: Când executăm codul de mai sus obținem următorul rezultat.

Exemplul # 2 - VBA DateSerial

Acum să testăm teoria despre care am discutat mai sus, în introducere, că dacă oferim valorile în afara intervalului acceptat și funcția calculează data pentru noi.

Pasul 1: În același modul începeți o altă subprocedură după cum urmează.

Cod:

 Sub Eșantion1 () Final Sub

Pasul 2: Acum definiți o variabilă cu tip de date date.

Cod:

 Sub eșantion1 () Dim Dt ca data sfârșit Sub

Pasul 3: Să oferim intrarea la variabila DT folosind funcția serială a datei, așa cum se arată mai jos.

Cod:

 Sub Eșantion1 () Dim Dt Ca Data Dt = DateSerial (2019, 14, 2) Subcend

Pasul 4: Afișați valoarea stocată în variabila Dt folosind funcția msgbox.

Cod:

 Sub Eșantion1 () Dim Dt Ca Data Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Pasul 5: Acum executați codul de mai sus și vedeți rezultatul de mai jos, după cum urmează.

Putem vedea că anul a fost schimbat, întrucât am acordat două luni suplimentare argumentelor. Practic, această funcție a adăugat 14 luni anului 2019, ceea ce ne-a oferit a doua lună a anului 2020 și a doua dată.

Exemplul # 3 - VBA DateSerial

În exemplele de mai sus, am furnizat argumentele în modul general de date. Însă am discutat despre modul în care utilizatorii pot introduce valori absurde în secțiunea de date ca format, pentru scrierea datelor este diferită de la individ la individ. Vom compara două formate de date folosind funcția serială a datei din acest exemplu.

Pasul 1: În același modul definiți o altă subprocedură, după cum urmează pentru al treilea exemplu.

Cod:

 Sub Eșantion2 () Final Sub

Pasul 2: În acest scenariu definiți două variabile ca date așa cum se arată mai jos.

Cod:

 Sub eșantion2 () Dim Dt1, Dt2 Ca dată de sfârșit a datei Sub

Pasul 3: Acum, în prima variabilă, să oferim data în mod regulat simplu folosind funcția dateerial.

Cod:

 Sub eșantion2 () Dim Dt1, Dt2 Ca dată Dt1 = DateSerial (2019, 12, 31)

Pasul 4: Acum pentru a doua variabilă, permiteți-ne să furnizăm data în mod neregulat folosind funcția dateerială așa cum se arată mai jos.

Cod:

 Sub eșantion2 () Dim Dt1, Dt2 Ca dată Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31)

Pasul 5: Tipăriți acum ambele valori folosind funcția msgbox.

Cod:

 Sub eșantion2 () Dim Dt1, Dt2 Ca dată Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Pasul 6: Executați codul de mai sus pentru a găsi următorul rezultat prezentat mai jos.

Putem vedea că ambele date sunt aceleași. Anul 19 cu două cifre este interpretat ca 2019.

Lucruri de amintit

  • Este o funcție dată și oră, astfel încât ieșirea este în Data.
  • Dacă valoarea furnizată funcției este peste intervalul acceptat al funcției, acesta calculează automat data, mai degrabă decât să dea o eroare.
  • Dacă valorile furnizate argumentelor sunt mai mari decât valoarea pe care o poate deține un întreg, atunci funcția returnează o eroare.

Articole recomandate

Acesta este un ghid pentru VBA DateSerial. Aici vom discuta despre cum să folosiți funcția Excel VS DateSerial împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. VBA InStr a explicat cu exemple
  2. VBA Integer Data Type
  3. VBA ISNULL Explicat cu exemple
  4. Formatul de date VBA (exemple)

Categorie:

VBA