| 投稿日 | ： 2005/01/11(Tue) 18:25 |
| 投稿者 | ： SO |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 入力した西暦間のうるう年の回数をカウントするプログラムを作りたい |
>
> 入力は西暦年だけで日付は入りませんね？
ありがとうございます。入力は西暦だけです。
>
> 私なら入力年数を4で割って整理した後、For〜Nextで処理します。
> Dim iFrom As Long
> Dim iTo As Long
> Dim iTemp As Long
> Dim iRet As Long
> iFrom = Text1.Text
> iTemp = iFrom Mod 4
> iFrom = Int(iFrom / 4)
> iFrom = Iif(iTemp > 0, iFrom + 1, iFrom)
> iTo = Int(Text2.Text / 4)
> For iTemp = iFrom To iTo
> '4で割り切れる年は閏年
> 'iRet = iRet + 1
> 'If 100で割り切れる年は閏年ではない(25)
> 'iRet = iRet - 1
> 'If 400で割り切れる年は閏年(100)
> 'iRet = iRet + 1
> Next
>
> 他にも様々な方法(計算式のみなど)がありますが、学校の課題なら１年づつループしつつ
> 閏年をカウントしていく方法が良いでしょうね。
私は今日色々試して出来ました。多分OKです。
For seireki = Text1 To Text2 Step 1
If N4 = seireki Mod 4 Then
cnt = cnt + 1
End If
Next
どうですか？
あと、必ずしも左のテキストボックスに小さい西暦が入るとは限らないプログラムはどのようにやるべ
きでしょうか？お願いします。