Primerjaj datume - primeri kode VBA

Preverite, ali je datum med datumi

Naslednja funkcija VBA bo preverila, ali je dani datum med dvema drugim datumoma, in če je tako, bo vrnila vrednost TRUE. Če datum ni med datumi, bo vrnil vrednost FALSE.

Funkcija Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) Kot Boolean 'Boolean funkcija za primerjavo datumov' Vrne TRUE le, če je Other_Date med Start_Date in End_Date 'V nasprotnem primeru vrne FALSE' Nastavi rezultat na FALSE - privzeta vrednost Compare_Dates = False "Primerjaj datume If ((Other_Date> = = Start_Date)) In (Other_Date <= End_Date)) Potem" Če je drug datum med začetnim in končnim datumom, potem nastavite na True Compare_Dates = True End If End Funkcija 

Funkcija ima tri argumente:
• Datum začetka - najzgodnejši dovoljeni datum
• End_ Date - zadnji dovoljeni datum
• Other_Date - datum, ki ga primerjate

Funkcija mora biti v Excelovem modulu. Lahko ga izvajate iz Excelovega delovnega zvezka, na primer:

A4 = Primerjaj_datume (21-06-2003,12-02,2008,15-09-2008)
A3 = Primerjaj_datume (A1, A2.A3)
A1 = Primerjaj_datume (13-03-2005,18-08-2005, A6)
Torej bo Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) dala vrednost TRUE, saj je 23-06-2006 med 25-04-2007 in 12-07-2008.

Prav tako Compare_Dates (19-07-2003,12-12-2001,12-08-2008) vrne FALSE, saj 12-12-2001 NI med 19-07-2003 in 12-08-2008

Prenesite funkcijo .XLSM tukaj

Vam bo pomagal razvoj spletnega mesta, ki si delijo stran s svojimi prijatelji

wave wave wave wave wave