Vad är VBA DateSerial?

VBA DATESERIAL-funktionen är en inbyggd funktion i Excel. DATESERIAL-funktionen returnerar ett datum med ett år, månad och dagsvärde. Låt oss till exempel säga om dagens datum är den 18 juli 2019. Vissa användare kan skriva det som 18-jul'19 eller 18-juli-19. Formater för datum kan vara olika för flera användare. Detta ger oss den tråkiga uppgiften att arbeta med ett större antal datum i olika format.

Som problemet uttalats ovan kan formatet för datum vara olika för flera användare. Det är här datum seriell funktion kommer i VBA för att hjälpa. Det är en mycket bra funktion att göra vårt eget datum med de värden vi väljer att definiera. Låt oss veta om denna funktion i detalj. DateSerial-funktionen i VBA är en datum- och tidsfunktion så det returnerade värdet för denna funktion är DATE. Metoden för att använda syntaxen för denna funktion kommer att vara följande.

Syntax för VBA DateSerial

Syntaxen för VBA DateSerial-funktion i Excel är som följer:

Det tar tre argument år, månad och dag.

  • År: Det accepterade intervallet för denna del av argumentet i funktionen är från 100-9999. Datatypen för argumentet bör vara ett heltal.
  • Månad: Det accepterade intervallet för denna del av argumentet i funktionen är från 1-12. Datatypen för argumentet bör vara ett heltal.
  • Dag: Det accepterade intervallet för denna del av argumentet i funktionen är från 1-31. Datatypen för argumentet bör vara ett heltal.

Men här är en cool del av den här funktionen. Om vi ​​tillhandahåller argumentet ovanför det accepterade intervallet, returnerar inte funktionen ett fel istället, den beräknar den ytterligare delen av intervallet och visar datumet. Om jag till exempel ger input som datumserie (2019, 14, 02), vet vi nu att det bara kan vara 12 månader på ett år men jag har tillhandahållit 14 som ett argument. Funktionen kommer inte att returnera ett fel istället kommer den att lägga till de två extra månaderna under innevarande år så att produktionen blir 2020-02-02.

Hur använder man VBA DateSerial-funktion i Excel?

Vi kommer att lära dig att använda en VBA DateSerial-funktion med några exempel i Excel.

Du kan ladda ner denna VBA DateSerial Excel-mall här - VBA DateSerial Excel-mall

Låt oss testa denna funktion med några exempel som kommer att göra saker mycket tydligare för oss.

Exempel 1 - VBA DateSerial

Låt oss först tillhandahålla ett enkelt datum till en variabel med hjälp av seriens datumfunktion och se den utgång vi får.

Steg 1: Innan vi börjar med våra exempel måste du först se till att utvecklarens flik är aktiverad och sedan gå till kodavsnittet för att öppna VB Editor genom att klicka på Visual Basic precis som visas på bilden nedan.

Steg 2: Klicka på Infoga-fliken från fönstret som visas ovan för att infoga en modul. Vi kommer att arbeta i samma modul för alla våra exempel.

Steg 3: Starta en delprocedur enligt följande och förklara en variabel som datumdatatyp.

Koda:

 Subprov () Dim Dt As Date End Sub

Steg 4: Låt oss nu tillhandahålla ett datum till variabeln med datumfunktionen.

Koda:

 Subprov () Dim Dt As Date Dt = DateSerial (2019, 7, 2) End Sub

Steg 5: Visa värdet som är lagrat i vår variabel med funktionen msgbox.

Koda:

 Subprov () Dim Dt As Date Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Steg 6: När vi utför koden ovan får vi följande resultat.

Exempel 2 - VBA DateSerial

Låt oss nu testa teorin som vi diskuterade ovan i inledningen att om vi tillhandahåller värden förutom det accepterade intervallet och funktionen beräknar datumet för oss.

Steg 1: I samma modul startar en annan delprocess enligt följande.

Koda:

 Sub Sample1 () Slut Sub

Steg 2: Definiera nu en variabel med datumdatatyp.

Koda:

 Sub Sample1 () Dim Dt As Date End Sub

Steg 3: Låt oss tillhandahålla ingången till DT-variabeln med hjälp av den seriella datumfunktionen som visas nedan.

Koda:

 Sub Sample1 () Dim Dt As Date Dt = DateSerial (2019, 14, 2) End Sub

Steg 4: Visa värdet lagrat i variabeln Dt med funktionen msgbox.

Koda:

 Subprov1 () Dim Dt As Date Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Steg 5: Kör nu ovanstående kod och se resultatet nedan enligt följande.

Vi kan se att året har ändrats eftersom vi hade gett två extra månader till argumenten. I grund och botten har denna funktion lagt till 14 månader till året 2019 vilket gav oss den andra månaden 2020 och andra dagen .

Exempel 3 - VBA DateSerial

I exemplen ovan tillhandahöll vi argumenten på det allmänna datumet. Men vi diskuterade hur användare kan mata in absurda värden i datumavsnittet som ett format, för att skriva datum skiljer sig från individ till individ. Vi jämför två datumformat med datumfunktionen i det här exemplet.

Steg 1: Definiera en annan delprocess i samma modul enligt följande för det tredje exemplet.

Koda:

 Sub Sample2 () Slut Sub

Steg 2: Definiera i detta scenario två variabler som datum som visas nedan.

Koda:

 Sub Sample2 () Dim Dt1, Dt2 As Date End Sub

Steg 3: Låt oss nu i den första variabeln ange datum på ett enkelt vanligt sätt med hjälp av datumfunktionen.

Koda:

 Underprov2 () Dim Dt1, Dt2 som datum Dt1 = DateSerial (2019, 12, 31) Slut Sub

Steg 4: Nu för den andra variabeln låt oss ange datum på oregelbundet sätt med hjälp av datumfunktionen som visas nedan.

Koda:

 Underprov2 () Dim Dt1, Dt2 som datum Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) Slut Sub

Steg 5: Skriv ut båda dessa värden nu med funktionen msgbox.

Koda:

 Underprov2 () Dim Dt1, Dt2 som datum Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Steg 6: Kör ovanstående kod för att hitta följande resultat som visas nedan.

Vi kan se att båda datumen är desamma. Det tvåsiffriga året 19 tolkas som 2019.

Saker att komma ihåg

  • Det är en datum- och tidsfunktion så att utgången är i datum.
  • Om det värde som tillhandahålls för funktionen är över det accepterade intervallet för funktionen beräknar det automatiskt datumet snarare än att ge ett fel.
  • Om värdena som tillhandahålls för argumenten är större än värdet ett heltal kan innehålla, returnerar funktionen ett fel.

Rekommenderade artiklar

Detta är en guide till VBA DateSerial. Här diskuterar vi hur du använder Excel VBA DateSerial-funktion tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA InStr förklarade med exempel
  2. VBA heltal datatyp
  3. VBA ISNULL Förklaras med exempel
  4. VBA-datumformat (exempel)

Kategori:

VBA