How to get last financial year data in access (1 Viewer)

[hrdpgajjar]

Hi there,
I've create two functions to get data of current financial year (1st April to 31st March) as under,

1. Financial year start function,

Public Function fnFinancialYearStart(Optional ByVal start_date As Date = 1) As Date
Dim x_date As Date
If start_date = 1 Then
start_date = Date
End If
x_date = DateSerial(Year(start_date), 4, 1)
If start_date < x_date Then
x_date = DateAdd("yyyy", -1, x_date)
End If
fnFinancialYearStart = x_date
End Function

2. Financial Year End Function,

Public Function fnFinancialYearEnd(Optional Byval start_date As Date = 1) As Date
start_date = fnFinancialYearStart(start_date)
fnFinancialYearEnd = DateAdd("yyyy", 1, start_date) - 1
End Function

Both the functions works correctly. But now I need to get data from last financial year to compare with current Financial year. I've tried to modify the start and end financial year functions but it not works. it breaks my current year data. So kindly help me how can i get last financial year data.


Thanks

 

[jdraw]

Is this a continuation of the thread referenced in the Similar Threads?

Solved - Format function to get Current financial year data from (April-20 to March-21)

Hi all, I need to get report of material sent by current week with a query. I am able to get report of current month by following funtion, Format([Material Sent Date], "yyyymm") - by this function I am able to get current month data and, Format([Material Sent Date], date()) - by this function...

www.access-programmers.co.uk

Looks like it was solved in July 2021???

Please give readers some context.

 

[Minty]

Just use your function and subtract a year from the dates returned?

fnFinancialYearStart(Date()) = This FY Start
Dateadd("yyyy",-1, fnFinancialYearStart(Date()) ) = Previous FY Start