x _To y
Dim BlackoutDates As Date Range
Rem Blackout period is Jan. 1, 1999 to March 31, 1999, inclusive
BlackoutDates = CDate(#12/31/1998#) _To CDate(#3/ 31/1999#)
If CurrentDate In BlackoutDates Then
formula = "Blackout"
Else
formula = "Free to trade"
End If|
Business Objects, an SAP company http://www.businessobjects.com/ Support services http://www.businessobjects.com/services/support/ Product Documentation on the Web http://support.businessobjects.com/documentation/ |