` Determining Leap Year (Maurice Pilotte ) - Icetips Article

Templates, Tools and Utilities for Clarion Developers
	Home Products Download Documentation Demos Support Articles About Buy ALL PRODUCTS Build Automator Checkbox Fixer Icetips Utilities Magic Buttons Magic Entries Magic Locks OutlookBar Power ToolBar Report Previewer SQL Templates TaskPanel Window Fixer XP Theme Xplore GOLD SUBSCRIPTION SILVER SUBSCRIPTION SOLO SUBSCRIPTION Compare Gold/Silver Products Documentation Demos Free SQL Stuff Other Free Stuff PAR2 files Tips & Tricks - NEW Icetips Blog Icetips News Icetips on Facebook Icetips on Twitter Icetips on Youtube All Articles Search articles Top Ten articles Articles by Category Video tutorials What is Clarion? Support Options Live Support Email & Mail Icetips Blog Icetips on Twitter Gold Subscription Silver Subscription Solo Subscription Recurring Subscription Compare Gold & Silver Renew Your Subscription Multiple Copy Pricing

Icetips Article

Back to article list Search Articles Add Comment Printer friendly Direct link

Par2: Determining Leap Year
2002-06-27 -- Maurice Pilotte

IsLeapYear            PROCEDURE( SIGNED CurrYear ), BYTE

Result                      BYTE(FALSE)

  CODE
  IF CurrYear > 1582
    IF (( CurrYear % 400 = 0 ) OR ( CurrYear % 100 ~= 0 AND CurrYear % 4 =
0 ))
      Result = TRUE

Today is April 2, 2025, 11:24 pm
This article has been viewed 35285 times.

Back to article list Search Articles Add Comment Printer friendly

Lost Password

Subscribe

Gold Subscription
Buy Now

Silver Subscription
Buy Now

Solo Subscription
Buy Now

Multiple Copy Pricing

Renew Subscription

Templates, Tools and Utilitiesfor Clarion Developers

Icetips Article

Templates, Tools and Utilities
for Clarion Developers