Porovnať dátumy - Príklady kódu VBA

Skontrolujte, či je dátum medzi dátumami

Nasledujúca funkcia VBA skontroluje, či je daný dátum medzi dvoma ďalšími dátumami, a ak áno, vráti hodnotu PRAVDA. Ak dátum nie je medzi dátumami, vráti hodnotu FALSE.

Funkcia Compare_Dates (dátum_začiatku ako dátum, dátum_konca ako dátum, iný_dát ako dátum) ako booleovská 'boolovská funkcia na porovnanie dátumov' vráti TRUE iba vtedy, ak je Other_Date medzi Start_Date a End_Date 'v opačnom prípade vráti FALSE' nastaviť výsledok na FALSE - predvolená hodnota Compare_Dates = Falošné „Porovnať dátumy, ak ((Other_Date> = Počiatočný_Dátum) A (Iný_Dátum <= Koncový_Dátum)) Potom“ Ak je iný dátum medzi počiatočným a koncovým dátumom, nastavte ho na hodnotu True Porovnať_data = Skutočný koniec Ak koncová funkcia 

Funkcia má tri argumenty:
• Počiatočný dátum - najskorší prípustný dátum
• End_ Date - posledný povolený dátum
• Other_Date - dátum, ktorý sa porovnáva

Funkcia musí byť v module Excel. Je možné ho spustiť zo zošita programu Excel, napríklad:

A4 = Dátumy porovnania (21-06-2003,12-02,2008,15-09-2008)
A3 = Dátumy porovnania (A1, A2.A3)
A1 = Dátumy porovnania (13-03-2005,18-08-2005, A6)
Takže dátumy porovnania (25-04-2007,12-07-2008, 23-06-2006) budú dávať hodnotu PRAVDU, pretože 23-06-2006 je medzi 25-04-2007 a 12-07-2008.

Podobne Compare_Dates (19-07-2003,12-12-2001,12-08-2008) sa vráti FALSE, pretože 12-12-2001 NIE JE medzi 19-07-2003 a 12-08-2008

Stiahnite si funkciu .XLSM tu

Vám pomôže rozvoju miesta, zdieľať stránku s priateľmi

wave wave wave wave wave