主题：阴历生日转成阳历

能将阴历生日转成阳历进行提醒吗，如何做

农历日期

Foxtable提供了一个Lunar类型，专门用于农历和公历之间的转换。

Lunar的属性包括：

属性	说明
Year	返回农历年
Month	返回农历月，由于可能存在闰月，所以值在1到13之间，例如某年闰7月，那么该年闰7月的Month属性为8，8月的Month属性为9
Day	返回农历日
LeapMonth	如果给定的日期在闰年，则返回第几个月是闰月，例如2007年是闰7月，等于是第8个月是闰月，所以LeapMonth属性为8
IsLeapMonth	逻辑型，给定的日期如果在闰月，则返回True
IsLeapYear	逻辑型，给定的日期如果在闰年，则返回True
SolarDate	日期型，返回公历日期
LunarDate	字符型，返回农历日期的字符表示

定义一个Lunar的语法有两种。

语法一

New Lunar(Date)

Date: 公历日期

示例

'输出2002年3月17日对应的农历日期
Dim ln As New Lunar(#3/17/2002#)
output.show(ln.LunarDate)
'输出2006年8月25日对应的农历日期
ln = New Lunar(#8/25/2006#)
Output.show(ln.LunarDate)
If ln.IsLeapMonth Then
    Output.Show("这是闰月!")
End If

语法二

New Lunar(Year, Month, Day, Leap)

Year： 农历年
Month: 农历月
Day:   农历日
Leap:  逻辑型，是否闰月

示例

'获得农历2008年8月15日(中秋节)对应的阳历日期
Dim ln As New Lunar(2008,8,15,False)
output.show(ln.SolarDate)
'获得2006年闰7月15日对应的阳历日期
ln  = New Lunar(2006,7,15,true)
output.show(ln.SolarDate)