Tax Year Function

[ethoemmes]

Hi

Does anyone know of a function I can use to return the current tax
year. Our tax year runs from 6 April. I need a function which will
return the tax year for a given date.

TIA

[Ed Robichaud]

It's not elegant, but here is one you can modify for your own use:

Public Function FY(varDate As Variant)

If IsNull([varDate]) Then FY = "": Exit Function

If ([varDate] >= #7/1/2002# And [varDate] <= #6/30/2003#) Then FY = 2003
If ([varDate] >= #7/1/2003# And [varDate] <= #6/30/2004#) Then FY = 2004
If ([varDate] >= #7/1/2004# And [varDate] <= #6/30/2005#) Then FY = 2005
If ([varDate] >= #7/1/2005# And [varDate] <= #6/30/2006#) Then FY = 2006
If ([varDate] >= #7/1/2006# And [varDate] <= #6/30/2007#) Then FY = 2007
If ([varDate] >= #7/1/2007# And [varDate] <= #6/30/2008#) Then FY = 2008
If ([varDate] >= #7/1/2008# And [varDate] <= #6/30/2009#) Then FY = 2009
If ([varDate] >= #7/1/2009# And [varDate] <= #6/30/2010#) Then FY = 2010
If ([varDate] >= #7/1/2010# And [varDate] <= #6/30/2011#) Then FY = 2011
If ([varDate] >= #7/1/2011# And [varDate] <= #6/30/2012#) Then FY = 2012
End Function

-Ed
<et*******@blueyonder.co.uk> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

Hi

Does anyone know of a function I can use to return the current tax
year. Our tax year runs from 6 April. I need a function which will
return the tax year for a given date.

TIA

[Allen Browne]

Try:
Year([InvoiceDate]) + ((Month([InvoiceDate] > 4) OR (Month([InvoiceDate] = 4
AND Day([InvoiceDate]) >= 6))

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

<et*******@blueyonder.co.uk> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

Does anyone know of a function I can use to return the current tax
year. Our tax year runs from 6 April. I need a function which will
return the tax year for a given date.

[Arno R]

Function TaxYear(varDate) as integer
If varDate < DateSerial (Year(varDate), 4, 6 ) then
TaxYear =Year(varDate) -1
else
TaxYear=Year(varDate)
end function

--
Hope this helps
Arno R
<et*******@blueyonder.co.uk> schreef in bericht
news:11**********************@f14g2000cwb.googlegr oups.com...

Hi

Does anyone know of a function I can use to return the current tax
year. Our tax year runs from 6 April. I need a function which will
return the tax year for a given date.

TIA