秒を何分何秒という形に変えるには？

解決

楓 2004-03-10 23:23:36 No: 112292

VB6 SP5 WIN2K
下記のコードで、現時刻から、指定の時間まであと
何分何秒かを表示するカウントダウンを作成しているのですが、
たとえば３８０(Integer)秒を６：２０という形に変換したいのですが、

dim Ntime

Count = DateDiff("s", Time, NTime)

楓 2004-03-10 23:29:25 No: 112293

すみません途中で間違えて送信してしましました。

・・・たとえば３８０(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
----------------------------------------

GOD 2004-03-11 01:33:17 No: 112294

こんな方法はどうですか？

' 0〜86399の範囲なら xx:xx:xxの形になるはずです。
dateadd("s", 380, 0)

楓 2004-03-11 18:37:15 No: 112295

ありがとうございました。
無事解決しました！