Re: Oefening op de geneste lus met oplossing!

Article View: be.comp.programming

Article #16322

Back to be.comp.programming Previous Next

#16322

From: Ronny Dierckx
Date: Tue, 09 May 2000 00:00

28 lines
1048 bytes


> Het aantal schrikkeldagen tussen 1800 en 2100.
> 
> Private Sub Command1_Click()
> 
>   Dim jaar As Integer
>   Dim aantal As Integer
> 
>   For jaar = 1800 To 2100
>     aantal = aantal + Day(DateSerial(jaar, 3, 1 - 1)) - 28
>   Next
> 
>   Text1 = aantal
> 
> End Sub
> 
> HTH

int nbr = 0;

for (int y = 1800; y < 2100; y++) 
    if (((y%4==0)&&(y%100!=0))||(y%400==0))
        nbr++;

En het kan nog sneller en compacter.

Ronny

Technical Details

Message-ID: <391826D6.ABCBCE6A@get.be>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <8f3584$dnl$1@buty.wanadoo.nl> <39180f64.21957744@news.ruca.ua.ac.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,1c4738e54ab8118b
X-Google-Attributes: gidfcea4,public
From: Ronny Dierckx <dr@get.be>
Subject: Re: Oefening op de geneste lus met oplossing!
Date: 2000/05/09
Message-ID: <391826D6.ABCBCE6A@get.be>
X-Deja-AN: 621137077
Content-Transfer-Encoding: 7bit
References: <8f3584$dnl$1@buty.wanadoo.nl> <39180f64.21957744@news.ruca.ua.ac.be>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-Trace: bru5-newsr2.be.uu.net 957884171 12153 194.7.66.10
MIME-Version: 1.0
Newsgroups: be.comp.programming

Reply to Parent Message