opa13t2014农历过年日期日期怎么设置

来源：蜘蛛抓取(WebSpider) 时间：2015-06-04 23:14 标签： opa547t
查看: 7113|回复: 10
如何根据公历日期求出农历日期
请高手指点一下：如何根据公历日期求出农历日期
19:19 上传
点击文件名下载附件
9.05 KB, 下载次数: 193
VBA或大量辅助
=TEXT(A2,&[$-110000][dbnum1]yyyy年m月d&)复制代码你试一下这个，能返回农历，就是在显示的时候，初十以下的，显示的不是太理想。如果公式长一些，也可以正确显示。
Sub demo()
& & Dim objWinHttp As Object, html As Object, postdata$, arr, irow%, i%, ar
& & With Sheets(&sheet1&)
& && &&&irow = .Cells(.Rows.Count, &A&).End(xlUp).Row
& && &&&arr = .Range(&a2:a& & irow)
& && &&&ReDim ar(1 To irow, 1 To 1)
& & End With
& & Set objWinHttp = CreateObject(&WinHttp.WinHttpRequest.5.1&)
& & Set html = CreateObject(&htmlfile&)
& & With objWinHttp
& && &&&For i = 1 To UBound(arr)
& && && && &postdata = &gongli_nian=& & Year(arr(i, 1)) & &&gongli_yue=& & Format(Month(arr(i, 1)), &00&) & &&gongli_ri=& & Format(Day(arr(i, 1)), &00&)
& && && && &.Open &POST&, &/&, False
& && && && &.setrequestheader &Content-Type&, &application/x-www-form-urlencoded&
& && && && &.setrequestheader &Referer&, &/&
& && && && &.send (postdata)
& && && && &html.body.innerhtml = .responsetext
& && && &&&ar(i, 1) = html.all.tags(&table&)(2).Rows(1).Cells(1).innertext
& && &&&Next
& & End With
& & Sheets(&sheet1&).Range(&b2&).Resize(UBound(ar), 1) = ar
End Sub
复制代码
(17.56 KB, 下载次数: 43)
21:31 上传
如何根据公历日期求出农历日期
21:52 上传
点击文件名下载附件
9.05 KB, 下载次数: 302
右键设置单元格是[$-130000]e-m-d& &或者TEXT（A1，“[$-130000]e-m-d ”）
使用EXCEL内置函数Text---返回日期的阿拉伯数字的农历年月日方法如下： 
在A1单元格输入公历日期 如  在B1单元格 
按照阿拉伯数字的日期格式显示转换后的农历日期，在B1单元格输入转农历公式：=TEXT(A1,&[$-130000]yyyy-mm-dd&) 回车显示农历日期   
按照中文年月的日期格式显示转换后的农历日期，在B1单元格输入转农历公式： =TEXT(A1,&[$-130000]yyyy年m月&&IF(LEN(--TEXT(A1,&[$-130000]dd&))=1,&初&,&&)&&d&) 
回车显示农历日期 
本帖最后由 tgydslr 于
12:56 编辑
=SUBSTITUTE(TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&),MID(TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&),FIND(&月&,TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&)),4),&月&&REPT(&初&,LEN(MID(TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&),FIND(&月&,TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&))+1,3))=1)&MID(TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&),FIND(&月&,TEXT(A1,&[$-130000][dbnum1]yyyy年m月d&))+1,3))
QQ截图03.jpg (719.27 KB, 下载次数: 20)
12:55 上传
(6.66 KB, 下载次数: 115)
12:54 上传
点击文件名下载附件
自定义格式的农历是不科学的，碰到农历闰月年的话，此年将出来十三月的现象，并且不会说明哪一个月是闰月。各位可以试一下（因为今天正好是处于闰月内，标准是九月二十一，用自定义格式返回的是十月二十一）=TEXT(NOW(),&[$-130000]e-m-d&)复制代码所以各位不要再建议用自定义格式返回农历了，这样会误导楼主的，目前最好的办法就是VBA，或者用N行的辅助，要不然直接用WPS（它有自定义农历格式）
|||Excel精英培训
Powered by

我要回帖

更多关于 opa547t 的文章

 

随机推荐