by 猿渡信吾 » 2010年5月07日(金) 05:44
なんてことはない時間を秒に直すだけの計算なのですが
コード: 全て選択
Dim st As SYSTEMTIME
Dim b As Long, c As Long, e As Long
st.wYear=2010
st.wMonth=5
st.wDay=6
st.wHour=16
st.wMinute=37
st.wSecond=19
b = (st.wHour *3600) + (st.wMinute *60) + st.wSecond
st.wYear=2010
st.wMonth=5
st.wDay=6
st.wHour=18
st.wMinute=27
st.wSecond=30
c = (st.wHour *3600) + (st.wMinute *60) + st.wSecond
e = st.wHour *3600
e = e + (st.wMinute *60) + st.wSecond
cの結果が変になります
bは正しいので特定の数値のみ結果が変になるようです
eの様に分けると結果が正しくなります
AB 4.24
Windows XP HOME SP3
まぁ、ABの更新が止まっているので
こんな事を書いてもほとんど意味がないと思いますが
せめてAB4.24のバグ修正版だけでもでないかなぁと願いつつ。
ABはこれからどうなっていくんでしょう?
作者様からの何らかの発表がほしいです。
なんてことはない時間を秒に直すだけの計算なのですが
[code]
Dim st As SYSTEMTIME
Dim b As Long, c As Long, e As Long
st.wYear=2010
st.wMonth=5
st.wDay=6
st.wHour=16
st.wMinute=37
st.wSecond=19
b = (st.wHour *3600) + (st.wMinute *60) + st.wSecond
st.wYear=2010
st.wMonth=5
st.wDay=6
st.wHour=18
st.wMinute=27
st.wSecond=30
c = (st.wHour *3600) + (st.wMinute *60) + st.wSecond
e = st.wHour *3600
e = e + (st.wMinute *60) + st.wSecond
[/code]
cの結果が変になります
bは正しいので特定の数値のみ結果が変になるようです
eの様に分けると結果が正しくなります
AB 4.24
Windows XP HOME SP3
まぁ、ABの更新が止まっているので
こんな事を書いてもほとんど意味がないと思いますが
せめてAB4.24のバグ修正版だけでもでないかなぁと願いつつ。
ABはこれからどうなっていくんでしょう?
作者様からの何らかの発表がほしいです。