Excel VBA質問箱 IV

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

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


68336 / 76734 ←次へ | 前へ→

【12936】Re:秒数について
発言  ichinose  - 04/4/19(月) 21:52 -

引用なし
パスワード
   中2のVBA通 さん、shousukeさん、こんばんは。


>はじめまして。中2のVBA通です。
>私は、VBAを初めて5ヶ月、SUBプロシージャーやActiveXコントロールなど、いろいろ自分なりにがんばっていきました。しかし、解決できないことが一つだけあります。それは
> 「 1/10 や、それより小さいの秒数」
> を使うことです。
>secondの内部処理形式は整数形(integer)なので、わり算はできません。
>また、timevalueも内部処理形式は整数形なので、同じくわり算できません。
>なにか特別な参照設定をしなければいけないのかもしれませんが、私にはさっぱりワカリマセン。
>
>誰か知っている人は教えてください。

何をしたいかによって違ってきますが、
例えば、「13:15:16.45」なんて言う時間を表したいなら・・・、
'===================================================================
Sub time_test()
  Dim t_time As Double
  t_time = CDbl(TimeValue("13:15:16")) + CDbl(0.45 / 86400)
  MsgBox WorksheetFunction.Text(t_time, "hh:mm:ss.00")
End Sub

上の記述で86400は、一日---24時間---1440分---86400秒から出てくる数値です。

時間って、24時間を0〜1で百分率で表しているということから考えてみて下さい。
0 hits

【12925】秒数について 中2のVBA通 04/4/19(月) 20:06 質問
【12929】Re:秒数について shousuke 04/4/19(月) 21:01 回答
【12936】Re:秒数について ichinose 04/4/19(月) 21:52 発言
【12938】Re:秒数について 中2のVBA通 04/4/19(月) 22:51 お礼
【12939】Re:秒数について ni 04/4/20(火) 9:11 発言

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