19870915阴历转换为阳历1987年11月6日星期五 "农历1987年九月十五日"查询信息如下: 公历:1987年11月6日星期五天蝎座 农历:兔年 九月 十五日 四柱:丁卯 庚戌 己未 节气: 生诞: 二十八宿:角 甲子纳音:天上火 距今:已过去10506天
下面是一个关于VB的农历演算法 '日期资料定义方法如下 '前12个位元组代表1-12月为大月或是小月,1为大月30天,0为小月29天; '第13位为闰月的情况,1为大月30天,0为小月29天; '第14位为闰月的月份,如果不是闰月为0,否则给出月份,10、11、12分别用A、B、C来表示,即使用16进位制; '最后4位为当年家农历新年-即农历1月1日所在公历的日期,如0131代表1月31日。 Function GetChgDate(ByVal vDate As String, ByVal ChgType As 转换方式) As String Dim vvdate() As String = Split(vDate, "-") If vvdate(0) > 2011 Or vvdate(0) < 1900 Then Throw New NotSupportedException("本函式只提供1900年至2011年的日历转换!") End If Dim AddMonth, AddDay, AddYear, getDay, i As Integer Dim RunYue As Boolean Dim conDate As DateTime Dim daList(2011) As String daList(1900) = "010010110110180131" daList(1901) = "010010101110000219" daList(1902) = "101001010111000208" daList(1903) = "010100100110150129" daList(1904) = "110100100110000216" daList(1905) = "110110010101000204" daList(1906) = "011010101010140125" daList(1907) = "010101101010000213" daList(1908) = "100110101101000202" daList(1909) = "010010101110120122" daList(1910) = "010010101110000210" daList(1911) = "101001001101160130" daList(1912) = "101001001101000218" daList(1913) = "110100100101000206" daList(1914) = "110101010100150126" daList(1915) = "101101010101000214" daList(1916) = "010101101010000204" daList(1917) = "100101101101020123" daList(1918) = "100101011011......馀下全文>>
很难说丁就是因为各地习俗或是家庭习惯的不同,每个人都不一样,也许就是因为这个,所以你才对于生日应该过阴历还是过阳历。 其实两个都可以过,一般家里人是过阴历(因为家庭吗,难免受传统影响,而阴历就跟传统关系密切),同事或同学就过阳历,因为我们的上班/生活/学习一般跟阳历相关。 其实这些都不重要,就看你自己而已,不管我还是钟情于两个一起过,请假方便,礼物也多,聚会也多个名堂,你认为呢?
阴历 辛卯(2011)年四月十六, 距离今日已经过去1861天。 阳历 2011年5月18日 星期三 金牛座。
如果是非官方的民间,按各地方的风俗习惯使用阳历或者是阴历,如果是官方的,一定是用阳历。
2013年正月二十
(公历): 1958年 7月 7日 (农历): 戊戌年 五月 廿一
你是阳历7月13。不是每年都有闰五月的,你出生那年没有闰五月,所以身份证上的日期是正确的。至于什么是闰五月,我也不复制啦,你在知道里搜闰五月就知道啦,内容有点多噢。
有缘,是不是有份那就看合不合的来了。我一朋友手机号后四位与他一任女朋友生日相同,后来他把那个号码转给女友,最后还是因家里反对分开了。不必太在意这个,适合才好。
当然是用阴历~