农历转换公历转换器(农历转换公历)

如何正确地查看自己的星座？不要被阳历和农历搞混了！

星座是一种根据太阳在黄道上的位置来划分的，每个星座对应一个黄道十二宫的区域。星座的起源和发展与西方文化有着密切的关系，因此，星座的计算方法是基于阳历（公历）的，而不是农历（阴历）。

阳历是一种以地球绕太阳公转为基础的历法，每年有365或366天，分为12个月，每个月有28到31天不等。阳历的日期和季节是相对固定的，比如春分点（太阳到达黄经0度时）大约在每年的3月21日左右。阳历是目前世界上通用的历法，也是科学研究和国际交流的标准。

农历是一种以月亮绕地球运行为基础的历法，每年有12或13个月，每个月有29或30天不等。农历的日期和季节是相对变化的，比如春节（农历正月初一）可能在阳历1月或2月之间不同的日期。农历是中国传统的历法，也是一些亚洲国家和地区的民俗文化的一部分。

由于阳历和农历的差异，如果按照农历来计算星座，就会出现很多错误和混乱。比如，一个人可能在阳历10月23日出生，属于天秤座，但在农历9月初出生，属于处女座。这样就会造成两个不同的星座结果，而且与西方星座文化不符。因此，正确的方法是按照阳历来计算星座。

如果你想知道自己的星座，只需要查看你出生日期在阳历中对应的星座区间即可。以下是一个参考表：

| 星座 | 阳历日期 |

| 白羊座 | 3月21日～4月19日 |

| 金牛座 | 4月20日～5月20日 |

| 双子座 | 5月21日～6月20日 |

| 巨蟹座 | 6月21日～7月22日 |

| 狮子座 | 7月23日～8月22日 |

| 处女座 | 8月23日～9月22日 |

| 天秤座 | 9月23日～10月22日 |

| 天蝎座 | 10月23日～11月22日 |

| 射手座 | 11月23日～12月21日 |

| 摩羯座 | 12月22日～1月19日 |

| 水瓶座 | 1月20日～2月18日 |

| 双鱼座 | 2月19日～3月20日 |

需要注意的是，这个表格只是一个大致的划分，因为太阳进入每个星座的具体时间会因为年份和地区而有所不同。如果你想更准确地知道自己的星座，你还需要考虑你出生时刻和出生地点的影响。你可以使用一些在线工具来帮助你计算出你自己的星座。

总之，星座是看阳历还是看农历呢？答案是看阳历。

星座仅供娱乐阅读，请勿过分相信哟

#十二星座#

农历转公历

Public Function LTG(Optional xx_date As Date, Optional irow As Integer) '农历转公历

Dim LunarYear, LunarMonth, LunarDay

Dim NongliData(100)

'农历数据

NongliData(0) = 2635

NongliData(1) = 333387

NongliData(2) = 1701

NongliData(3) = 1748

NongliData(4) = 267701

NongliData(5) = 694

NongliData(6) = 2391

NongliData(7) = 133423

NongliData(8) = 1175

NongliData(9) = 396438

NongliData(10) = 3402

NongliData(11) = 3749

NongliData(12) = 331177

NongliData(13) = 1453

NongliData(14) = 694

NongliData(15) = 201326

NongliData(16) = 2350

NongliData(17) = 465197

NongliData(18) = 3221

NongliData(19) = 3402

NongliData(20) = 400202

NongliData(21) = 2901

NongliData(22) = 1386

NongliData(23) = 267611

NongliData(24) = 605

NongliData(25) = 2349

NongliData(26) = 137515

NongliData(27) = 2709

NongliData(28) = 464533

NongliData(29) = 1738

NongliData(30) = 2901

NongliData(31) = 330421

NongliData(32) = 1242

NongliData(33) = 2651

NongliData(34) = 199255

NongliData(35) = 1323

NongliData(36) = 529706

NongliData(37) = 3733

NongliData(38) = 1706

NongliData(39) = 398762

NongliData(40) = 2741

NongliData(41) = 1206

NongliData(42) = 267438

NongliData(43) = 2647

NongliData(44) = 1318

NongliData(45) = 204070

NongliData(46) = 3477

NongliData(47) = 461653

NongliData(48) = 1386

NongliData(49) = 2413

NongliData(50) = 330077

NongliData(51) = 1197

NongliData(52) = 2637

NongliData(53) = 268877

NongliData(54) = 3365

NongliData(55) = 531109

NongliData(56) = 2900

NongliData(57) = 2922

NongliData(58) = 398042

NongliData(59) = 2395

NongliData(60) = 1179

NongliData(61) = 267415

NongliData(62) = 2635

NongliData(63) = 661067

NongliData(64) = 1701

NongliData(65) = 1748

NongliData(66) = 398772

NongliData(67) = 2742

NongliData(68) = 2391

NongliData(69) = 330031

NongliData(70) = 1175

NongliData(71) = 1611

NongliData(72) = 200010

NongliData(73) = 3749

NongliData(74) = 527717

NongliData(75) = 1452

NongliData(76) = 2742

NongliData(77) = 332397

NongliData(78) = 2350

NongliData(79) = 3222

NongliData(80) = 268949

NongliData(81) = 3402

NongliData(82) = 3493

NongliData(83) = 133973

NongliData(84) = 1386

NongliData(85) = 464219

NongliData(86) = 605

NongliData(87) = 2349

NongliData(88) = 334123

NongliData(89) = 2709

NongliData(90) = 2890

NongliData(91) = 267946

NongliData(92) = 2773

NongliData(93) = 592565

NongliData(94) = 1210

NongliData(95) = 2651

NongliData(96) = 395863

NongliData(97) = 1323

NongliData(98) = 2707

NongliData(99) = 265877

NongliData(100) = 1706

Dim m, monthCount, toCurMonthCnt, LeapMonth, theDate, curTime

Dim i1, i2, i3, bit

'获取当前变量日期

curTime = xx_date

'LunarYear = Year(curTime)

LunarYear = Year(Now())

LunarMonth = Month(curTime)

LunarDay = Day(curTime)

m = LunarYear - 1921

monthCount = 0

toCurMonthCnt = 0

LeapMonth = -1

theDate = LunarDay - 1

For i1 = 0 To m - 1 Step 1

If (NongliData(i1) < 4095) Then

monthCount = 11

Else

monthCount = 12

End If

For i2 = 0 To monthCount Step 1

bit = NongliData(i1)

For i3 = 1 To i2 Step 1

bit = Int(bit / 2)

Next

bit = bit Mod 2

theDate = theDate + 29 + bit

Next

Next

If (NongliData(m) < 4095) Then

monthCount = 11

toCurMonthCnt = monthCount - LunarMonth + 2

Else

monthCount = 12

toCurMonthCnt = monthCount - LunarMonth + 1

LeapMonth = Int(NongliData(m) / 65536)

If LunarMonth <= LeapMonth Then toCurMonthCnt = toCurMonthCnt + 1

End If

For i2 = monthCount To toCurMonthCnt Step -1

bit = NongliData(m)

For i3 = 1 To i2 Step 1

bit = Int(bit / 2)

Next

bit = bit Mod 2

theDate = theDate + 29 + bit

Next

LTG = DateAdd("d", theDate, "1921/2/8")

If irow = 1 Then

Sheet1.Cells(1, 10) = "'" & LTG

Else

Sheet1.Cells(irow, 4) = "'" & LTG

End If

End Function

Private Sub CommandButton1_Click()

If IsDate(Sheet1.Cells(1, 9)) = True And IsNull(Sheet1.Cells(1, 9)) = False And Sheet1.Cells(1, 9) <> "" Then

aaa = LTG(Sheet1.Cells(1, 9), 1)

End If

Dim i As Integer

For i = 2 To 100

Sheet1.Cells(i, 4) = ""

If Sheet1.Cells(i, 2) <> "" And IsNull(Sheet1.Cells(i, 2)) = False And IsDate(Sheet1.Cells(i, 2)) = True Then

If Sheet1.Cells(i, 3) = "Y" Then

bbb = LTG(Sheet1.Cells(i, 2), i)

Else

Sheet1.Cells(i, 4) = "'" & Sheet1.Cells(i, 2)

End If

Else

Application.DisplayAlerts = False

Application.Quit

End If

Next i

End Sub

公历2023年-农历日历共384天：看中国日历，过中国年[修订版]

春节（Spring Festival），即中国农历新年，俗称新春、新岁、岁旦等，口头上又称过年、过大年。中国春节历史悠久，由上古时代岁首祈岁祭祀演变而来。

中国历法

精一至善所知的历法至少有6种：

①黄帝纪年（中国彝族十二兽历/古传干支历）、

②干支纪年（今传干支历/十二气历）、

③二十四节气历（七十二候历）、

④中国农历（阴阳合历）、

⑤中国彝族十月太阳历

⑥西历。

而我们中国人其实至少有三个新年或者元旦，也就是我们中国人认为的一年的开始至少有三种：

①“冬至”，古传干支纪年法的新年。这是“夏商周”时期周朝的新年和黄帝时期的新年。俗语有云 冬至大如年。另外《易经》中有地雷复一卦“一元复始,万象更新”。就是说的“冬至”一阳生。“冬至”一阳节中国年。

②“立春”,今传干支纪年法的新年。今传干支历岁首。中国人讲年年岁岁，一岁之首就是“立春”。

③“正月初一”,别称“大年初一”、春节、农历新年。

中国天文学会会员、天津市天文学会理事杨婧说，

我国农历中的月是按月亮盈亏圆缺变化的周期定义的，称之为“朔望月”。

一个朔望月的平均长度为29.53天，并非整数，而一个月的天数要用整数表示，因此有时是小月29天，有时是大月30天。

同时，为了保证农历每月的初一必须是朔日，所以大小月的安排也不是固定的，这需要通过精确的计算来确定。

2023 年农历一共有 384 天。公历 2023 年是平年，所以是 365 天，但是农历 2023 年会多一个闰二月，闰二月 是小月份一共有 29 天，所以农历 2023 年一共有 384 天。

公历2023年-农历癸卯兔年日历：看中国日历，过中国年

昨日，分享了农历日历的内容，上为公历，下注为农历。如下图：