批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] VBS怎样计算指定经纬度地区当天日出日落时间?

本帖最后由 1078292299 于 2022-9-9 11:06 编辑

原文地址:http://www.bathome.net/viewthrea ... hlight=%C8%D5%C2%E4
  1. Dim JD, WD, Days, SunDown, TimeArea, X, ACOS, Arr, Today
  2. JD = 113.8 '经度,东为正西为负,我国都是东经
  3. WD = 27.55 '纬度,北为正南为负,我国都是北纬
  4. TimeArea = 8 '时区,东正西负,我国有东九、东八、东七、东六、东五五个时区
  5. TodAy = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
  6. Days = DateDiff("d", Year(Now) & "-1-1 00:00:00", Now) + 1
  7. X = -TAN(-23.4*COS(2*3.14*(Days+9)/365)*3.14/180)*TAN(WD*3.14/180)
  8. ACOS = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
  9. SunDown = Round(24*(1+(TimeArea*15-JD)/180)-24*(180+TimeArea*15-JD-ACOS*180/3.14)/360, 2)
  10. Arr = Split(SunDown, ".")
  11. SunDown = Arr(0) & ":" & Int((0&"."&Int(Arr(1)))*60)
  12. WScript.Echo "本地" & Today & "的日落时间为:" & SunDown
复制代码
这个VBS只能显示日落时间,哪位大神把日出时间也加进去?谢谢

此帖仅作者可见
微信:flashercs
QQ:49908356

TOP

此帖仅作者可见

TOP

此帖仅作者可见

TOP

此帖仅作者可见
微信:flashercs
QQ:49908356

TOP

返回列表