| 投稿日 | ： 2005/01/10(Mon) 17:17 |
| 投稿者 | ： jikoryuu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 入力した西暦間のうるう年の回数をカウントするプログラムを作りたい |
> 2000,2001,2002,2003,2004と順に繰り返し、毎回うるう年のチェックをする。
> 繰り返しのステートメントはDo〜Whileを使う。
入力は西暦年だけで日付は入りませんね？
私なら入力年数を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
他にも様々な方法(計算式のみなど)がありますが、学校の課題なら１年づつループしつつ
閏年をカウントしていく方法が良いでしょうね。