Computing Leap Year

[gwendon]

I have to track the date Doctor's special pay agreements expire. The formula I'm using in my query is very simple, but it does not account for Leap Years unless I go in and manually change the days from 365 to 364.
Is there a way to calculate the leap year into my formula?

SpecPayExp1Yr: IIf([SpecPayOneYrAgree]=No,"",[SpecPayStartDate]+365)

 

[KenReay]

Hi

SpecPayExp1Yr: IIf([SpecPayOneYrAgree]=No,"",DateAdd("yyyy",1,[SpecPayStartDate])

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[KenReay]

Hi

SpecPayExp1Yr: IIf([SpecPayOneYrAgree]=No,"",DateAdd("yyyy",1,[SpecPayStartDate]))

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[MichaelRed]

A somewhat more generic "method" to determine if a date falls within a leap year:

MyDate = Date
IsLpYr = IIF(DateDiff("d", "1/1/" & Year(MyDate), Year(MyDate) + 1) = 366, True, False)
? IsLpYr
False

MyDate = #1/1/1960#
IsLpYr = IIF(DateDiff("d", "1/1/" & Year(MyDate), "1/1/" & Year(MyDate) + 1) = 366, True, False)
? IsLpYr
True

MyDate = #1/1/2000#
IsLpYr = IIF(DateDiff("d", "1/1/" & Year(MyDate), "1/1/" & Year(MyDate) + 1) = 366, True, False)
? IsLpYr
True

MyDate = #1/1/1900#
IsLpYr = IIF(DateDiff("d", "1/1/" & Year(MyDate), "1/1/" & Year(MyDate) + 1) = 366, True, False)
? IsLpYr
False
[code]

Of course, the datediff expression -by itself- may be used in place of your constant:

[code]
MyDays = DateDiff("d", "1/1/" & Year(MyDate), "1/1/" & Year(MyDate) + 1)

SpecPayExp1Yr: IIf([SpecPayOneYrAgree]=No,"",[SpecPayStartDate]+MyDays)




MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[gwendon]

Thank you very much for your help!! My problem is now solved.
Don