DateDiff Apraksts
Atgriež starpību starp divām datuma vērtībām, pamatojoties uz norādīto intervālu.
Vienkārši DateDiff piemēri
Šeit ir vienkāršs DateDiff piemērs:
123 | ApakšdatumsDiff_Year ()MsgBox DateDiff ("gggg", #1/1/2019 #, #8/1/2021 #)Beigu apakš |
Šis kods atgriezīs 2. Šī ir atšķirība gadā (norādīta ar “gggg”) starp 2 dienām. (2021. – 2022. Gads = 2)
Iepriekš minētajā piemērā datuma1 un datuma2 pozīciju maiņa.
123 | ApakšdatumsDiff_Year ()MsgBox DateDiff ("gggg", #20.01.2021 #, #1/1/2019 #)Beigu apakš |
Šis kods atgriezīs -2.
DateDiff sintakse
VBA redaktorā varat ierakstīt “DateDiff (”), lai redzētu funkcijas DateDiff sintaksi:
Funkcija DateDiff satur 5 argumentus:
Intervāls: Laika vienība (dienas, mēneši, gadi utt.). Ievadiet kā virkni. (piem., “m” mēnesī)
Iestatīšana | Apraksts |
---|---|
yyyy | Gads |
q | Ceturksnis |
m | Mēnesis |
g | Gada diena |
d | Diena |
w | Darba diena |
ww | Nedēļa |
h | Stunda |
n | Minūte |
s | Otrais |
Datums1, datums2: Divi datumi, kurus vēlaties izmantot aprēķinos.
FirstDayOfWeek: Konstante, kas norāda nedēļas pirmo dienu. Tas nav obligāti. Ja nav norādīts, tiek pieņemta svētdiena.
Pastāvīga | Vērtība | Apraksts |
---|---|---|
vbUseSystem | 0 | Izmantojiet NLS API iestatījumu. |
vbSvētdiena | 1 | Svētdiena (noklusējums) |
vbPirmdiena | 2 | Pirmdiena |
vbOtrdiena | 3 | Otrdiena |
vbTrešdiena | 4 | Trešdiena |
vbCeturtdiena | 5 | Ceturtdiena |
vbPiektdiena | 6 | Piektdiena |
vbSestdiena | 7 | Sestdiena |
FirstWeekOfYear: Konstante, kas norāda gada pirmo nedēļu. Tas nav obligāti. Ja nav norādīts, tad pirmā nedēļa tiek uzskatīta par nedēļu, kurā notiek 1. janvāris.
Pastāvīga | Vērtība | Apraksts |
---|---|---|
vbUseSystem | 0 | Izmantojiet NLS API iestatījumu. |
vbPirmaisJan1 | 1 | Sāciet ar nedēļu, kurā notiek 1. janvāris (noklusējums). |
vbFirstFourDays | 2 | Sāciet ar pirmo nedēļu, kurā jaunajā gadā ir vismaz četras dienas. |
vbFirstFullWeek | 3 | Sāciet ar pirmo pilno gada nedēļu. |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Funkcijas Excel VBA DateDiff piemēri
Atsauces datumi
Lai sāktu, mēs demonstrēsim dažādus datumu atsauces veidus, izmantojot funkciju VBA DateDiff.
Katra no šīm DateDiff funkcijām rada to pašu rezultātu:
123456789 | ApakšdatumsDiff_ReferenceDates ()MsgBox DateDiff ("m", #4/1/2019 #, #8/1/2021 #)MsgBox DateDiff ("m", DateSerial (2019, 4, 1), DateSerial (2021, 8, 1))MsgBox DateDiff ("m", DateValue ("2022. gada 1. aprīlis"), DateValue ("2022. gada 1. augusts"))Beigu apakš |
Vai arī varat atsaukties uz šūnām, kurās ir datumi:
12345 | ApakšdatumsDiff_ReferenceDates_Cell ()MsgBox DateDiff ("m", diapazons ("C2"). Vērtība, diapazons ("C3"). Vērtība)Beigu apakš |
Vai arī izveidojiet un atsauces datuma mainīgos:
123456789 | ApakšdatumsDiff_Variable ()Dim dt1 kā datums, dt2 kā datumsdt1 = #4/1/2019 #dt2 = #8/1/2021 #MsgBox DateDiff ("m", dt1, dt2)Beigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
Dažādu intervālu vienību izmantošana
Ceturkšņi
123 | ApakšdatumsDiff_Quarter ()MsgBox "ceturkšņu skaits:" & DateDiff ("q", #1/1/2019 #, #1/1/2021 #)Beigu apakš |
Mēneši
123 | ApakšdatumsDiff_Month ()MsgBox "mēnešu skaits:" & DateDiff ("m", #1/1/2019 #, #1/1/2021 #)Beigu apakš |
Dienas
123 | ApakšdatumsDiff_Day ()MsgBox "dienu skaits:" & DateDiff ("d", #1/1/2019 #, #1/1/2021 #)Beigu apakš |
Nedēļas
123 | ApakšdatumsDiff_Week ()MsgBox "nedēļu skaits:" & DateDiff ("w", #1/1/2019 #, #1/1/2021 #)Beigu apakš |
Stundas
123456789101112 | ApakšdatumsDiff_Hour ()Dim dt1 kā datumsDim dt2 kā datumsDim nDiff Cik ilgidt1 = #14.14.2019 9:30:00 #dt2 = #8/14/2019 1:00:00 PM #nDiff = DateDiff ("h", dt1, dt2)MsgBox "stundas:" & nDiffBeigu apakš |
Minūtes
123 | ApakšdatumsDiff_Minute ()MsgBox "mins:" & DateDiff ("n", #8/14/2019 9:30:00 #, #8/14/2019 9:35:00 AM #)Beigu apakš |
Sekundes
123 | ApakšdatumsDiff_Second ()MsgBox "secs:" & DateDiff ("s", #8/14/2019 9:30:10 AM #, #8/14/2019 9:30:22 AM #)Beigu apakš |