获取Crystal Reports当前季度的结束日期

Question

我需要显示当前季度的结束日期。我发现这个代码：

dateVar ToDaysDate := CurrentDate; // Date(2014,02,11); 
dateVar PrevQDtDate := Date(DateAdd("Q", -1, ToDaysDate)); 
dateVar PrevQStart := dateserial(year(PrevQDtDate),(datepart("q",DateAdd ("q", -1, ToDaysDate))*3)-2, 1); 
DateVar PrevQEnd := dateserial(year(ToDaysDate),datepart('q',ToDaysDate)*3-2,1-1); 
StringVar DispDates; 
DispDates := totext(PrevQStart) + "-" + totext(PrevQEnd); 
DispDates; 

..但我无法弄清楚如何显示当前季度的最后一天

Answer 1

试试这个：

ToText(DateAdd ("q", -1,currentdate))+" - "+ ToText(DateAdd("d", -1,DateAdd ("q", 0,currentdate))) 

Answer 2

为您的文章告诉您做了一个研究，我想你已经发现下面张贴

Get previous quarter start and end date in Crystal Reports

其中@thursdaysgeek回答了这个问题，现在当前季度的最后一天，只需更换-1与0

dateVar PrevQuarterDate := Date(DateAdd("Q", 0, CurrentDate)); 
dateVar PrevQuarterEnd := Date(Year(PrevQuarterDate),Month(PrevQuarterDate)+3,1); 
PrevQuarterEnd;