Crystal Reports for Rational Application Developer 设计员指南

CDate(#Aug 1, 1999#) To CDate(#Aug 31, 1999#)

Local DateVar d := CDate ({Orders.Order Date});
Local DateVar Range dr;
dr := DateSerial (Year(d), Month(d) - 1, 1) To
DateSerial (Year(d), Month(d), 1 - 1);
//At this point dr is the Date Range value holding
//the last full month before {Orders.Order Date}