🚀 go-pugleaf

On Tue, 09 May 2000 16:55:18 +0200, Ronny Dierckx <dr@get.be> wrote:

>
>
>> 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

Ik weet het. Zoiets als:

int nbr = 0;

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

Ik ken dit uit The C Programming Language van Kernighan en Ritchie.
Maar ik dacht dat de OP een oplossing in VB zocht.

HTH