講問一下貨幣單位轉換的問題~ ( K , M , B )

如果我想寫一個Function, 可將貨幣的單位轉換應該什樣寫?? ... 就轉成M 單位如果這個數字>= 1千, 就轉成K 單位如果這個數字< 1千, 就不用轉 台灣最大程式設計社群網站 ∣免費加入會員∣登入 ∣回首頁∣ 您好 線上人數 1110   會員總數：246653 討論主題：190074 討論區 程式下載/上傳 科技新聞 專欄文章 會員中心 加值服務 外包接案 求職求才 登入 登出 歡迎您免費加入會員 討論區選單 開發工具 行動裝置開發 資料庫 多媒體/網管 綜合 文章區 討論區列表>>VB.NET>>講問一下貨幣單位轉換的問題~(K,M,B) []   [我要回覆] 1 講問一下貨幣單位轉換的問題~(K,M,B) 價值:20QP  點閱數:33775回應數:7 樓主 Ivan 0 27 340 19 發送站內信 如果我想寫一個Function,可將貨幣的單位轉換應該什樣寫??即是:如果這個數字>=十億,就轉成B單位如果這個數字>=1百萬,就轉成M單位如果這個數字>=1千,就轉成K單位如果這個數字<1千,就不用轉Functionchange(money)EndFunction謝謝 搜尋相關Tags的文章： [貨幣],[數值],[K],[M],[B],[轉換],[單位], 本篇文章發表於2008-07-2110:43 1樓 回應 Jones 你嘛舉個例子!例:1280=>?2308050=>?6283600456=>? 本篇文章回覆於2008-07-2114:00 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 2樓 作者回應 Ivan 有無程式可供參考? 本篇文章回覆於2008-07-2214:25 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 3樓 回應 Allen 規格請說清楚一些,別人才幫得上忙 本篇文章回覆於2008-07-2214:48 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 4樓 回應 Jones 你題目都還沒說清楚,那來程式可參考?!題外話:前陣子應微SA,有一個應微者各方面都合乎要求,但是不會"問問題",所以最後請他回去等侯通知! 本篇文章回覆於2008-07-2215:38 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 5樓 作者回應 Ivan 對不起各位有心的朋友...我想的是如果數字是:1-999不會變,照輸出1000會變成1K輸出10000會變成10K輸出1百萬會變成1M輸出即如果我的數字是13800,會轉換成13.8K我記得它是可以用ForLoop記錄迴圈多少次決定它的單位 本篇文章回覆於2008-07-2314:04 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 6樓 回應 Allen 大約寫成這樣即可ifa>100萬thenans=a/100萬+"M"離開程式endififa>1千thenans=a/1千+"K"離開程式endifans=a離開程式 本篇文章回覆於2008-07-2314:14 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 7樓 回應 Jones 寫成一個函數方便呼叫: PrivateFunctionTransNum(ByValNumAsDouble)AsString SelectCaseNum CaseIs>=1000000000 TransNum=Format(Num/1000000000,"##0.#########")&"B" CaseIs>=1000000 TransNum=Format(Num/1000000,"##0.######")&"M" CaseIs>=1000 TransNum=Format(Num/1000,"##0.###")&"K" CaseElse TransNum=CStr(Num) EndSelect EndFunction 本篇文章回覆於2008-07-2321:46 ==簽名檔== --未登入的會員無法查看對方簽名檔--     1 回覆 如要回應,請先登入. |網站導覽|網站介紹|4P點數說明|電子報|小舖活動|大事紀|廣告刊登|常見問題|聯絡我們| 　版權所有©copyright2000AllRightsReserved