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

解決

---

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

dim Ntime

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

編集 削除

---

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

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

編集 削除

---

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

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

編集 削除

---

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

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。