Comparați datele - exemple de cod VBA

Verificați dacă Data este între date

Următoarea funcție VBA va verifica dacă o dată dată este între alte două date și, dacă da, va returna valoarea TRUE. Dacă data nu este între date, atunci va returna valoarea FALSĂ.

Funcție Compare_Dates (Start_Date as Date, End_Date As Date, Other_Date As Date) Ca Boolean „Funcția booleană pentru a compara datele” Va reveni TRUE doar atunci când Other_Date este între Start_Date și End_Date „În caz contrar va reveni FALSE” Setați rezultatul la FALSE - valoarea implicită Compare_Dates = Fals 'Comparați datele Dacă ((Altă_Dată> = Start_Dată) Și (Altă_Dată <= Sfârșit_Dată)) Apoi' Dacă altă dată este între Data de începere și sfârșit, apoi setați la adevărat Compară_Date = Sfârșit adevărat Dacă funcția de sfârșit 

Funcția are trei argumente:
• Start_ date - prima dată permisă
• End_ Date - data cea mai recentă permisă
• Other_Date - data comparată

Funcția trebuie să se afle într-un modul Excel. Poate fi rulat dintr-un registru de lucru Excel, de exemplu:

A4 = Date de comparare (21-06-2003,12-02,2008,15-09-2008)
A3 = Comparare_Date (A1, A2.A3)
A1 = Date_comparare (13-03-2005,18-08-2005, A6)
Deci Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) va da valoarea ADEVĂRAT deoarece 23-06-2006 este între 25-04-2007 și 12-07-2008.

În mod similar Compare_Dates (19-07-2003,12-12-2001,12-08-2008) va reveni FALS deoarece 12-12-2001 NU este între 19-07-2003 și 12-08-2008

Descărcați aici funcția .XLSM

Vei ajuta la dezvoltarea site-ului, partajarea pagina cu prietenii

wave wave wave wave wave