Palyginkite datas - VBA kodo pavyzdžiai

Patikrinkite, ar data yra tarp datų

Ši VBA funkcija patikrins, ar nurodyta data yra tarp dviejų kitų datų, ir jei taip, ji grąžins reikšmę TRUE. Jei data nėra tarp datų, ji grąžins reikšmę FALSE.

Funkcija Compare_Dates (pradžios_data kaip data, pabaigos_ data kaip data, kita_ data kaip data) kaip loginė „Boolean“ funkcija palyginant datas Netiesa 'Palyginkite datas, jei ((Kita_data> = Pradžios_data) Ir (Kita_data <= Pabaigos_data)) Tada „Jei kita data yra tarp pradžios ir pabaigos datos, tada nustatykite į teisingą Palyginti_datos = Tikroji pabaiga, jei pabaigos funkcija 

Funkcija turi tris argumentus:
• Start_ date - ankstyviausia leistina data
• Pabaigos data - paskutinė leistina data
• Other_Date - lyginama data

Funkcija turi būti „Excel“ modulyje. Jis gali būti paleistas iš „Excel“ darbaknygės, pvz .:

A4 = Palyginti datas (2003-06-21, 12-02,2008,15-09-2008)
A3 = Palyginti datas (A1, A2.A3)
A1 = Palyginti datas (2005-03-13, 2005-08-18, A6)
Taigi „Compare_Dates“ (2007-04-25, 2008-07-12, 2006-06-23) suteiks vertę TIESA, nes 2006-06-23 yra nuo 2007-04-25 iki 2008-07-12.

Panašiai „Compare_Dates“ (2003-07-19, 2001-12-12, 2008-08-12) grąžins FALSE, nes 2001-12-12 NĖRA tarp 2003-07-19 ir 2008-08-12

Atsisiųskite .XLSM funkciją čia

Padėsite svetainės plėtrą, dalintis puslapį su draugais

wave wave wave wave wave