تبدیل عدد به ساعت و...

بازم سلام خوبید
چجوری یه عددی که از ورودی میگیرم رو به ساعت و دقیقه و ثانیه تیدیل کنم
قربون شما

خوب اون عدد چی هست ، ثانیه س؟ میلی ثانیه س ؟ پالسه ؟ چیه ؟
بر فزض اگه ثانیه باشه .. اگه ثانیه ها تو متغییر sss باشه میتونی اینطوری عمل کنی
Label1.Caption = sss \ 3600 & ":" & sss \ 60 Mod 60 & ":" & sss Mod 60
میشه اینطور هم نوشت
Hr = sss \ 3600
Mn = (sss \ 60) Mod 60
sec = sss Mod 60
یا برای اینکه بهتر متوجه بشی اینطور هم میشه نوشت

اگر هم میلی ثانیه باشه اول اینو بنویس sss=sss\1000 که تبدیل به ثانیه بشه بعد با روش بالا میتونی تبدیل به ساعت و دقیقه کنی

سلام دوست عزیز ، با این کد میتونید عددمورد نظر خود رو بر اساس ثانیه به ساعت ، دقیقه ، ثانیه تبدیل کنید .

فقط کافیه یکTextBox به فرم اضافه کنید . و دو Lable . و یک Command دکمه . و در آخر کد زیر رو کپی کنید .

کد:

---

'********************************************
'By:  Bvk Programmer
'Em@il : Bvk_ir1471@yahoo.com
'Web : Bvk-programmer.blogsky.com
'********************************************

Private Sub Command1_Click()
a = Val(Text1.Text)
h = a \ 3600
c = a Mod 3600
m = c \ 60
s = c Mod 60
Label2.Caption = Str(h) & ":" & Str(m) & ":" & Str(s)
Form1.Height = 2295

End Sub

---

اینم یک نمونه آمادش که برات درست کردم .

کد:

---

[IMG]file:///C:/windows/system32/config/SYSTEM%7E1/AppData/Local/Temp/moz-screenshot-5.png[/IMG]http://s1.picofile.com/file/6262885310/Project1.rar.html

---