例えば、秒数70は「00:01:10」という風に時間形式に変換したいと思っています。

70秒→00:01:10


一応作れてはいるのですが、無駄が多いような気がして、もっと簡潔にする方法はないかと思いました質問させて頂きました。


よろしくお願いいたします。

Vb2010/windows7




TextBox2.Textに70が入っています。

Dim a As Integer = Int(TextBox2.Text / 60)  　'秒から分に変換　余りは切り捨て
Dim b As Integer = TextBox2.Text Mod 60      '秒を計算
Dim c As Integer = Int(a / 60)        　　　 　     '分から時間に変換　余りは切り捨て
Dim d As Integer = a Mod 60         　　           '分を計算

TextBox2.Text = c & ":" & d & ":" & b
TextBox2.Text = TimeValue(TextBox2.Text)　　 '時間形式に変換