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

[غلامرضا شریفی]

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

[davood-ahmadi]

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


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

[saeid.memfis]

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

[nima898]

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

[pouria_66]

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

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


PrivateFunction SecondsToTime(ByVal dSeconds AsDouble) _
AsString
SecondsToTime = Format(DateAdd("s", dSeconds, "00:00:00"), "HH:mm:ss")
EndFunction

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

[ali_najari]

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


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