下载万年历带农历,下载万年历带吉日
最后更新 :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高级办公)、推广、点评哦!谢谢大家继续 下期第二中实现带农历的万年历设计!
以上就是与下载万年历带农历相关内容,是关于万年历的分享。看完下载万年历带吉日后,希望这对大家有所帮助!
王者名字怎么样 王者名字怎么样好听
王者名字怎么样:如何起一个好听的王者荣耀名字?在王者荣耀这款风靡全国的游戏中,一个独特且好听的游戏昵称不仅能彰显个人风格,还能在游戏中为你增添不少魅力。那么,如何才能起一个既好听又能吸引眼球的名字呢?本文将为您提...
为什么会得情感性心境障碍 为什么会患上情感性精神病
情感性心境障碍的成因情感性心境障碍是一种复杂的心理疾病,其成因涉及到多种因素,包括遗传、环境、生理和心理等多方面的影响。以下是关于情感性心境障碍成因的一些详细解释:遗传因素情感性心境障碍具有一定的遗传倾向。...
贵港哪里有算命的(贵港八字算命)
贵港哪里有算命的:寻找命运之谜的解答 在贵港这座历史悠久的城市,算命文化一直深受人们的关注。无论是出于好奇,还是寻求生活指引,许多人都会寻找一位可信的算命师,希望能从他们那里得到关于未来的启示。那么,在贵港,我们该...
姓丘怎么起名(姓英怎么起名) 姓丘的女孩名字叫什么好
根据“姓丘”起名:传统与个性的融合 “丘”字作为一个传统的姓氏,有着深厚的历史文化底蕴...
涨姿势了!这些石雕风水学你们知道吗
比如门槛石这些部位开始说起,然后再介绍假山、石象、石狮子、风水球的风水学知识,水平有限...
古代中国真的有龙脉吗?
在中国风水中,龙脉是对地形地势的概括分析,不因时代更迭而发生变化。所以,不仅古代有龙脉,现...
常见的风水鱼有哪些 家庭养鱼风水知识
很多人喜欢在家里养风水鱼,不过对于风水鱼又有多少人知道呢。养鱼风水知识1、首先鱼缸不...
属羊的人哪个季节出生最好 属羊在哪个季节出生最好
属羊的人是十二生肖中的一员,属于中国传统文化中重要的象征之一。根据中国传统文化,每个生...
文昌星和文曲星哪个好(考试拜文昌星还是文曲星)
文昌星和文曲星是中国古代文化中的两个重要神明,也是与学业、文化、艺术等方面有关的两颗...
爷是哪个生肖(无动于衷是指哪个生肖)
近年来,中国传统文化备受关注,其中十二生肖文化无疑是颇具代表性的。很多人都热爱探秘自己...
心理咨询中心免费咨询
很多心理咨询中心提供免费咨询服务,这些服务通常由专业的心理咨询师或心理医生提供。免费...
水象星座未来感情运势查询 水象星座爱情
大家好,如果您还对水象星座未来感情运势查询不太了解,没有关系,今天就由本站为大家分享水象...
八零属什么生肖多大 八零年属啥?多大年龄?
大家好,今天来为大家分享八零属什么生肖多大的一些知识点,和八零出生属什么的问题解析,大家...
周易六爻断卦技巧 周易六爻断卦口诀
大家好,今天来为大家解答周易六爻断卦技巧这个问题的一些问题点,包括周易六爻断卦技巧视频...
办公室风水挂钟 办公室风水挂钟表好吗
大家好,今天来为大家解答办公室风水挂钟这个问题的一些问题点,包括办公室风水挂钟的位置也...
属马21年6月运势查询 属马人2016年每月运势
大家好,今天来为大家分享属马21年6月运势查询的一些知识点,和属马21年7月运势的问题解析,大...
阴宅风水名词岸山
大家好,感谢邀请,今天来为大家分享一下阴宅风水名词岸山的问题,以及和阴宅风水术语大全的一...
独一无二的情侣微信名 情侣微信名字大全
微信是我们每一个人都经常会使用到的一款软件,想必大家对于微信的各个功能都非常的熟悉,我...
怎样确定家里和办公室的方位 怎么看办公室的方位
其实怎样确定家里和办公室的方位的问题并不复杂,但是又很多的朋友都不太了解办公室做的方...
紫微斗数八字免费算命 紫微斗数八字算命app
各位老铁们,大家好,今天由我来为大家分享紫微斗数八字免费算命,以及紫微斗数八字算命详细精...
算命免费生辰八字算健康 在线算命生辰八字免费
各位老铁们好,相信很多人对算命免费生辰八字算健康都不是特别的了解,因此呢,今天就来为大家...
王者荣耀女英雄去掉所有服装流口水,王者荣耀法师去掉所有服装
提起王者荣耀女英雄去掉所有服装流口水,大家都知道,有人问王者荣耀去掉所有服装,另外,还有人...
属马的2022年犯离婚,已婚1978,8,5,属马男跟1988,5,7
提起属马的2022年犯离婚,大家都知道,有人问已婚1978,8,5,属马男跟1988,5,7属女龙在2022会...
上升星座查询表和星盘上升不一样 为什么不要轻易看星盘
很多的人对于星座的了解可能都只是知道十二星座里有天蝎座、白羊座、狮子座等等星座,但是...
十二星座专属古风项链 十二星座漂亮专属戒指
其实对于我们生活当中的12个星座来说的话,我们生活当中充满了12星座的各个方面。大家也可...
2022年星座生肖运势 会让异性一眼就爱上的生肖女
很多生肖都有属于自己独特的长相特征,有些特征就是那种会让异性一眼就爱上的生肖女的样子...
属狗人2023年全年运势及运程,狗人2023年运势运程
属狗人2023年全年运势及运程 70年生属狗人进入2022 新的一年,全年运势因为是本命年而比较...
属狗人一生最克谁,生肖狗一生的克星是谁
属狗人一生最克谁 属龙者在2022 年有“将星”陪伴在其左右,对你们的事业会有很大的助力,能...
42岁数羊什么命,1979年属羊几月出生好
42岁数羊什么命 民间有个说法:“十羊九不全”。就是说:属羊的人命不好,十个中有九个人家人...
2022年属兔人,1987年属兔命中三劫
2022年属兔人 属兔天蝎座冷静有智谋,是一个办事周到的人。他们不打无准备的仗,所以一件...
属鼠几日几时出生更好命,2022 年属鼠是什么命
属鼠几日几时出生更好命 属鼠人于农历四、九、十三、二十五、三十出生更好。初四出生属...
属狗的贵人和小人,属狗人的一生之敌
属狗的贵人和小人每个人一生都要遇见〝贵人〞,所以也特别关心自己的贵人是谁。所谓贵人,实...
十二生肖虎年运势,属羊的虎年运势2022年运势
十二生肖虎年运势 属虎2022 年运势综述 虎年出生的年份:1950年、1962年、1974年、1986年...
属相婚配男女万年历,1994年属狗的婚配
属相婚配男女万年历从恋爱心理学来说,我国的婚姻讲究男女属相搭配,很多人认为一定的属相结...
1952年属什么生肖,1952年生人是什么命
1952年属什么生肖 命运对人们的影响无处不在,尤其是当人们需要就某件事情做出选择的时候,...
属虎2022年的运势及运程,虎2022年运势完整版
属虎2022年的运势及运程 属虎2022 年运势综述 虎年出生的年份:1950年、1962年、1974年、1...
属鼠24日出生为啥不好,正月出生的牛好不好
属鼠24日出生为啥不好 “本文为糖果妈妈 ,欢迎个人转发分享” 产妇分娩时,首先要面临的就...
属鼠本命年运势如何,生辰八字测算免费周易
属鼠本命年运势如何肖鼠本命年犯太岁,新一年宜结婚、添丁或置业冲喜,否则容易有突如其来的...
怎么查自己的日柱,万年历查询生辰八字
怎么查自己的日柱 日柱指的是我们农历干支出生的那一天,通过日柱我们可以看出自己命运的...
1998年属虎和兔相配,1999男兔1998女虎谁克谁
1998年属虎和兔相配 比如尽管知道1998属虎更佳结婚年龄,人们还是会去查看98年出生的人应...
- 数据加载中,请稍后...