農曆日曆轉換查詢?

General 更新 2024年12月27日

excel表格如何顯示農曆日期

excel 2007 以上版本才可以顯示農曆日期

=TEXT(A1工"[$-130000]e-mm-dd")

Excel 中陽曆日期如何轉換成陰曆日期？

2007版的excel可用下面公式轉換：

=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")

贊助廣告

萬年曆19570615轉換農曆

這個簡單，我翻了一下人生日曆，是農曆的1957年五月十八號，星期六，請採納。

日期轉換為農曆日期的演算法是什麼

excel公曆轉農曆方法一：使用text函式 A列是公曆日期，我們在B1單元格輸入公式：=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")，下拉完成公曆轉農曆。

如何將Excel裡面的農曆日期轉換成新曆？ 20分

贊助廣告

不靠譜~

公式轉換的只能是大概，天干地支的年演算法很少有正好初一就翻篇的，還有閏月的...

要想準確的最好還是對著日曆查，或者找找他身份證號

在電子表格中把公曆日期轉換成農曆與天干地支

這個需要VBA了.

按ALT+F11 再插入模組

把下面的程式碼制複製到模組中,然後在B1中輸入:

=calendar(A1)

假設日期在A1

Option Explicit

Dim WeekName(7), MonthAdd(11), NongliData(120), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate, num1, num2

Dim year, month, day, grid, grid_date

Function calendar(grid)

grid_date = grid

year = Mid(grid_date, 1, 4)

num1 = InStr(grid_date, "-")

num2 = InStr(6, grid_date, "-")

If (num2 - num1) = 3 Then

month = Mid(grid_date, 6, 2)

day = Mid(grid_date, 9, 2)

Else

month = Mid(grid_date, 6, 1)

day = Mid(grid_date, 8, 2)

End If

'星期名

WeekName(0) = " * "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名稱

TianGan(0) = "甲"

TianGan(1) = "乙"

TianGan(2) = "丙"

TianGan(3) = "丁"

TianGan(4) = "戊"

TianGan(5) = "己"

TianGan(6) = "庚"

TianGan(7) = "辛"

TianGan(8) = "壬"

TianGan(9) = "癸"

'地支名稱

DiZhi(0) = "子"

DiZhi(1) = "醜"

DiZhi(2) = "寅"

DiZhi(3) = "卯"

DiZhi(4) = "辰"

DiZhi(5) = "巳"

DiZhi(6) = "午"

DiZhi(7) = "未"

DiZhi(8) = "申"

DiZhi(9) = "酉"

DiZhi(10) = &q......餘下全文>>

農曆日期和公曆日期怎麼轉換，

我做計算器的，這個就是轉化，你看哈嘛！

//將日期換算為公曆的天數

private int toJulian(){

int jy=year;

if(year<0)

jy++;

int jm=month;

if(month>2)

jm++;

else{

jy--;

jm+=13;

}

int jul=(int)(java.lang.Math.floor(365.25*jy)

+java.lang.Math.floor(30.6001*jm)+day+1720995.0);

int IGREG=15+31*(10+12*year);

if(day+31*(month+12*year)>=IGREG){

int ja=(int)(0.01*jy);

jul+=2-ja+(int)(0.25*ja);

}

return jul;

}

//從具體的天數得到日期

private void formJulian(int j){

int ja=j;

int JGREG=2299161;

if(j>=JGREG){

int jalpha=(int)(((float)(j-1867216)-0.25)/36524.25);

ja+=1+jalpha-(int)(0.25*jalpha);

}

int jb=ja+1524;;

int jc=(int)(6680.0+((float)(jb-2439870)-122.1)/365.25);

int jd=(int)(362*jc+(0.25*jc));

int je=(int)((jb-jd)/30.6001);

day=jb-jd-(int)(30.6001*je);

month=je-1;

if(month>12)

month -=12;

year=jc-4715;

if(month>2)

--year;

if(year<=0)

--year;

}

private int day;

private int month;

private int year;

Excel裡的日期轉換成農曆

有閏月的時候會出現十三月這個暫時沒法

B2=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-130000]e")-4,10)+1,1)&MID("子醜寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4,12)+1,1)&MID("鼠牛虎兔龍蛇馬羊猴雞狗豬",MOD(TEXT(A1,"[$-130000]e")-4,12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月")&TEXT(A1,IF(--TEXT(A1,"[$-130000]d")=10,"初十",IF(--TEXT(A1,"[$-130000]d")>10,"[$-130000][DBNum1]d","初[$-130000][DBNum1]d")))

Excel 有沒有轉換農曆日期的函式

Excel內建函式有是有，但並不是很好，沒辦法區分閏月，而且在有些月份的長度上存在問題，很多人用VBA實現了自定義函式來解決這一問題，而在我看來，XLL外掛比VBA要好，至少它更強大。一個函式搞定轉換，非常方便。