Crystal Reports for Rational Application Developer 设计员指南

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