西暦→和暦--->系统函数！！

格式：Format("1988/11/18", "ggge年m月d日")

格式：Format("平成17年11月18日", "yyyy年m月d日")

Format后的第一个参数必须是字符串形式的日期。

Sample:

Format(now, "ggge年m月d日")
平成17年11月18日
Format(now, "ee年mm月dd日")
17年11月18日
Format(now, "gee年mm月dd日")
H17年11月18日
Format(now, "ggge年-mm月-dd日-aaaa-hh時mm分ss秒")
平成17年-11月-18日-金曜日-18時13分29秒

Format("平成17年11月18日", "yyyy年m月d日")
2005年11月18日 

以上在VB6测试通过。