سلام
ما يك عدد مثل 3663 داريم ميخواهيم به ساعت ، دقيقه و ثانيه تبديلش كنيم آيا فرمول خاصي وجود دارد
متشكرم
سلام
ما يك عدد مثل 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
آخرین ویرایش به وسیله davood-ahmadi : یک شنبه 18 بهمن 1388 در 12:52 عصر
سلام
فکرمیکنم با دستورات 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
دوست عزیز این عدد اگر ثانیه هست میتونی از کد زیر برای تبدیلش به زمان استفاده کنی :
PrivateFunction SecondsToTime(ByVal dSeconds AsDouble) _
AsString
SecondsToTime = Format(DateAdd("s", dSeconds, "00:00:00"), "HH:mm:ss")
EndFunction
این یه تابعی هست که میتونی عددت رو بهش بدی و خروجیشو به فرمت زمان دریافت کنی
موفق و پیروز باشید