作者MOONRAKER (㊣科学秘招！雷电闪光！)
看板Visual_Basic
标题Re: [VBA ] excel上农历国历的转换
时间Tue Jan 3 18:08:43 2012
※ 引述《lainnial (lain)》之铭言：
: 请问我可以如何更改这个模组，或者有更好方式呢?
什麽人玩什麽鸟，里面那麽多magic number，更改…开什麽玩笑…
你想办法另找一个倒过来的演算法还比较简单。
资料不多的话以下的方法可以用一用，我称为「暴力法」。
1. 已知西历某一日 K ，可经农历转换为 M 月 D 日。
2. 农历一年天数 in [ 350, 385 ] ，故
a. 令 i = 385
b. 令 L = K + i 天
c. 转换 L 为农历 p 月 q 日
d. 检查看是否 p=M AND q=D
是：结束执行，p, q为答案
否：继续执行
e. 令 i = i - 1
f. 检查看是否 i<350
是：结束执行
否：回到 b
--
从前有个马铃薯王国 有个高贵伟大的国王
有的人尊敬他 有的人畏惧他 但有个人敢看不起他不只是一条龙
嘿呵 快出动 去征服 去摆平 嘿呵 快出征 去征服那条龙
嘿呵 快出动
(宰了它!轰了它!)嘿呵 快出征 去征服那条龙
:■ Potatoes and Dragons (C)Alphanim France 2004-05 :.
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.120.49.163