掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
秒の変換 (ID:146850)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解のひとつとしては、TimeSpan 構造体を使うという手法があります。 Dim ts As New TimeSpan(0, 0, 4830) Dim result As String = String.Format("「{0}秒」＝「{1}時間{2}分{3}秒」", ts.TotalSeconds, ts.Hours, ts.Minutes, ts.Seconds) 'MsgBox(ts.ToString()) あるいは、単純に割り算で求めていく事もできます。 まず、[4830秒]を 60秒単位 で割ると、[80分]と余りが[30秒]です。 その[80分]を 60分単位 で割ると、[1時間]と余りが[20分]となります。 ゆえに『1時間20分30秒』と算出できますね。 通常の割り算では、「/ 演算子」を使って求めますが、 商と余りを得る場合には、商を「\ 演算子」、余りを「Mod 演算子」で求めます。 たとえば、「4830秒」を 60秒(1分)単位で割って、「80分と30秒」に 分離する場合は、下記のようにします。 Dim totalSeconds As Integer = 4830 '「4830」秒 Dim a As Integer = totalSeconds \ 60 '「80」分 Dim b As Integer = totalSeconds Mod 60 '「30」秒 'Dim c As Double = totalSeconds / 60 '「80.5」分
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.