小弟問題是想由 DateTimePicker1 選擇日期之後，自動轉換台灣農曆日期，不知是否 delphi 有這樣的函數或公式可引用？請教delphi 各位先進前輩指導，謝謝！

我覺得你應該會被劈死..KTOP上範例這麼多..XD

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

請問 coffee 高階會員 小弟在 Ktop 搜尋查找卻出現如下訊息... 是否小弟輸入查詢方式錯誤???
====>>查無符合資料 西元日期如何轉換農曆日期 運用DateTimePicker1
可以麻煩告訴 小弟嗎??

你用這麼長的字當然查不到，
每個人遣詞用字的習慣都不一樣，
可以試著將重要的字詞放入搜尋就可以了。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄

謝謝 coffee 指示....
小弟用 1.西元日期如何轉換農曆日期=====> 搜尋過 Yes 沒有
2.運用DateTimePicker1 ======== >搜尋過 Yes 沒有
3.用如何轉換農曆日期=====> 搜尋過 Yes 沒有
4.用如何取得農曆日期=====> 搜尋過 Yes 沒有
請問還有那種更精簡查法??

重點是[農曆], 所以先用[農曆]當關鍵字查, 若還是太多資料才再加其他關鍵字
你的關鍵字太口語化了

之前的阿子版大有上傳轉換函數集，我試過了還可以下載～

http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=18873

http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=18874

編輯記錄

其實答案一直都在，我也是在回文前先自己搜過一次才敢說
只不過發問者如果還是沒學會使用搜尋，像這樣的狀況還是會再發生吧XD

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

謝謝 Stallion 尊榮會員 給小弟直接程式下載區，我有去下載觀看了
小弟在想這支程式 因該 可以用 call 方式運用對嗎??
>>意思是說 在Form 上加入DateTimePicker1 然後用 OnChange
var New_YY,New_MM,New_DD, :integer; 傳回轉換值是嗎??
小弟對於學習 Delphi 實在有很高興趣與信心， 奈何以前都在玩影像編輯，實在不瞭解這類 呼叫副程式方式寫法，可否請教 Stallion 尊榮會員 再指導具體一個 Sample 讓小弟學習好嗎??

可利用DateTimePicker 選定日期後將年月日拆開傳入轉換函數中(紅色參數)，再以另一組變數接收轉換出來的農曆年值(藍色)；反之同理～
另外Delphi程式寫作的基本功，應該先從Object Pascal開始吧～這邊有一本中譯本的Essential Pascal(Pascal真經)，
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=18536
是入門者的優良讀物，看看吧～

//國曆轉農曆(民國年, 月, 日, var 農曆年, 農曆月, 農曆日)
procedure Solar2Lunar(SYear, SMonth, SDay: Integer; var LYear, LMonth, LDay: Integer);
//農曆轉國曆(農曆年, 農曆月, 農曆日, var 民國年, 月, 日)
procedure Lunar2Solar(LYear, LMonth, LDay: Integer; var SYear, SMonth, SDay: Integer);
//輸入農曆年份換算六十甲子名稱
function YearName(LYear: integer): string;
//得知農曆之月份天數
function DaysPerLunarMonth(LYear, LMonth: Integer): Integer;

尊榮會員 謝謝您的熱心指導
小弟有測試 好像有點問題 不過我還是會全力以赴