Excel公式：幾天幾小時

Question

31.8天31天19小時12.2天12天5小時38.9天38天22小時95.9天95天22小時64.1天64天2小時67.3天67天7小時57.9天57天22小時34.3天34天7小時57.9天57天22小時50.7天50天17小時13.5天13天12小時40.3天40天7小時45.7天45天17小時37.5天37天12小時51天51天34天34天63.8天63天19小時22.3天22天7小時81.3天81天7小時36.2天36天5小時73.2天73天5小時87.6天87天14小時21天21天12.4天12天10小時10.7天10天17小時72.2天72天5小時21.5天21天12小時.6天14小時0天　-2天　
題目
請依A欄換算成幾天幾小時
A欄最大為100天，最小為-2天，天數為0或為負則不換算，小數不一定只有一位
小時部分請四捨五入，若為0小時，則小時部分不顯示
請於C2填寫公式，可下拉，或區域數組完成
B欄為模擬解，全對則C33為True舉例
A2為31.8天，則為31天加上0.8天(0.8*24=19.2小時)，小時部分請四捨五入無輔助列、定義名稱、VBA
字數（含等號）限299字，字數最短者且正確給予最佳解答
限2003版本http://www.funp.net/204682

? · Accepted Answer

89字
 =TEXT(INT(LEFT(A2,LEN(A2)-1)),"0天;;")&TEXT(ROUND(MOD(LEFT(A2,LEN(A2)-1),1)*24,0),"0小時;;")

2012-12-26 09:32:36 補充：
78字
=TEXT(INT(LEFTB(A2,LEN(A2))),"0天;;")&TEXT(MOD(LEFTB(A2,LEN(A2)),1)*24,"0小時;;")

2012-12-29 18:11:01 補充：
想不到這一題爆冷門，還沒有人接近 68字
這一兩天再想看看吧

2012-12-30 13:54:14 補充：
放棄，等PINY公布答案

2012-12-31 23:49:13 補充：
58字
=SUBSTITUTE(TEXT(LEFTB(A2,LEN(A2)),"#天#小時/24天;;"),"/24天",)

2013-01-01 16:59:31 補充：
 
圖片參考：http://imgcld.yimg.com/8/n/AF02741245/o/20130101165800.jpg

B2=SUBSTITUTE(TEXT(LEFTB(A2,LEN(A2)),"#天#小時/24天;;"),"/24天",)

C2=TEXT(LEFTB(A2,LEN(A2)),"#天#小時/24;;")    
D2=TEXT(LEFTB(A2,LEN(A2)),"# #/24;;")

D2公式為小數轉分式格式
C2公式於格式中加入"天"與"小時"，但C3的格式並沒有出現 "天"
B2公式於 "/24" 後再補上 "天"，並用SUBSTITUTE將多餘的 "/24天" 刪除

LEFTB(A2,LEN(A2)) 17字 可更換為 SUBSTITUTE(A2,"天",) 19字
則公式只引用一次 A2 (PINY大師提供)
B2=SUBSTITUTE(TEXT(SUBSTITUTE(A2,"天",),"#天#小時/24天;;"),"/24天",)    
祝大家新年快樂

匿名 · Answer

到下面的網址看看吧

▶▶http://*****

匿名 · Answer

到下面的網址看看吧

▶▶http://*****

准提部林 · Answer

=TEXT(SUBSTITUTE(A2,"天",),"#天#小時/24天;;")
太厲害！
可否上答時順便做解析？

也引用〔祝大家新年快樂 〕 一次！^ ^

? · Answer

001, 006不OK，請測試-1.2天，公式應傳回空白
005Ok，尚可略簡！ ^^

2012-12-26 09:50:58 補充：
測試用公式應改為
=RANDBETWEEN(-20,1000)/10&"天"

可測試較全面

2012-12-26 11:21:02 補充：
當有朋友提出與小弟敝解字數差小於10字，我就公佈我的字數，目前尚有十字以上優化空間

2012-12-26 12:57:54 補充：
呼！小弟改變主意了，煩請樂於參與Excel學習的朋友們，有答案請直接公佈，讓大家檢視您的公式（或再予以精進優化），若有提出與小弟預設解在10字差異，小弟則會予以公佈敝解字數，並於結題前公佈敝解。

結題前若未有人達到小弟預設短解，則依字數長短依先提出者為最佳解答，小弟並同步公佈敝解。

謝謝！

2012-12-29 18:04:04 補充：
感謝東邪大指教！未瞭該盡禮數，尚祈見諒！

本題預設解58字！

2013-01-01 03:15:16 補充：
015 不OK，請測試-1.9天

2013-01-01 03:17:14 補充：
016 Bingo!

恭請KK大上答！ ^^

正規寫法
=SUBSTITUTE(TEXT(SUBSTITUTE(A2,"天",),"#天#小時/24天;;"),"/24天",)

A2僅引用一次，祝大家新年快樂 ^^

Daniel · Answer

測試003，-1.2天時為19小時，應該不正確!

2012-12-26 01:29:58 補充：
=TEXT(INT(LEFT(A2,LEN(A2)-1)),"0天;;")&TEXT(TEXT(LEFT(A2,LEN(A2)-1),"h:m;!0")*24,"0小時;;")

88字

2012-12-28 01:34:45 補充：
套用K大的做法，005改為:
=TEXT(INT(LEFTB(A2,LEN(A2))),"0天;;")&TEXT(TEXT(LEFTB(A2,LEN(A2)),"h:m;!0")*24,"0小時;;")

86字

Excel公式：幾天幾小時

6 個解答