Hi all,

I need the assistance of a vba guru.
I need a vba script to check if today's date falls within several groups of dates.

i.e. does today fall between;
November 27, 2010 - December 24, 2010 or
December 25, 2010 - January 9, 2011 or
January 10, 2011 - March 8, 2011 or
March 9, 2010 - April 23, 2011 or
April 24, 2011 - June 11, 2011 or
June 12, 2011 - November 26, 2011 or
November 27, 2011 - December 24, 2011

Depending on when today's date occurs, a different event happens.
I can do this in javascript, as seen below,

     ad1_y_S  = 2010//Advent1_yr_Start;
     ad1_m_S  = 10//Advent1_mo_Start;
     ad1_d_S  = 27//Advent1_dy_Start;
     ad1_y_E  = 2010//Advent1_yr_End;
     ad1_m_E  = 11//Advent1_mo_End;
     ad1_d_E  = 24//Advent1_dy_End;
    
     ch_y_S  = 2010//CH_yr_Start;
     ch_m_S  = 11//CH_mo_Start;
     ch_d_S  = 25//CH_dy_Start;
     ch_y_E  = 2011//CH_yr_End;
     ch_m_E  = 0//CH_mo_End;
     ch_d_E  = 9//CH_dy_End;
    
     ot1_y_S  = 2011//OT1_yr_Start;
     ot1_m_S  = 0//OT1_mo_Start;
     ot1_d_S  = 10//OT1_dy_Start;
     ot1_y_E  = 2011//OT1_yr_End;
     ot1_m_E  = 2//OT1_mo_End;
     ot1_d_E  = 8//OT1_dy_End;
    
     le_y_S  = 2011//LENT_yr_Start;
     le_m_S  = 2//LENT_mo_Start;
     le_d_S  = 9//LENT_dy_Start;
     le_y_E  = 2011//LENT_yr_End;
     le_m_E  = 3//LENT_mo_End;
     le_d_E  = 23//LENT_dy_End;
    
     eas_y_S  = 2011//EAS_yr_Start;
     eas_m_S  = 3//EAS_mo_Start;
     eas_d_S  = 24//EAS_dy_Start;
     eas_y_E  = 2011//EAS_yr_End;
     eas_m_E  = 5//EAS_mo_End;
     eas_d_E  = 11//EAS_dy_End;
    
     ot2_y_S  = 2011//OT2_yr_Start;
     ot2_m_S  = 5//OT2_mo_Start;
     ot2_d_S  = 12//OT2_dy_Start;
     ot2_y_E  = 2011//OT2_yr_End;
     ot2_m_E  = 10//OT2_mo_End;
     ot2_d_E  = 26//OT2_dy_End;
    
     ad2_y_S  = 2011//Advent2_yr_Start;
     ad2_m_S  = 10//Advent2_mo_Start;
     ad2_d_S  = 27//Advent2_dy_Start;
     ad2_y_E  = 2011//Advent2_yr_End;
     ad2_m_E  = 11//Advent2_mo_End;
     ad2_d_E  = 24//Advent2_dy_End;
     
    var ad = "Advent";
    var ch = "Christmas";
    var ot = "Ordinary Time";
    var le_ = "Lent";
    var eas =  "Easter"; 
    var PURPLE = "RIB_PurpleShad.png";
    var WHITE  = "RIB_WhiteShad.png";
    var GREEN  = "RIB_GreenShad.png";
    var purple = PURPLE;
    var white  = WHITE;
    var green  = GREEN;
    var gre :Number= 0x008000;
    var pur :Number= 0x800080;
    var whi :Number= 0xFFFFFF;
    
    
    var a = new Array
    (
        { start: new Date(ad1_y_S,ad1_m_S,ad1_d_S),   end: new Date(ad1_y_E,ad1_m_E,ad1_d_E,23,59,59), color: purple, season: ad, txtColor:pur }, /*advent*/
        { start: new Date(ch_y_S,ch_m_S,ch_d_S),      end: new Date(ch_y_E,ch_m_E,ch_d_E,23,59,59),      color: white,  season: ch,  txtColor:whi  },/*Christmas*/
        { start: new Date(ot1_y_S,ot1_m_S,ot1_d_S),   end: new Date(ot1_y_E,ot1_m_E,ot1_d_E,23,59,59),   color: green,  season: ot,  txtColor:gre  },/*Ordinary Time*/
        { start: new Date(le_y_S, le_m_S,le_d_S),     end: new Date(le_y_E, le_m_E,le_d_E,23,59,59),     color: purple, season: le_, txtColor:pur },/*lent*/
        { start: new Date(eas_y_S, eas_m_S, eas_d_S), end: new Date(eas_y_E, eas_m_E, eas_d_E,23,59,59), color: white,  season: eas, txtColor:whi  },/*Easter*/
        { start: new Date(ot2_y_S,ot2_m_S,ot2_d_S),   end: new Date(ot2_y_E,ot2_m_E,ot2_d_E,23,59,59),   color: green,  season: ot,  txtColor:gre   },/*Ordinary Time*/
        { start: new Date(ad2_y_S,ad2_m_S,ad2_d_S),   end: new Date(ad2_y_E,ad2_m_E,ad2_d_E,23,59,59),   color: purple, season: ad,  txtColor:pur } /*advent*/
    );
    var seas_color = new Color(seasn);
    var today = new Date();
    for (i = 0; i < a.length; i++)
    {
        if ((today >= a[i].start) && (today <= a[i].end))
           
            {
                //txt_color.setRGB(a[i].txtColor);
                seas_color.setRGB(a[i].txtColor);
                Rib.loadMovie(a[i].color);
                seasn.seasonInfo = a[i].season;
                
            }    
    
}
}

But have no idea how to do it in vba.

Just been working with Excel for about a month, and have never learned vb.

BTW, the different event that happens is a specific image is loaded depending on which liturgical season today's date falls in.

Another question is can the above action be done in Excel?

I would really appreciate any help on a vba script.

Thanks in advance.

George