Source language: Translate to:

Leap YearS

Share sample pubs, scripts, etc. with other NeoBook users

Moderator: Neosoft Support

Leap YearS

Postby virger » Thu Jun 26, 2014 2:08 pm

Desde COSTA RICA
With only 8 lines of code list from 1900 to 2020 years Leap

Code: Select all
loop "1900" "2020" "[Yr]"
    DateToNum "29/02/[Yr]" "d/m/y" "[Year_[Yr]]"
    if "[Year_[Yr]]" "<>" "Error"
        setvar "[Year_[Yr]]" "Leap"
    else
        setvar "[Year_[Yr]]" ""
    endif
endloop


May help you with dates.
NEXT GRECIA
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 510
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Leap YearS

Postby Neosoft Support » Fri Jun 27, 2014 9:30 am

Terrific! Thank you.
NeoSoft Support
Neosoft Support
NeoSoft Team
 
Posts: 5593
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA


Return to Sample NeoBook Pubs

Who is online

Users browsing this forum: No registered users and 2 guests