Excel VBA-dato tilføjet

VBA DateAdd er en funktion, der udfører tilføjelse eller subtraktion af tids- / datointervaller. Dette returnerer dato ved at tilføje eller trække et specificeret tidsinterval. Det er ganske vanskeligt at håndtere dato og tid, når du foretager nogle beregninger på det. Men i vores daglige arbejde er det en vigtig type data, som vi muligvis bruger. Sammenligning, tilføjelse, subtraktion mellem forskellige datoer er nogle kendte handlinger, som vi udfører.

Formel til DateAdd-funktion i Excel VBA

Formlen for VBA DateAdd-funktion er meget enkel i format.

Lad os se, hvad er de parametre, der bruges i Excel VBA DateAdd-funktionen.

  • Interval: Dette kan være et tids- / datointerval, som du vil tilføje eller trække fra. Dette repræsenterer, hvilken slags værdi du ønsker at tilføje eller trække fra. Dette kan være en komponent af dato eller tid som dage, måned osv. Omfanget af intervaller er angivet nedenfor.

  • Antal: Er antallet af intervaller, du vil tilføje. Brug et positivt tal til at tilføje intervallet med den givne dato og den negative værdi for at trække intervallet fra datoen.
  • Dato : Den dato, som du vil tilføje / trække intervallet til. Handlinger udføres på denne dato og returneringsdato som output.

Eksempler på Excel VBA DateAdd-funktion

Nedenfor er de forskellige eksempler på DateAdd-funktion i Excel VBA:

Du kan downloade denne VBA DateAdd Excel-skabelon her - VBA DateAdd Excel Excel Template

Eksempel 1 - Tilføj dato

Lad os se, hvordan du tilføjer et bestemt nummer til den givne dato ved hjælp af VBA DateAdd-funktion.

  • Vi er nødt til at finde datoen efter tilføjelse af '10' dage med datoen '25 / 10/2015 '
  • Start subproceduren med et navn. Her oprettede vi en underprocedure kaldet 'adddate'.

Kode:

 Sub adddate () End Sub

  • Opret en variabel som datodatatype, variabelnavnet er aktuel dato.

Kode:

 Sub adddate () Dim aktuelle dato som Date End Sub

  • Vi vil gemme resultatet i denne variable dato.
  • Vi vil tilføje '10' dage med '25 / 10/2015 '. Så antallet af dage, der ønsker at tilføje, er 10. Og intervallet er 'd', og antallet er 10.
  • Så lad os anvende VBA DateAdd-funktionen som nedenfor.

Kode:

 Sub adddate () Dim aktuelle dato Som Date aktuelle dato = DateAdd ("d", 10, "25/10/2015") End Sub

  • Efter anvendelse af formlen på variablen, lad os bruge en meddelelsesboks til at udskrive resultatet.

Kode:

 Sub adddate () Dim currentdate Som Date currentdate = DateAdd ("d", 10, "25/10/2015") MsgBox Format (currentdate, "dd-mm-åååå") End Sub

  • Kør koden ved at trykke på F5. Resultatet vises som

Du kan se resultatet som vist ovenfor.

Eksempel 2 - Tilføj måneder

  • For at tilføje måneder med den givne dato skal intervallet ændres som "m".
  • Tilføj '2' med datoen “15/2/2017”. Koden kan skrives som nedenfor.

Kode:

 Sub addmonth () Dim currentdate Som Date currentdate = DateAdd ("m", 2, "15/2/2017") MsgBox Format (currentdate, "dd-mm-åååå") End Sub

  • Outputdato ændres som nedenfor.

Eksempel 3 - Tilføj år

For at tilføje år med den givne dato kan nedenstående kode bruges.

  • Intervallet skal være ”åååå”
  • Tilføj 4 år med'20 / 2/2018 '

Kode:

 Under tilføjelsesår () Dim nuværende dato Som Dato nuværende dato = Dato Tilføj ("åååå", 4, "20/2/2018") MsgBox Format (nuværende dato, "dd-mm-åååå") Slut Sub

  • Resultatet bliver som nedenfor. Variabel strømdato vender tilbage '20 / 2/2022 '

Eksempel 4 - Tilføj kvartal

  • Mens der tilføjes kvartal, tilføjes tre måneder til datoen siden kvartalet, hvis 12 måneder er 3.
  • Intervallet skal nævnes som "Q", det tal, der er angivet i formlen, angiver, hvor mange kvartaler der skal tilføjes. For eksempel er DateAdd (“Q”, 2, “22/5/2019”) antal kvartaler 2, så der tilføjes 6 måneder.
  • For at tilføje 2 kvartaler med '22 / 5/2018 'nedenfor kan kode anvendes.

Kode:

 Sub addquarter () Dim aktuelle dato Som Dato aktuelle dato = DatoTilføj ("Q", 2, "22/5/2019") MsgBox Format (nuværende dato, "dd-mm-åååå") End Sub

  • Resultatet bliver som nedenfor.

Eksempel # 5 - Tilføj sekunder

  • Du kan tilføje tid sammen med den viste dato. For at få dette nævnes intervallet som “s”, der angiver sekunder.
  • For at få vist fem sekunder med dato '28 / 3/2019 'kan du bruge formlen nedenfor.

Kode:

 Sub tilføjede sekunder () Dim nuværende dato Som Dato nuværende dato = Dato tilføj ("s", 5, "28/3/2019") MsgBox Format (nuværende dato, "dd-mm-åååå hh: mm: ss") Slut Sub

  • Mens output vises med dato sekunder vises.

Eksempel 6 - Tilføj uger

  • For at tilføje et antal uger med den givne dato skal du bruge intervallet som "WW"
  • Kode for at finde datoen efter det givne antal uger fra'27 / 03/2016 '

Kode:

 Sub addweek () Dim aktuelle dato Som Dato aktuelle dato = DatoTilføj ("WW", 2, "27/3/2019") MsgBox-format (nuværende dato, "dd-mm-åååå") End Sub

  • Outputet vil være datoen efter 2 uger.

Eksempel 7 - Tilføj åbningstider

  • For at få et bestemt tidspunkt med en dato bruges denne.
  • I intervallet nævnes “h” og ændre også formatet på output.
  • Koden for at få timerne udskrevet med en dato er.

Kode:

 Sub addhour () Dim nuværende dato Som Dato aktuelle dato = DatoTilføj ("h", 12, "27/3/2019") MsgBox Format (nuværende dato, "dd-mm-åååå hh: mm: ss") End Sub

  • Resultatet vises med tiden i tt: mm: ss.

Eksempel 8 - Hvordan subtraheres uger ved hjælp af VBA DateAdd-funktion?

Ligesom tilføjelse kan subtraktion også udføres ved hjælp af VBA DateAdd-funktion. De tal, der er angivet som positive heltal sammen med formlen. For at udføre subtraktion skal du bruge disse tal som negative heltal. For eksempel skal du ændre formlen som nedenfor.

 DateAdd (interval, - nummer, dato)

Ved at bruge ovenstående metode vil du prøve at finde dagen med at trække fra tre uger fra '28 / 3/2019 '

  • Opret en underprocedure som underdato.

Kode:

 Sub subdate () End Sub

  • Definer en variabel for at gemme resultatet. Aktuel dato er en variabel som datatype for at tildele det endelige resultat.

Kode:

 Sub subdate () Dim aktuelle dato Som Date End Sub

  • For at trække tre uger fra '28 / 3/2019 'anvender formlen. DateAdd (“ww”, -3, “28/3/2019”)

Kode:

 Underundersøgelsesdato () Dim nuværende dato Som Dato nuværende dato = DatoTilføj ("ww", -3, "28/3/2019") Slut Sub

'-3' angiver, at subtraktionen "ww" er intervallet, da vi vil arbejde på uger.

  • Formlen anvendes, og resultatet gemmes i aktuel dato.

Kode:

 Underdato () Dim nuværende dato Som Dato nuværende dato = Dato tilføj ("ww", -3, "28/3/2019") MsgBox Format (nuværende dato, "dd-mm-åååå") End Sub

  • Resultatet efter at have trukket tre uger fra den givne dato vises nedenfor.

Ting at huske

  • Intervallet og datoen, der er nævnt i formlen, vil blive angivet inden for et dobbelt citat.
  • Hvis du bruger ugedage-intervallet ”w”, fungerer det på samme måde som intervaldagen “d”, da ugedagen beregner 1 = søndag, 2 = mandag osv. I Så det tæller helligdage, selv du bruger ugedage.
  • Udgangen vises i henhold til datoformatindstillingerne på dit system. Brug format sammen med en meddelelsesboks til at udskrive resultatet i det ønskede format.
  • Inden for VBA DateAdd-funktionen bruger tallet som negativt til at udføre subtraktion mellem datoer.

Anbefalede artikler

Dette er en guide til Excel VBA DateAdd-funktion. Her diskuterer vi eksemplerne på VBA DateAdd-funktion til at tilføje & trække dage, måneder og år fra den givne dato sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. Hvordan bruges datofunktion i VBA?
  2. Datoformat i Excel VBA
  3. Hvad er VBA-tid i Excel?
  4. Datoformel i Excel med eksempler

Kategori:

VBA