Determine if it's a leap year
 

Hi all,
I need a piece of vba code to determine if it's a leap year.
Then I can add 29 days for the month of february.

Kind regards

Jan

Determine if it's a leap year
 

Jan,

Here is one way, assuming your date is in A1

=IF(MONTH(DATE(YEAR(A1),2,29))=2,"Leap Year","Not a Leap Year")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan" wrote in message
...
Hi all,
I need a piece of vba code to determine if it's a leap year.
Then I can add 29 days for the month of february.

Kind regards

Jan

Determine if it's a leap year
 

Hi Jan,

But are you sure you need this? In General, Excel will take care of dates
and the number of days in a month quite reliably.

--

Kind Regards,

Niek Otten

Microsoft MVP - Excel

"Bob Phillips" wrote in message
...
Jan,

Here is one way, assuming your date is in A1

=IF(MONTH(DATE(YEAR(A1),2,29))=2,"Leap Year","Not a Leap Year")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan" wrote in message
...
Hi all,
I need a piece of vba code to determine if it's a leap year.
Then I can add 29 days for the month of february.

Kind regards

Jan

Determine if it's a leap year
 

Unless of course, you start with a date in 1900 :-)

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------

"Bob Phillips" wrote in message
...
Jan,

Here is one way, assuming your date is in A1

=IF(MONTH(DATE(YEAR(A1),2,29))=2,"Leap Year","Not a Leap Year")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan" wrote in message
...
Hi all,
I need a piece of vba code to determine if it's a leap year.
Then I can add 29 days for the month of february.

Kind regards

Jan

Determine if it's a leap year
 

Building on Bob's suggestion would be to determine the last day in February
(the zeroeth day in March)

in VBA
lyear = 2007
for i = 1 to day(dateSerial(lyear,3,0))

to demonstrate from the immediate window:

? day(dateserial(2008,3,0))
29


--
Regards,
Tom Ogilvy


"Bob Phillips" wrote in message
...
Jan,

Here is one way, assuming your date is in A1

=IF(MONTH(DATE(YEAR(A1),2,29))=2,"Leap Year","Not a Leap Year")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jan" wrote in message
...
Hi all,
I need a piece of vba code to determine if it's a leap year.
Then I can add 29 days for the month of february.

Kind regards

Jan

Determine if it's a leap year
 

Thanks, this was where what i'm looking for.

Jan

"Jan" wrote:

Hi all,
I need a piece of vba code to determine if it's a leap year.
Then I can add 29 days for the month of february.

Kind regards

Jan