Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60509 / 76732 ←次へ | 前へ→

【20861】Re:単位の変換方法 訂正
発言  ichinose  - 04/12/23(木) 2:02 -

引用なし
パスワード
   ▼TOKU さん:
>早速のご回答有難う御座います。
>Fixに変更したら出来ました。
Fixに訂正しただけでは正しい結果が得られない場合もありました。
これ、一度全部、分単位に変換しないとダメみたい!!
'===============================================
Function Addtime_Sp(ParamArray hh()) As Double
  Addtime_Sp = 0
  For idx = LBound(hh()) To UBound(hh())
   For Each chh In hh(idx)
    Addtime_Sp = Addtime_Sp + Fix(chh) * 60 + (chh - Fix(chh)) * 100
    Next
   Next idx
  Addtime_Sp = (Addtime_Sp \ 60) + (Addtime_Sp Mod 60) / 100
End Function
0 hits

【20812】単位の変換方法 TOKU 04/12/20(月) 19:54 質問
【20813】Re:単位の変換方法 かみちゃん 04/12/20(月) 21:24 回答
【20814】Re:単位の変換方法 ichinose 04/12/20(月) 22:05 発言
【20818】Re:単位の変換方法 訂正 ichinose 04/12/21(火) 10:11 発言
【20821】Re:単位の変換方法 訂正 TOKU 04/12/21(火) 12:44 お礼
【20853】Re:単位の変換方法 訂正 TOKU 04/12/22(水) 21:54 質問
【20855】Re:単位の変換方法 訂正 ichinose 04/12/22(水) 23:07 回答
【20859】Re:単位の変換方法 訂正 TOKU 04/12/23(木) 0:11 お礼
【20861】Re:単位の変換方法 訂正 ichinose 04/12/23(木) 2:02 発言
【20897】Re:単位の変換方法 訂正 TOKU 04/12/23(木) 20:23 お礼

60509 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free