秒を何分何秒という形に変えるには？ (ID:112293)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません途中で間違えて送信してしましました。 ・・・たとえば３８０(Integer)秒を６：２０という形に変換したいのですが、 秒を６０で割って分を求め、そのあまりを 秒っていう形にする以外は思いつきませんが、 もっと簡単な方法はあるのでしょうか？ ---------------------------------------- Dim Ntime as Date Ntime=Time + TimeSerial(1, 0, 0) Timer1.interval=1000 Timer1.enabled=true Sub Timer1_Timer() Dim Count as long Count = DateDiff("s", Time, NTime) 'ここで分を秒に直したいです。 label1.Caption=count ----------------------------------------