标题: 白昼与黑夜,及日出时间日落时间计算工具 [打印本页]

作者: 51hei丽人    时间: 2016-6-21 01:17
标题: 白昼与黑夜,及日出时间日落时间计算工具
dim a,c1,c2,k1,k2,k3,rc1,rc2,rl1,rl2,bz,yy
a=12
msgbox "你输入一个值,我将返回四个值。不过,难免会有计算错误,这一点请原谅。======作者:谭泽睿"
b=inputbox("输入日出时间,格式为:05:30;不晓得就填“0000”","日出","0000")
if b="0000" then
b=inputbox("输入日落时间,格式为: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 "白昼持续:"&bz&chr(13)&"夜晚持续:"&yy&chr(13)&"日出时间:"&rc2&chr(13)&"日落时间:"&rl2,,"计 算 结 果 如 下 :"


将以上代码保存为   任意名称.vbs      
记住,扩展名是VBS啊。
写了近1小时的小作品,不足挂齿,请大家笑纳。


作者: andychen0016    时间: 2016-6-21 10:53
笑衲,笑钠
作者: tieq1952    时间: 2024-11-19 07:00
很好。笑衲。谢谢分享!!!




欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1