德文翻譯可以把轉換出來的陰曆用小寫國字方式出現，
誠懇說，我也一向搞不懂 [$-130000] 的感化，
但今朝找到的器材，在現實利用上都邑呈現錯誤...
可以選擇年代，還可以顯示夏曆在上面
所以就懶得再弄了！
仍是歸去用 Google 試算表好了！
yuehmao wrote:
If (iLunMonth >= iLeapMonth) Then iLunMonth = iLunMonth - 1
故僅以簡單的方式表示！
所以在函數中也是以此格式來設計，
至於阿誰$-130000的，記得您有問過，請參考
您作的這個表鄙人有下載來看過內容了，yuehmao wrote:
切實其實如您所言這樣，
而其其實下最需要的就是這個部分的應用方法,
且在最第一版本中，後兩列的西曆在超越當月最後一天時會呈現錯誤日期（後已修訂），
所以在函數中也是以此格式來設計，
https://templates.office.com/zh-tw/templates-for-Excel
但我沒有再花時候去現實測試，所以不肯定是不是與此有關！
If (iLeapMonth > 0) Then
感激您～3Q Very Much^^
yuehmao wrote:
所以料想說是否是 OFFICE 版本分歧所導至？ 鄙人是使用 2010 的。
我本身習慣使用『月／日／西元年』的花式，
Imports System.Globalization
Private Function GetTaiwanLunisolarDate(ByVal dSolarDate As Date) As String
依您所供給的表格內容，在下看過以後也試想了一會，
可否用excel做一張月份行事曆
是以今朝又卡關了，只能說尚在了解中...^^"
以下是 VB 西曆 轉 農曆 的函式CODE
不外我別的有找到一個利用 VBA 做的公式，
彌補：是以今朝又卡關了，只能說尚在了解中...^^"
以下是 VB 西曆 轉 農曆 的函式CODE
不外我別的有找到一個利用 VBA 做的公式，
真的要准確的話，還需要每一年肇端日期的大量資料庫
但我有發現，我的做法在電腦中的 Office 可准確顯示結果，
若是時候多的話，那建議您可以看看 office 官方範本
https://support.microsoft.com/zh-tw/kb/150774
會泛起錯誤有可能是功課系統日期格局的設定分歧，
覺察其實若是是在 VB 上的話,是可以套用 .NET Framework 所供應的公用物件,
Dim iLunYear As Integer
在下觀摩過您弄的表格以後，也比力能明瞭您的意圖設法了，
Mystique Hsiao wrote:
別的想請問您利用的 OFFICE 版本是 2010 照樣....?
我用的是 Office 2010，
Imports System.Globalization
使用把 西曆 和 陰曆 內容分手的方式，來做到分歧步內容變換，因而能保持字型大小的分歧
別的想請問您利用的 OFFICE 版本是 2010 仍是....?
其實只需要判定第一列和後兩列，
如果時間多的話，那...(恕刪)
而其實在下最需要的就是這個部分的運用方式,...(恕刪)
其其實下也有自行試過把 TEXT 函數華夏本的日期花樣 "mm/dd/yyyy" 改成 "yyyy/m/d"
真實的夏曆，它的曆法計算超等麻煩的
完成西曆的判定以後，再套用出陰曆就比較簡單一點，
---> TEXT(xxxxx翻譯社"[$-130000]xxxx")
並且我感覺西曆和陰曆分開分歧欄位較易處理，
不外我別的有找到一個利用 VBA 做的公式，
真的感受您的體式格局還蠻有創意的，
那就是有在公式中的 TEXT函數 內容裏頭有一個文字格局的設定
但一 Google 查閱 西曆 和 陰曆 的算法，卻發現其內容並沒有想像中那樣輕易...lol
試作了一個簡單的典範榜樣，請參考！
且所有公式計算的後果全都釀成『#VALUE!』
一起頭就直接卡在最開首的那一段CODE,以下:
因為您是要能切換 年月份 後主動調換對應內容，
等鄙人再試想看看有無戰勝的方式，若是有想到的話再來嚐試試作看看。
但就是一直參不透 TEXT 函數中的文字花樣 [$-130000] 的用意，
所以，至今朝照樣未解決這個問題....^^"
發現其實裏頭並沒有提到任何 西曆 和 夏曆 的轉換用法，
真的感覺您的體式格局還蠻有創意的，
公式是 google 來的，不同的公式都有必然的誤差
(a1放日期，或是從vba中取日期)
那就是有在公式中的 TEXT函數 內容裏頭有一個文字花樣的設定
程式碼有錯，請把程式碼中的 "案例" 改成 "case"
並且華頓翻譯公司覺得西曆和陰曆分隔分歧欄位較易處置，
文字若有設定分歧字型則沒法顯示，
Dim iLunMonth As Integer
沒錯，只有國曆
且所有公式計算的後果全都釀成『#VALUE!』
一起頭就直接卡在最開首的那一段CODE,以下:
因為您是要能切換 年月份 後主動調換對應內容，
等鄙人再試想看看有無戰勝的方式，若是有想到的話再來嚐試試作看看。
但就是一直參不透 TEXT 函數中的文字花樣 [$-130000] 的用意，
所以，至今朝照樣未解決這個問題....^^"
發現其實裏頭並沒有提到任何 西曆 和 夏曆 的轉換用法，
真的感覺您的體式格局還蠻有創意的，
公式是 google 來的，不同的公式都有必然的誤差
(a1放日期，或是從vba中取日期)
那就是有在公式中的 TEXT函數 內容裏頭有一個文字花樣的設定
程式碼有錯，請把程式碼中的 "案例" 改成 "case"
並且華頓翻譯公司覺得西曆和陰曆分隔分歧欄位較易處置，
文字若有設定分歧字型則沒法顯示，
Dim iLunMonth As Integer
Mystique Hsiao wrote:
農曆的話，拿 vba 誰人典範榜樣，套入幾行公式就行
會泛起毛病有多是功課系統日期格式的設定不同，
yuehmao wrote:
但因為全部公式有些複雜，檔案又是 2003 的花樣，ya102061 wrote:
用公式轉，雖然時間一長就會不準，也夠用了
snare wrote:
鄙人看了一會，也查了留存的資料，照樣沒能認識這個用處，所以想請您協助指導一下，
iLunMonth = dTwDate.GetMonth(dSolarDate)
但我沒有再花時候去現實測試，所以不確定是否與此有關！
後來再嘗試把整段公式中，某個 TEXT 函數前面的 "--" 符號去除，結果就可以正常呈現數字了，
這此中的 [$-130000] 的感化是什麼？
因為您是要能切換 年代份 後主動變更對應內容...(恕刪)
本來還有點想入非非，想說是否可以自已用今朝所把握能用在 VBA 的CODE 重頭來寫這個轉換函數，
純函數、公式，但定義超多陣列，讀起來有點煩人
End If
農曆部分如要以正規的方式透露表現，
中心三列只需要 +1 便可（西曆部分）
但用手機的『Google 試算表』則無法正確顯示陰曆日期，
華頓翻譯公司用的是 Office 2010，
也試過自已在表格中加隨意率性內容看看，但照舊看不出是造成何種影響^^"
率直說，華頓翻譯公司是用土法煉鋼的體例來做的，
附加緊縮檔: 201601/mobile01-337a8ff98914238bfd900cf3f9dfb4e3.zip[$-130000] 的感化是什麼？
Dim dTwDate As New TaiwanLunisolarCalendar
且所有公式較量爭論的了局全都變成『#VALUE!』
Dim iLeapMonth As Integer
率直說，我是用土法煉鋼的體式格局來做的，
行事曆，我寧願用 google 日曆(可加上陰曆)，又可以和手機同步、備忘錄、事件通知，用excel很累的
發現其實裏頭並沒有提到任何 西曆 和 農曆 的轉換用法，
可否用excel做...(恕刪)
如果時候多的話，那...(恕刪)
這個部分其實在下自個也有 Google 了一些資料，
純 vba，可指定年份、月份
微軟的 Excel APP 不太好用，
十分感激您的資訊供給
因為鄙人開啟這個 EXCEL 文件查看後，在 "農曆" 的公式內容出現部分，
也在網路上 Google 了一些資料內容參考翻譯社
感受今朝尚不能解決的問題點就是---> 西曆 和 農曆 的轉換
一最先看內容數值是都正常出現，但一點進查看公式後再退出，就釀成 "#VALUE!" 了，
等有空時再來 Google 看看它的原理為何！
GetTaiwanLunisolarDate = iLunYear & "/" & iLunMonth & "/" & dTwDate.GetDayOfMonth(dSolarDate)
等等再來安裝微軟的 Excel APP 試試看！
其實只需要判斷第一列和後兩列，
則須以 VBA 程式碼撰寫，工程較龐大，
統一個公司的軟體，為何相容性反而不如其它公司？
本來是這樣，
但用手機的『Google 試算表』則無法准確顯示夏曆日期，
固然今朝還不克不及釐清問題地點，但很感謝您能抽暇耐心做測試。
建議excel 仍是乖乖用國歷，否則就用公式轉一轉就好
=========================
End Function
"=MID(""甲乙丙丁戊己庚辛壬癸""翻譯社MOD(TEXT(R[-4]C[-2],""[$-130000]e"")-4,10)+1,1)&MID(""子丑寅卯辰巳午未申酉戌亥"",MOD(TEXT(R[-4]C[-2],""[$-130000]e"")-4翻譯社12)+1翻譯社1)&""年""&TEXT(R[-4]C[-2],"" [$-130000][DBNum1]m月d日"")"
iLunYear = dTwDate.GetYear(dSolarDate)
snare wrote:
利用把 西曆 和 陰曆 內容離散的體式格局，來做到分歧步內容調動，因此能保持字型巨細的分歧，
中央三列只需要 +1 即可（西曆部分）
最後，在下也對您熱情的解說表達謝意，
利用的公式是從網路上 Google 來的，
我會直接把公式插手vba對照省事
鄙人觀摩過這整段法式後，
所以就懶得再弄了！
可以把轉換出來的夏曆用小寫國字方式出現，
所以料想說是否是 OFFICE 版本分歧所導至？ 鄙人是利用 2010 的翻譯
華頓翻譯公司也一向搞不懂 [$-130000] 的感化，
鄙人先來研究看看^^
鄙人先來研究看看^^
華頓翻譯公司有發現，華頓翻譯公司的做法在電腦中的 Office 可准確顯示成績，
在夏曆內容的公式部份
不外有個處所鄙人一時看不清楚明明，想就教您一下^^"
http://www.exceltip.net/thread-10436-1-1.html
鄙人看了一會，也查了留存的資料，照樣沒能領會這個用處，所以想請您幫手指導一下
可是在實際要把阿誰方式的碼段放進 VBA 履行時，卻一直出現編譯毛病..
所以 西曆 和 農曆 的轉換，鄙人今朝也還尚不克不及克服這個問題...
在夏曆內容的公式部份
不外有個處所鄙人一時看不清楚明明，想就教您一下^^"
http://www.exceltip.net/thread-10436-1-1.html
鄙人看了一會，也查了留存的資料，照樣沒能領會這個用處，所以想請您幫手指導一下
可是在實際要把阿誰方式的碼段放進 VBA 履行時，卻一直出現編譯毛病..
所以 西曆 和 農曆 的轉換，鄙人今朝也還尚不克不及克服這個問題...
yuehmao wrote:
如許來測試，其了局也是呈現 "#VALUE!"，
完成西曆的判定之後，再套用出陰曆就比力簡單一點，
統一個公司的軟體，為何相容性反而不如其它公司？
不外有個處所在下一時看不邃曉，想就教您一下^^"
我本身習慣使用『月／日／西元年』的花樣，
利用的公式是從網路上 Google 來的，
iLeapMonth = dTwDate.GetLeapMonth(iLunYear)
但因為整個公式有些重大，檔案又是 2003 的格局，
您作的這個表鄙人有下載來看過內容了，
因為在下開啟這個 EXCEL 文件查看後，在 "陰曆" 的公式內容出現部分，
ActiveCell.FormulaR1C1 = _
文章來自: https://www.mobile01.com/topicdetail.php?f=511&t=4691096有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932
文章標籤
全站熱搜
留言列表
留言列表發表留言
