获取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回答了这个问题，现在最后一天的当前季度只需用0替换-1

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