问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

200分 excel高手请进 农历转公历的宏代码

发布网友 发布时间:2022-04-06 06:58

我来回答

4个回答

热心网友 时间:2022-04-06 08:27

身份证记录的不是公历的吗?
YLyear As String, YLShuXing As String, _
Optional IsGetGl As Boolean) As String

' On Error Resume Next
Dim daList(1900 To 2011) As String * 18
Dim conDate As Date, setDate As Date
Dim AddMonth As Integer, AddDay As Integer, AddYear As Integer, getDay As Integer
Dim RunYue As Boolean
If tYear > 2010 Or tYear < 1901 Then Exit Function '如果不是有效有日期,退出
'1900 to 1909
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) = "100101011011000211"
daList(1919) = "010010011011170201"
daList(1920) = "010010011011000220"
daList(1921) = "101001001011000208"
daList(1922) = "101100100101150128"
daList(1923) = "011010100101000216"
daList(1924) = "011011010100000205"
daList(1925) = "101011011010140124"
daList(1926) = "001010110110000213"
daList(1927) = "100101010111000202"
daList(1928) = "010010010111120123"
daList(1929) = "010010010111000210"
daList(1930) = "011001001011060130"
daList(1931) = "110101001010000217"
daList(1932) = "111010100101000206"
daList(1933) = "011011010100150126"
daList(1934) = "010110101101000214"
daList(1935) = "001010110110000204"
daList(1936) = "100100110111030124"
daList(1937) = "100100101110000211"
daList(1938) = "110010010110170131"
daList(1939) = "110010010101000219"
daList(1940) = "110101001010000208"
daList(1941) = "110110100101060127"
daList(1942) = "101101010101000215"
daList(1943) = "010101101010000205"
daList(1944) = "101010101101140125"
daList(1945) = "001001011101000213"
daList(1946) = "100100101101000202"
daList(1947) = "110010010101120122"
daList(1948) = "101010010101000210"
daList(1949) = "101101001010170129"
daList(1950) = "011011001010000217"
daList(1951) = "101101010101000206"
daList(1952) = "010101011010150127"
daList(1953) = "010011011010000214"
daList(1954) = "101001011011000203"
daList(1955) = "010100101011130124"
daList(1956) = "010100101011000212"
daList(1957) = "101010010101080131"
daList(1958) = "111010010101000218"
daList(1959) = "011010101010000208"
daList(1960) = "101011010101060128"
daList(1961) = "101010110101000215"
daList(1962) = "010010110110000205"
daList(1963) = "101001010111040125"
daList(1964) = "101001010111000213"
daList(1965) = "010100100110000202"
daList(1966) = "111010010011030121"
daList(1967) = "110110010101000209"
daList(1968) = "010110101010170130"
daList(1969) = "010101101010000217"
daList(1970) = "100101101101000206"
daList(1971) = "010010101110150127"
daList(1972) = "010010101101000215"
daList(1973) = "101001001101000203"
daList(1974) = "110100100110140123"
daList(1975) = "110100100101000211"
daList(1976) = "110101010010180131"
daList(1977) = "101101010100000218"
daList(1978) = "101101101010000207"
daList(1979) = "100101101101060128"
daList(1980) = "100101011011000216"
daList(1981) = "010010011011000205"
daList(1982) = "101001001011140125"
daList(1983) = "101001001011000213"
daList(1984) = "1011001001011A0202"
daList(1985) = "011010100101000220"
daList(1986) = "011011010100000209"
daList(1987) = "101011011010060129"
daList(1988) = "101010110110000217"
daList(1989) = "100100110111000206"
daList(1990) = "010010010111150127"
daList(1991) = "010010010111000215"
daList(1992) = "011001001011000204"
daList(1993) = "011010100101030123"
daList(1994) = "111010100101000210"
daList(1995) = "011010110010180131"
daList(1996) = "010110101100000219"
daList(1997) = "101010110110000207"
daList(1998) = "100100110110150128"
daList(1999) = "100100101110000216"
daList(2000) = "110010010110000205"
daList(2001) = "110101001010140124"
daList(2002) = "110101001010000212"
daList(2003) = "110110100101000201"
daList(2004) = "010110101010120122"
daList(2005) = "010101101010000209"
daList(2006) = "101010101101170129"
daList(2007) = "001001011101000218"
daList(2008) = "100100101101000207"
daList(2009) = "110010010101150126"
daList(2010) = "101010010101000214"
AddYear = tYear
RunYue = False

If IsGetGl Then
AddMonth = Val(Mid(daList(AddYear), 15, 2))
AddDay = Val(Mid(daList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
AddDay = tDay
For i = 1 To tMonth - 1
AddDay = AddDay + 29 + Val(Mid(daList(tYear), i, 1))
Next i
'MsgBox DateDiff("d", conDate, Date)
setDate = DateAdd("d", AddDay - 1, conDate)
GetYLDate = setDate
tYear = Year(setDate)
tMonth = Month(setDate)
tDay = Day(setDate)
Exit Function
End If
CHUSHIHUA:
AddMonth = Val(Mid(daList(AddYear), 15, 2))
AddDay = Val(Mid(daList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
setDate = DateSerial(tYear, tMonth, tDay)
getDay = DateDiff("d", conDate, setDate)
If getDay < 0 Then AddYear = AddYear - 1: GoTo CHUSHIHUA
' addday = NearDay
AddDay = 1: AddMonth = 1
For i = 1 To getDay
AddDay = AddDay + 1
If AddDay = 30 + Mid(daList(AddYear), AddMonth, 1) Or (RunYue And AddDay = 30 + Mid(daList(AddYear), 13, 1)) Then
If RunYue = False And AddMonth = Val("&H" & Mid(daList(AddYear), 14, 1)) Then
RunYue = True
Else
RunYue = False
AddMonth = AddMonth + 1
End If
AddDay = 1
End If

Next

md$ = "初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十"
dd$ = Mid(md$, (AddDay - 1) * 2 + 1, 2)
mm$ = Mid("正二三四五六七*十寒腊", AddMonth, 1) + "月"
YouGetDate = DateSerial(AddYear, AddMonth, AddDay)
tiangan$ = "甲乙丙丁戊已庚辛壬癸"
di$ = "子丑寅卯辰巳午未申酉戌亥"
Dim gan(0 To 59) As String * 2
For i = 0 To 59
gan(i) = Mid(tiangan$, (i Mod 10) + 1, 1) + Mid(di$, (i Mod 12) + 1, 1)
'ff$ = ff$ + gan(i)
Next i
'MsgBox ff$, , Len(ff$)
YLyear = gan((AddYear - 4) Mod 60)
shu$ = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
YLShuXing = Mid(shu$, ((AddYear - 4) Mod 12) + 1, 1)
If RunYue Then mm$ = "闰" + mm$

GetYLDate = mm$ + dd$

End Function

热心网友 时间:2022-04-06 09:45

我的工具不仅可以实现公历转农历,农历转公历,还能计算出每个人下一下公历生日或下一个农历生日所在的公历日期。

并可在7,10,15,30天前标识出来。

《javascript在线版Excel工具集-Excel中的生日》

http://hi.baidu.com/%B4%F3%CA%A5%C3%C0%BA%EF%CD%F5/blog/item/e9c4322ef576de5c4fc22614.html

热心网友 时间:2022-04-06 11:20

这有阳历公历互转的,注册一下就行了http://club.excelhome.net/redirect.php?fid=2&tid=321430&goto=nextnewset

热心网友 时间:2022-04-06 13:11

http://club.excelhome.net/ggsearch.htm?cx=009377249338926812733%3Aklxb5gfiulk&cof=FORID%3A10&ie=UTF-8&q=%E5%86%9C%E5%8E%86%E8%BD%AC%E5%85%AC%E5%8E%86&siteurl=www.excelhome.net%2F&sa.x=26&sa.y=11#1202

你自己去看看吧,EXCEL之家有很多牛人的。。。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
小红书怎么修改ID 专属ID更改方法 Win11如何更改字体视觉效果 Win11字体视觉效果修改方法介绍 华为团队管理模式 通信工程这个专业主要是学什么 专注力差的孩子该如何纠正 三岁的孩子专注力不好,怎么培养她的专注力呀!。 镇江关周围有什么玩的,镇江及周边旅游景点 大港南站去镇江汽车站怎么走 镇江汽车站到大港南站有多远 出国去澳大利亚留学都需要注意哪些事项呢? 澳大利亚留学条件及注意事项有哪些 农历公历转换计算 农历转换成公历的计算公式? php获取当前时间或某一固定时间的干支表示。也就是说把公历时间转换成传统的干支计时。年月日时都要。 公历生日和农历生日怎么转换的? 公历与农历的转换。 哥哥们`!阳历和阴历之间怎么换算呀`! 农历与阴历怎么转换的 求农历与公历的转换公式!!! 给一段阴历计算农历的代码 要PHP的 php里,管理员登录,就可以修改数据库数据,这个权限的原理是什么? 求php实现登录成功后返回首页并在原登录处显示用户名的源代码(类似于铁血网的登录) php 怎么做到当别人给我微信扫码付款后,我这里php有显示 php会员登录与注册的源代码,及其原理。。。 PHP CRYPT实现密码验证原理是什么? php 怎样设置分享出去的页面不用注册&#47;登陆就可以直接通过分享出去的链接或二维码访问,连接上带有参数! php 扫码登录的方法怎么跳转 php扫码登录如何实现 求教thinkphp,如何设置session的生命周期 thinkphp 使用session 报错 Class &#39;Session&#39; not found thinkphp 中的session为什么在其他方法中不能用 在php中请问文本框中换行与回车有什么区别呢? PHP处理表单换行? php 过滤空行,替换换行问题 在线等!!! 没分了,帮帮忙!! ios14可以不用桌面小部件嘛 iOS14隐藏桌面图标怎么做? win10怎么安装威尔科姆2.0t第二步 win10专业版64位,怎么安装威尔克姆e2.0? win10系统怎么安装威尔克姆 威尔克姆e2.0t解压密码 求威尔克姆e2.0(第3步主程序).rar的解压密码 威尔克姆9.0怎么导入图片 绣花软件威尔克姆9.0怎么装啊。。求个详细的步骤拜托各位了 3Q 怎样安装威尔克姆9.0S+SP4中文版 威尔克姆中的各个机器格式有什么区别 望电脑绣花打带师傅发个威尔克姆的最好用的版本和说明书给我。qq:1473374328 最新版wilcom 威尔克姆是什么版本,是否可以在win7 64位的系统中正常安装并使用 威尔克姆e4.2装不上Cdr 威尔克姆e3.0 有目录谁能破解 威尔克姆e1.5软件。急求。 哪位大侠有WILCOM(威尔克姆)绣花制版软件高版本中文版,安装在笔记本电脑win8,64位操作系统上。感谢! win10系统声卡怎么查看是否正常