تبديل عدد به ساعت دقيقه و ثانيه

سلام
ما يك عدد مثل 3663 داريم ميخواهيم به ساعت ، دقيقه و ثانيه تبديلش كنيم آيا فرمول خاصي وجود دارد
متشكرم

این فرمول زیر فکر کنم درست باشه :

    Private Sub CalculateNumber(ByVal MyNumber As Integer)

        Dim Temp As Short

        Dim HH As Byte = MyNumber / 360

        Temp = MyNumber Mod 360

        Dim MM As Byte = Temp / 60

        Dim SS As Byte = Temp Mod 60

    End Sub

سلام
فکرمیکنم با دستورات len و mid بشه این کارو کرد

Dim t As Integer = 3663

Dim h As Integer = t \ 3600

t = t Mod 3600

Dim m As Integer = t \ 60

Dim s As Integer = t Mod 60

textbox1.Text = h.ToString + ":" + m.ToString + ":" + s.ToString

نقل قول:

---

نوشته شده توسط غلامرضا شریفی

سلام
ما يك عدد مثل 3663 داريم ميخواهيم به ساعت ، دقيقه و ثانيه تبديلش كنيم آيا فرمول خاصي وجود دارد
متشكرم

---

دوست عزیز این عدد اگر ثانیه هست میتونی از کد زیر برای تبدیلش به زمان استفاده کنی :

PrivateFunction SecondsToTime(ByVal dSeconds AsDouble) _

AsString

SecondsToTime = Format(DateAdd("s", dSeconds, "00:00:00"), "HH:mm:ss")

EndFunction

این یه تابعی هست که میتونی عددت رو بهش بدی و خروجیشو به فرمت زمان دریافت کنی
موفق و پیروز باشید

نقل قول:

---

نوشته شده توسط غلامرضا شریفی

سلام
ما يك عدد مثل 3663 داريم ميخواهيم به ساعت ، دقيقه و ثانيه تبديلش كنيم آيا فرمول خاصي وجود دارد
متشكرم

---

دوست عزيز لطفا اول مشخص كنيد كه عددي كه شما گذاشتيد چي هستش يعني به ثانيه هست يا دقيقه!