仕様では実数型への代入時には実数除算がされるとなっているのですが整数型のときも実数除算がされています。
[ここをクリックすると内容が表示されます]
コード: 全て選択
#include "cons2.idx"
#console
' ↓ ここからプログラムが実行されます
dim a As Long
dim b As Long
dim i As Long
dim j As Long
for i = 1990 to 2010
for j = 1 to 12
a = getweekday1( i, j, 1)
b = getweekday2( i, j, 1)
if a<>b then print i,j,a,b
Next j
Next
Sleep(5000)
end
function getweekday1(year As Long, month As Long, date As Long) As Long
if month < 3 then
month = month + 12
year = year - 1
end if
getweekday1 = ( year + year \ 4 - year \ 100 + year \ 400 + (13 * month + 8) \ 5 + date) mod 7
End Function
function getweekday2(year As Long, month As Long, date As Long) As Long
if month < 3 then
month = month + 12
year = year - 1
end if
getweekday2 = ( year + year / 4 - year / 100 + year / 400 + (13 * month + 8) / 5 + date) mod 7
End Function