例えば、 dim totalTimeBySec as Interger = 3661 dim hour as Integer = totalTimeBySec \ 3600 dim minute as Integer = (totalTimeBySec mod 3600) \ 60 dim sec as Integer = (totalTimeBySec mod 60) dim result as String = String.Format("{0}時間{1}分{2}秒", hour, minute, sec}