下载万年历带农历,下载万年历带吉日
最后更新 :2021.11.15 03:17
下载万年历带农历
各位好,在前面有一期作品中,我们曾经在Excel中实现了万年历的,当时也有很多 友看过我的那期 或视频,附带有评价和收藏,在此向你们表示感谢。
另外,有个名叫“斑斓虎zcy”的粉丝评论说我做的万年历如果含有农历就完美了,对这位粉丝的提议我欣然接受,另外,虽然我没采用“斑斓虎zcy”粉丝提供的公历转农历的关键技术模版,但对“斑斓虎zcy”粉丝的热心表示深深的谢意!
刚刚上一期,我为大家分享了自己弄的公历—-农历互转的技术与,也有很多 友看了这期 或视频,说明大家对这个也很认可的,谢谢各位啦!接下来,我准备用两种公历—-农历互转的实现带农历的万年历设计吧!为了区分起见,我们暂定本期的题目为“ –Excel中带农历的万年历设计一”、下期作品的题目为“ –Excel中带农历的万年历设计二”。
本期,我们先来用之一种实现吧。
一、Excel前端带农历万年历界面设计
界面的设计,这里和上次那一期万年历的界面一样,这里不做过多描述,这里就只以截图直接呈现给各位吧。如下图所示
图1 带农历的万年历界面
二、用一实现带农历万年历的功能代码
模块1中代码如下:
‘强势自定义“公历”—-“农历”互转函数
‘ :互联
‘修正:今日号 “跟我学Office高级办公应用” 2022 /10/12
‘—农历数据定义—
‘先以 Hexadecimal_To_Binary 函数还原成长度为 18 的字符串,其定义如下:
‘前12个字节代表1-12月:1为大月,0为小月;压缩成十六进制(1-3位)
‘第13位为闰月的情况,1为大月30天,0为小月29天;(4位)
‘第14位为闰月的月份,如果不是闰月为0,否则给出月份(5位)
‘最后4位为当年农历新年的公历日期,如0131代表1月31日;当作数值转十六进制(6-7位)
‘定义如下农历(阴历)日期常量(1899~2100,共202年,但是事实上我们只需要用到1900~2100这201年即可)
Private Const ylData = “AB500D2,4BD0883,” _
“4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2,” _
“A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC,” _
“A4B00D0,B4B0580,6A500D8,6D400CD,AB5147C,2B600D5,95700CA,52F027B,49700D2,6560682,” _
“D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0,” _
“D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9,” _
“B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680,” _
“AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE,” _
“4DD057F,4AD00D7,A4D00CB,D4D047B,D2500D3,D550883,B5400DA,B6A00CF,95A1680,95B00D8,” _
“49B00CD,A97047D,A4B00D5,B270ACA,6A500DC,6D400D1,AF40681,AB600D9,93700CE,4AF057F,” _
“49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD,” _
“D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6,” _
“B4A00CB,BAA047B,B5500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D,” _
“6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB,” _
“76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4,” _
“56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B,” _
“93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA,” _
“D2E0379,C9600D1,D550781,D4A00D9,DA400CD,5D5057E,56A00D6,A6C00CB,55D047B,52D00D3,” _
“A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A,” _
“69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882,” _
“D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1”
‘定义农历 (阴历)每月的汉字大写日期“天”
Private Const ylMd0 = “初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五” _
“十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十 “
‘定义农历 (阴历)一年中的汉字大写日期“月”
Private Const ylMn0 = “正二三四五六七八九十冬腊”
‘定义农历 (阴历)年中的“天干”(如:甲乙丙丁……等)
Private Const ylTianGan0 = “甲乙丙丁戊已庚辛壬癸”
‘定义农历 (阴历)年中的“地支”(如:子丑寅卯辰……等)
Private Const ylDiZhi0 = “子丑寅卯辰巳午未申酉戌亥”
‘定义农历 (阴历)年中的“属相”(如:鼠牛虎兔龙……等)
Private Const ylShu0 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”
Public shp_year_select As Shape, y ‘定义公有全局变量年份选择组合框shp_year_select和用于存储选择的年份变量y,以便所有的过程都可以调用和回传数据
Sub Run_Fill_Calender() ‘运行填充日历
[b4].Select
n = shp_year_select.ControlFormat.Value
y = shp_year_select.ControlFormat.List(n)
[O1] = y ” 年历” “[” Mid(GetYLDate(y “-6-1”), 4, 6) “]”
Fill_Calender_Datas ‘调用“填充日历数据”过程
[a65535] = y ‘将选择过的年份存储在单元格”A65535″中
End Sub
Sub Fill_Calender_Datas() ‘填充日历数据
Dim rg(1 To 12) As Range ‘定义12个元素的的范围区域对象数组
‘为区域对象数组的每个区域对象元素对象指派这12个区域对象具体的实体
Set rg(1) = [b5:h10]: Set rg(2) = [j5:p10]: Set rg(3) = [r5:x10]: Set rg(4) = [z5:af10]
Set rg(5) = [b15:h20]: Set rg(6) = [j15:p20]: Set rg(7) = [r15:x20]: Set rg(8) = [z15:af20]
Set rg(9) = [b25:h30]: Set rg(10) = [j25:p30]: Set rg(11) = [r25:x30]: Set rg(12) = [z25:af30]
For i = 1 To 12
Select Case i
Case 1, 3, 5, 7, 8, 10, 12: days_31 y, i, rg(i)
Case 4, 6, 9, 11: days_30 y, i, rg(i)
Case 2: days_29_Or_28 y, i, rg(i)
End Select
Next
End Sub
Sub Erse_Calender_Datas() ‘清空日历数据
Dim rg As Range
Set rg = [5:10,15:20,25:30]
[b4].Select
rg.ClearContents
[O1] = “—- 年历[—–年]”
yr = Year(Date)
‘以下是定位当今日期的年份在表单组合框中显示
For i = 1 To shp_year_select.ControlFormat.ListCount
If yr = Val(shp_year_select.ControlFormat.List(i)) Then
n = i
Exit For
End If
Next
shp_year_select.ControlFormat.ListIndex = n
End Sub
Sub days_31(y, m, r As Range) ‘月大–31天
Dim da As Date, d
r.ClearContents
week_str = “日一二三四五六”
d = 1
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的定位位置
For d = 1 To 31
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
Other_Day_Pos_In_Week_Area = InStr(week_str, ws)
‘实际的每月的号数应该加上每月初始的1号在日历星期区域的定位位置减去1“”d + (First_Day_Pos_In_Week_Area – 1),为了在第7个位置仍然将该号 _
数放在该行,所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”,然后再除7取整,同时乘以7后加上该号数在日历中星期区域的实际列数 _
位置,即可得到该号数在日历区域的设计位置
p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area
yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数,取后四个汉字月日日期字符
yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份
yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子
If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”,则即刻用该月的月份替代该阴历月份的首个日子
r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置
If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配,则将当前填充的日期单元格选择成活动状态
Next
End Sub
Sub days_30(y, m, r As Range) ‘月小–30天
Dim da As Date, d
r.ClearContents
week_str = “日一二三四五六”
d = 1
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的定位位置
For d = 1 To 30
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
Other_Day_Pos_In_Week_Area = InStr(week_str, ws)
‘实际的每月的号数应该加上每月初始的1号在日历星期区域的定位位置减去1“”d + (First_Day_Pos_In_Week_Area – 1),为了在第7个位置仍然将该号 _
数放在该行,所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”,然后再除7取整,同时乘以7后加上该号数在日历中星期区域的实际列数 _
位置,即可得到该号数在日历区域的设计位置
p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area
yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数,取后四个汉字月日日期字符
yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份
yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子
If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”,则即刻用该月的月份替代该阴历月份的首个日子
r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置
If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配,则将当前填充的日期单元格选择成活动状态
Next
End Sub
Sub days_29_Or_28(y, m, r As Range) ‘闰年2月份29天,平年2月份28天(例如2022 年就是闰年)
Dim da As Date, d
r.ClearContents
week_str = “日一二三四五六”
d = 1
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的定位位置
If Is_LeepYear(y) Then ‘闰年2月份天数
For d = 1 To 29
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
Other_Day_Pos_In_Week_Area = InStr(week_str, ws)
‘实际的每月的号数应该加上每月初始的1号在日历星期区域的定位位置减去1“”d + (First_Day_Pos_In_Week_Area – 1),为了在第7个位置仍然将该 _
号数放在该行,所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”,然后再除7取整,同时乘以7后加上该号数在日历中星期区域的实 _
际列数位置,即可得到该号数在日历区域的设计位置
p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area
yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数,取后四个汉字月日日期字符
yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份
yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子
If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”,则即刻用该月的月份替代该阴历月份的首个日子
r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置
If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配,则将当前填充的日期单元格选择成活动状态
Next
Else ‘平年2月份天数
For d = 1 To 28
da = CDate(y “-” m “-” d) ‘将字符串动态转换为真正的日期
ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字符串中提取大写星期几的汉字保存在ws中
Other_Day_Pos_In_Week_Area = InStr(week_str, ws)
‘实际的每月的号数应该加上每月初始的1号在日历星期区域的定位位置减去1“”d + (First_Day_Pos_In_Week_Area – 1),为了在第7个位置仍然将该 _
号数放在该行,所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”,然后再除7取整,同时乘以7后加上该号数在日历中星期区域的实 _
际列数位置,即可得到该号数在日历区域的设计位置
p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area
yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数,取后四个汉字月日日期字符
yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份
yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子
If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”,则即刻用该月的月份替代该阴历月份的首个日子
r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置
If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配,则将当前填充的日期单元格选择成活动状态
Next
End If
End Sub
Function Is_LeepYear(y) As Boolean ‘给定的年份是否为闰年LeepYear的判断
If (y Mod 400 = 0) Or (y Mod 100 0 And y Mod 4 = 0) Then
Is_LeepYear = True
Else
Is_LeepYear = False
End If
End Function
‘自定义“公历转农历”日期函数
Function GetYLDate(ByVal strDate As String) As String
On Error GoTo ExitFunction_Label
If Not IsDate(strDate) Then Exit Function ‘如果参数strDate非日期的无效字符串,则退出本函数工作
‘定义setDate–设置的未来日期,tYear–未来日期的本年份,tMonth–本月份,tDay–本日子
Dim setDate As Date, tYear As Integer, tMonth As Integer, tDay As Integer
setDate = CDate(strDate) ‘为该GetYLDate()函数参数的字符串转换后的日期赋予设定的日期
tYear = Year(setDate): tMonth = Month(setDate): tDay = Day(setDate) ‘年、月、日分别取值
‘如果不是有效有日期,退出
If tYear 2100 Or tYear 1900 Then Exit Function
‘定义daList()–是元素为18位日期二进制字符串数组,conDate–农历新年日期,thisMonths–本年的二进制 _
月份信息(可能 闰月)
Dim daList() As String * 18, conDate As Date, thisMonths As String
‘定义AddYear–是相对1900年递增的年,AddMonth–月份增量,AddDay–天数增量,getDay–农历新年和设 _
之日期相差天数
Dim AddYear As Integer, AddMonth As Integer, AddDay As Integer, getDay As Integer
‘定义YLyear–农历(阴历)年的字符串,YLShuXing–农历(阴历)年的属相
Dim YLyear As String, YLShuXing As String
‘定义dd0–农历(阴历)年的阴历日子,mm0–农历(阴历)年的阴历月,ganzhi()–每个元素为2个字符的天干地 _
支数组
Dim dd0 As String, mm0 As String, ganzhi(0 To 59) As String * 2
‘定义RunYue–农历(阴历)年是否闰月的布尔型标志,RunYue1–农历(阴历)年闰月月份
Dim RunYue As Boolean, RunYue1 As Integer, mDays As Integer, i As Integer
‘加载2年内的农历数据
ReDim daList(tYear – 1 To tYear)
daList(tYear – 1) = Hexadecimal_To_Binary(Mid(ylData, (tYear – 1900) * 8 + 1, 7))
daList(tYear) = Hexadecimal_To_Binary(Mid(ylData, (tYear – 1900 + 1) * 8 + 1, 7))
AddYear = tYear
initYL:
AddMonth = CInt(Mid(daList(AddYear), 15, 2))
AddDay = CInt(Mid(daList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay) ‘农历新年日期
getDay = DateDiff(“d”, conDate, setDate) + 1 ‘相差天数
If getDay 1 Then AddYear = AddYear – 1: GoTo initYL
thisMonths = Left(daList(AddYear), 14) ‘前14位为本年的二进制月份信息(可能有闰月)存于thisMonths中
RunYue1 = Val(“H” Right(thisMonths, 1)) ‘闰月月份
If RunYue1 0 Then ‘如果有闰月,则立即修正本年的二进制月份信息thisMonths,形成真正有效的二进制序 _
列信息
thisMonths = Left(thisMonths, RunYue1) Mid(thisMonths, 13, 1) Mid(thisMonths, RunYue1 + 1)
End If
thisMonths = Left(thisMonths, 13) ‘最后一次修正本年的二进制月份信息thisMonths,直接取13个月的情况
For i = 1 To 13 ‘遍历1~13个月,找到并计算含闰月的有效天数,同时退出循环
mDays = 29 + CInt(Mid(thisMonths, i, 1))
If getDay mDays Then
getDay = getDay – mDays
Else
If RunYue1 0 Then ‘如果有闰月,则进一步根据i的值情况做如下处理
If i = RunYue1 + 1 Then RunYue = True ‘若i确系为闰月,则将闰月标志置为真
If i RunYue1 Then i = i – 1 ‘若i大于闰月月份,则将将i回退修正
End If
AddMonth = i ‘最终记录下i作为真正的增量月份存入AddMonth
AddDay = getDay ‘同时,将得到的天数差作为增量天数
Exit For
End If
Next
dd0 = Mid(ylMd0, (AddDay – 1) * 2 + 1, 2) ‘用查找表的形式定位当前日期对应的农历(阴历)日子
mm0 = Mid(ylMn0, AddMonth, 1) + “月” ‘用查找表的形式定位当前日期对应的农历(阴历)月份
For i = 0 To 59 ‘0~59表示60年一个甲子,表示以60年一个轮回的形式,通过查找表精准定位每年的天干地支
ganzhi(i) = Mid(ylTianGan0, (i Mod 10) + 1, 1) + Mid(ylDiZhi0, (i Mod 12) + 1, 1)
Next
YLyear = ganzhi((AddYear – 4) Mod 60) ‘通过查找表形式得出阴历年的天干地支表示形式
YLShuXing = Mid(ylShu0, ((AddYear – 4) Mod 12) + 1, 1) ‘通过查找表形式得出阴历年的属相表示形式
If RunYue Then mm0 = “闰” mm0 ‘如果某阴历月份有闰月,特别加上“闰X月”的形式
GetYLDate = “农历:” YLyear “(” YLShuXing “)年” mm0 dd0 ‘拼接当前日期的完整农历信息
ExitFunction_Label:
End Function
‘将压缩的阴历字符还原
Private Function Hexadecimal_To_Binary(ByVal strHex As String) As String ‘十六进制转二进制
Dim i As Integer, i1 As Integer, tmpV As String
Const hStr = “0123456789ABCDEF”
Const bStr = “0000000100100011010001010110011110001001101010111100110111101111”
tmpV = UCase(Left(strHex, 3))
‘以下是十六进制转二进制的具体操作
For i = 1 To Len(tmpV)
i1 = InStr(hStr, Mid(tmpV, i, 1))
Hexadecimal_To_Binary = Hexadecimal_To_Binary Mid(bStr, (i1 – 1) * 4 + 1, 4)
Next
Hexadecimal_To_Binary = Hexadecimal_To_Binary Mid(strHex, 4, 2)
‘十六进制转十进制
Hexadecimal_To_Binary = Hexadecimal_To_Binary “0” CStr(Val(“H” Right(strHex, 2)))
End Function
ThisWorkbook中代码如下:
Private Sub Workbook_Open() ‘工作簿一打开即刻初始化表单组合框数据并且在组合框中显示之前选择过的年份
Set shp_year_select = Sheets(1).Shapes(“年份选择”)
shp_year_select.ControlFormat.RemoveAllItems
‘万年历的年份范围初步设定为“1900~2100”
For i = 1900 To 2100
shp_year_select.ControlFormat.AddItem i
Next
‘以下是重新还原表单组合框控件之前选定过的年份显示
yr = [a65535]
For i = 1 To shp_year_select.ControlFormat.ListCount
If yr = Val(shp_year_select.ControlFormat.List(i)) Then
n = i ‘遍历整个表单组合框所有元素,查找与yr是否相匹配的元素,若找到即刻记下该编号并存于n中
Exit For
End If
Next
shp_year_select.ControlFormat.ListIndex = n ‘让表单组合框显示找到的之前选择过的年份
End Sub
三、用一实现带农历万年历运行效果测试
(一)选择年份,呈待生成带农历万年历状态。如下图所示
图2 选择年份准备生成带农历万年历
(二) 选择的年份,生成实实在在的带农历的万年历。如下图所示
图3 生成带农历万年历效果
(三)压下清除日历数据按钮,准备进行带农历的万年历数据清除。如下图所示
图4 准备清除带农历万年历数据
(四)压下状态下的清除日历数据按钮情况下 该按钮,完成带农历万年历数据的清除,并将年份组合框内的显示提示年份置为最新当前时间的年份。如下图所示
图5 清除带农历万年历数据结果
四、技术亮点小结
(一)充分利用寻找农历闰月和压缩的农历字符还原完成公历转农历
(二)在定位Excel的万年历数据填充单元格时,用字符串处理函数处理农历生成的数据
(三)存储记忆上次打开万年历的数据
好了,本期我们就分享到这里吧,希望大家喜欢和收藏哦!
最后,还是感谢大家的持续 (号:跟我学Office高级办公)、推广、点评哦!谢谢大家继续 下期第二中实现带农历的万年历设计!
以上就是与下载万年历带农历相关内容,是关于万年历的分享。看完下载万年历带吉日后,希望这对大家有所帮助!
为什么会对一个人反感(为什么会对一个人特别反感)
为什么会对一个人反感? 在我们与人交往的过程中,有时候会出现对某个特定的人产生反感的情况。这种感觉可能会让我们避免与他们接触,甚至影响到我们的情绪和工作效率。那么,为什么会对一个人产生反感呢? 首先,个人价值观的差...
无情最是台城柳!风水学鼻祖郭璞与大诗人韦庄隔湖遥望
东晋大文学家郭璞衣冠冢,中国风水学的鼻祖。游完梁洲,再回到芳桥,路过米芾拜石处,一路向南就...
固执的生肖是哪个(十二生肖哪个生肖最固执)
固执的生肖是什么?这是一个让人想要探讨的问题,因为每个生肖都有其独特的性格和特点。然而...
年初十开工哪个时辰好(2021年初十开工什么时辰最好)
在中国的传统文化中,开工是一个非常重要的日子。年初十也被称为“破十”,是一个非常吉祥的...
辛是哪个生肖(哪个生肖最旺兔)
辛是哪个生肖?在中国传统的十二生肖中,辛并不是一个生肖属于,而是表示五行之一,“金”元素。...
轩辕名字怎么样(轩辕的名字) 轩辕什么名字好听
轩辕是一个极具历史意义和文化内涵的名字。传说中,轩辕黄帝是中华民族的始祖,他不仅是我国...
2023年3月8日是黄道吉日吗 2023年3月8日入宅好吗
中国人办事要看黄道吉日,订婚结婚的时候要选好日子,搬家入宅的时候也要择个吉日。3月8日是...
退属什么生肖 退伍是什么生肖
本篇文章给大家谈谈退属什么生肖,以及退守指什么生肖对应的知识点,文章可能有点长,但是希望...
八字合婚黄道吉日 八字合婚黄道吉日选择
各位老铁们好,相信很多人对八字合婚黄道吉日都不是特别的了解,因此呢,今天就来为大家分享下...
免费姓名算命-免费算命大全 大家找免费算命网姓名测试
大家好,免费姓名算命-免费算命大全相信很多的网友都不是很明白,包括免费姓名算命大家网也...
巨蟹座明天运势更好是几点 巨蟹座今天的运势如何巨蟹明天
大家好,感谢邀请,今天来为大家分享一下巨蟹座明天运势更好是几点的问题,以及和巨蟹座今天几...
名典姓名算命 名典起名网免费取名测试
大家好,名典姓名算命相信很多的网友都不是很明白,包括名典八字算命网也是一样,不过没有关系...
布鞋店铺起名 布鞋店起什么名字好?
大家好,如果您还对布鞋店铺起名不太了解,没有关系,今天就由本站为大家分享布鞋店铺起名的知...
坐北朝南的院子鱼池建在哪好
在农村地区或是城市里有条件的一些人,想打造一方属于自己的庭院,有些人还想拥有一片鱼池。...
结婚女方买红盆需要买几个 结婚为什么要买红盆
结婚女方买红盆需要买2个,意味着好事成双。一个红盆中装洗漱用品,另一个红盆中装红枣、花...
公交车h500系列全集,午夜的14路公交车及猫男事件电子书txt全集下
提起公交车h500系列全集,大家都知道,有人问午夜的14路公交车及猫男电txt全集,另外,还有人想...
带木字旁寓意好的男孩名字,好听的带木字旁的男孩名字,都有哪些?
提起带木字旁寓意好的男孩名字,大家都知道,有人问好听的带木字旁的男孩名字,都有哪些?,另外,还...
家庭养乌龟禁忌养龟穷三代,养乌龟有哪些禁忌,放房间里的什么位置最好?
提起家庭养乌龟禁忌养龟穷三代,大家都知道,有人问养乌龟有哪些禁忌,放房间里的什么位置最好...
12月25号是什么日子(12月25号是什么日子用英语怎么说)
一、1948年12月25日,中国共产党宣布头等战犯名单,被列入该名单的人计43人。中共方面特别强...
属龙1976年一生的劫数,1976年属龙是什么命
提起属龙1976年一生的劫数,大家都知道,有人问1976年属龙是什么命,另外,还有人想问1976年属龙...
怎么算星座的上升和太阳月亮 免费个人星盘查询
其实我们在生活当中经常所说的十二星座,一般都是指的太阳星座。它的意思就是我们在外人面...
2022年运势测算 2022年十二生肖运势
在去年的时候,我们的疫情蔓延的速度太快了,很多城市都出现了封城的情况,这样一来也影响到当...
乌龟死亡的姿势图片,乌龟死的时候样子是什么样的
提起乌龟死亡的姿势图片,大家都知道,有人问乌龟死的时候样子是什么样的,另外,还有人想问能发...
属龙人在2022年运势,2022年龙人全年运势
属龙人在2022年运势 属龙的人进入2022 年猪年,属龙为辰土,猪年为亥水,从命理上讲,土克水为财...
属鸡女12月份运势,属鸡人农历十二月运势
属鸡女12月份运势 女命1981年属鸡的人2022 年辛酉双金生太岁亥水,同时还有天狗食财局,是生...
属相相冲的夫妻为什么还会很好,哪些生肖相冲越冲越好
属相相冲的夫妻为什么还会很好我们在讨论谈婚论嫁这个话题之时,经常会出现一个问题就是“...
属马女人的性格特点及脾气好不好,属马的男人对老婆好吗
属马女人的性格特点及脾气好不好 1.属马女:容易被激怒 属马的女人脾气不好,特别易怒,但她...
属鸡人2022年运势运程,2022年属鸡人的命运
属鸡人2022年运势运程转眼来到2022年,在这新的一年里,双鱼座的运势与去年相比也有着不少的...
属龙能生属兔的孩子吗,男兔女龙生个什么宝宝好
属龙能生属兔的孩子吗 生肖属兔的女人结婚之后就会小旺一笔,在生孩子之后更是财运旺 龙能...
夫妻相克会有什么后果2022,夫妻相克会有什么后果
夫妻相克会有什么后果2022 在谈恋爱的过程当中,随着彼此之间的深化理解,渐渐的我们会...
兔最配的属相是什么生肖,兔的婚配什么生肖
兔最配的属相是什么生肖 属兔的朋友多洒脱、浪漫,高雅温和有气质。那么在感情中,与生肖兔...
桃花运旺盛是什么意思,桃花运越旺盛什么意思
桃花运旺盛是什么意思 身边有很多的人,桃花运是非常旺盛的,虽然这些人相貌平平,而且也没有...
属羊2022年多大年龄,属羊的2022 年多大年龄
属羊2022年多大年龄 属相“羊”,在十二生肖中的顺序为第八位,十二地支为“未”,合称未羊,五...
猴和鸡相配婚姻如何,1992年是苦命猴还是富猴
猴和鸡相配婚姻如何 猴子一直以聪明伶俐著称,属猴的人也大多机灵,在工作和生活中人缘很...
2022年适合添丁的日子,属蛇2022年几月份添丁
2022年适合添丁的日子 今天的天气真的很好,反正灵溪这里是阳光明媚,微风徐徐,所以,我们要趁...
相冲生肖怎么化解,姐妹生肖相冲怎么化解
相冲生肖怎么化解从古至今,十二生肖中就有生肖相冲之说。很多家庭的家庭成员之间就存在着...
属牛女什么时候姻缘到,算姻缘什么时候到
属牛女什么时候姻缘到 佛曰,一切皆是缘。桃花姻缘也是缘,聚散自有天命。每个女人都希望遇...
37岁鼠今年运势,37岁属鼠是什么命
37岁鼠今年运势 37岁大忌轻易离婚37岁属鼠人,千万要克制住自己,不要轻率的就离婚他们是比...
1998年属虎女婚姻,1998属虎最忌几月出生
1998年属虎女婚姻 婚姻是个即难搞又绕不开必须面对的事情。小时候我们在故事书里看到白...
八字算姻缘准吗,生辰八字测算免费
八字算姻缘准吗 你算过命吗,准不准? 友:有时候,真的有命中注定! 你算过命吗,准嘛?有很多人说,不...
- 数据加载中,请稍后...