標(biāo)題: 白晝與黑夜，及日出時(shí)間日落時(shí)間計(jì)算工具 [打印本頁] 作者: 51hei麗人 時(shí)間: 2016-6-21 01:17 標(biāo)題: 白晝與黑夜，及日出時(shí)間日落時(shí)間計(jì)算工具 dim a,c1,c2,k1,k2,k3,rc1,rc2,rl1,rl2,bz,yy
a=12
msgbox "你輸入一個(gè)值，我將返回四個(gè)值。不過，難免會(huì)有計(jì)算錯(cuò)誤，這一點(diǎn)請?jiān)彙?=====作者：譚澤睿"
b=inputbox("輸入日出時(shí)間,格式為：05:30;不曉得就填“0000”","日出","0000")
if b="0000" then
b=inputbox("輸入日落時(shí)間,格式為：19:30;不曉得就填“0000”","日落","0000")
if b="0000" then
msgbox "你啥都不知道，耍我��？"
else
c1=int(mid(b,1,2))
c2=int(mid(b,4,2))
k1=24-c1
k2=60-c2
rc2=k1&":"&k2
bz=2*(12-k1)
if k2*2 >= 60 then
k2=(k2*2)-60
k1=k1+0.5
bz=2*(12-k1)&":"&k2
else
bz=2*(12-k1)&":"&k2
end if
yy=(24-2*(12-k1))&":"&(60-k2)
end if
else
c1=int(mid(b,1,2))
c2=int(mid(b,4,2))
k1=12-c1
k2=60-c2
if k2*2>=60 then
k3=k2*2-60
k1=k1+0.5
else
k3=k2*2
end if
yy=k1*2&":"&k3
bz=(24-k1*2)&":"&(60-k3)
rc2=b
rl1=a+k1
rl2=rl1&":"&k2
end if
msgbox "白晝持續(xù):"&bz&chr(13)&"夜晚持續(xù):"&yy&chr(13)&"日出時(shí)間:"&rc2&chr(13)&"日落時(shí)間:"&rl2,,"計(jì) 算 結(jié) 果 如 下 ："