獲取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;