| 投稿日 | ： 2005/01/11(Tue) 18:36 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 入力した西暦間のうるう年の回数をカウントするプログラムを作りたい |
> 私は今日色々試して出来ました。多分OKです。
> For seireki = Text1 To Text2 Step 1
> If N4 = seireki Mod 4 Then
> cnt = cnt + 1
> End If
> Next
>
> どうですか？
これだと、４年で割り切れる年はすべて閏年になってしまいますよ。
４年で割り切れる年でも１００で割り切れる年は閏年でなありません。
しかし、１００で割り切れてしかも４００で割り切れる年は閏年です。
> あと、必ずしも左のテキストボックスに小さい西暦が入るとは限らないプログラムはどのようにやるべ
> きでしょうか？お願いします。
For seireki = Text1 To Text2 Step Sgn(Text2 - Text1)
とすれば良いかと