Begin-Setup

Declare-Variable
Date $Date $FY_StartMonth_StartDt $FY_EndMonth_StartDt $FY_EndMonth_EndDt $Q1_StartDate $Q1_EndDate
Date $Q2_StartDate $Q2_EndDate $Q3_StartDate $Q3_EndDate $Q4_StartDate $Q4_EndDate
End-Declare

End-Setup
Begin-Program
Let #FY_EndMonth = 8
Let $Date = StrToDate(’11/10/2004′,’MM/DD/YYYY’)
Let $FY_EndMonth_StartDt1 = Edit(#FY_EndMonth,’09′) || ‘/01/’ || DateToStr($Date,’YYYY’)
Let $FY_EndMonth_StartDt = StrToDate($FY_EndMonth_StartDt1,’MM/DD/YYYY’)
Let $FY_StartMonth_StartDt = Dateadd($FY_EndMonth_StartDt,’month’,-11)
Let $FY_EndMonth_EndDt = Dateadd(Dateadd($FY_EndMonth_StartDt,’month’,1),’day’,-1)

If $Date > $FY_EndMonth_EndDt
Let $FY_StartMonth_StartDt = DateAdd($FY_StartMonth_StartDt,’year’,1)
Let $FY_EndMonth_EndDt = DateAdd($FY_EndMonth_EndDt,’year’,1)
End-If

Show ‘Fiscal Year: First Date of First Month ‘ $FY_StartMonth_StartDt
!Show ‘Fiscal Year: First Date of Last Month ‘ $FY_EndMonth_StartDt
Show ‘Fiscal Year: Last Date of Last Month ‘ $FY_EndMonth_EndDt

!Quarter 1 Dates
Let $Q1_StartDate = $FY_StartMonth_StartDt
Let $Q1_EndDate = DateAdd(DateAdd($Q1_StartDate,’month’,3),’day’,-1)
If range($Date,$Q1_StartDate,$Q1_EndDate) = 1
Show ‘Q1 Start Date: ‘ $Q1_StartDate
Show ‘Q1 End Date: ‘ $Q1_EndDate
Let #Days = DateDiff($Q1_EndDate,$Q1_StartDate,’day’) + 1
Show ‘No Of Days in this Quarter :’
Show #Days
End-IF
!Quarter 2 Dates
Let $Q2_StartDate = DateAdd($Q1_EndDate,’day’,1)
Let $Q2_EndDate = DateAdd(DateAdd($Q2_StartDate,’month’,3),’day’,-1)
If range($Date,$Q2_StartDate,$Q2_EndDate) = 1
Show ‘Q2 Start Date: ‘ $Q2_StartDate
Show ‘Q2 End Date: ‘ $Q2_EndDate
Let #Days = DateDiff($Q2_EndDate,$Q2_StartDate,’day’) + 1
Show ‘No Of Days in this Quarter :’
Show #Days
End-If

!Quarter 3 Dates
Let $Q3_StartDate = DateAdd($Q2_EndDate,’day’,1)
Let $Q3_EndDate = DateAdd(DateAdd($Q3_StartDate,’month’,3),’day’,-1)
If range($Date,$Q3_StartDate,$Q3_EndDate) = 1
Show ‘Q3 Start Date: ‘ $Q3_StartDate
Show ‘Q3 End Date: ‘ $Q3_EndDate
Let #Days = DateDiff($Q3_EndDate,$Q3_StartDate,’day’) + 1
Show ‘No Of Days in this Quarter :’
Show #Days
End-If

!Quarter 4 Dates
Let $Q4_StartDate = DateAdd($Q3_EndDate,’day’,1)
Let $Q4_EndDate = $FY_EndMonth_EndDt
If range($Date,$Q4_StartDate,$Q4_EndDate) = 1
Show ‘Q4 Start Date: ‘ $Q4_StartDate
Show ‘Q4 End Date: ‘ $Q4_EndDate
Let #Days = DateDiff($Q4_EndDate,$Q4_StartDate,’day’) + 1
Show ‘No Of Days in this Quarter :’
Show #Days
End-If

End-Program

Declare-Variable
Date $Date $FY_StartMonth_StartDt $FY_EndMonth_StartDt $FY_EndMonth_EndDt
End-Declare

End-Setup
Begin-Program
Let #FY_EndMonth = 8
Let $Date = StrToDate(’11/10/2004′,’MM/DD/YYYY’)
Let $FY_EndMonth_StartDt1 = Edit(#FY_EndMonth,’09′) || ‘/01/’ || DateToStr($Date,’YYYY’)
Let $FY_EndMonth_StartDt = StrToDate($FY_EndMonth_StartDt1,’MM/DD/YYYY’)
Let $FY_StartMonth_StartDt = Dateadd($FY_EndMonth_StartDt,’month’,-11)
Let $FY_EndMonth_EndDt = Dateadd(Dateadd($FY_EndMonth_StartDt,’month’,1),’day’,-1)

If $Date > $FY_EndMonth_EndDt
Let $FY_StartMonth_StartDt = DateAdd($FY_StartMonth_StartDt,’year’,1)
Let $FY_EndMonth_EndDt = DateAdd($FY_EndMonth_EndDt,’year’,1)
End-If

Show ‘Fiscal Year: First Date of First Month ‘ $FY_StartMonth_StartDt
Show ‘Fiscal Year: First Date of Last Month ‘ $FY_EndMonth_StartDt
Show ‘Fiscal Year: Last Date of Last Month ‘ $FY_EndMonth_EndDt

End-Program