تبدیل ثانیه به ساعت و دقیقه و ثانیه00:00:00

[AbbasVB]

درود دوستان
من توی نوشتن یه برنامه به مشکل بر خوردم
مشکلم اینه که یه تعداد ثانیه به برنامه می دهیم و برنامه تعداد روز ها و ساعت ها و دقیقه ها و ثانیه های اون رو به ما می ده یعنی معادل سازی می کنه من با دستور فرمت(Format) امتحان کردم مشکل داشت نشد
ممنونون می شم دوستان کمک کنند







طاعات و عبادات همه دوستان قبول درگاه حق

[the king]

درود دوستان
من توی نوشتن یه برنامه به مشکل بر خوردم
مشکلم اینه که یه تعداد ثانیه به برنامه می دهیم و برنامه تعداد روز ها و ساعت ها و دقیقه ها و ثانیه های اون رو به ما می ده یعنی معادل سازی می کنه من با دستور فرمت(Format) امتحان کردم مشکل داشت نشد
ممنونون می شم دوستان کمک کنند

طاعات و عبادات همه دوستان قبول درگاه حق


Private Sub Form_Load()
Dim totalSeconds As Long, s As String
Dim days As Integer, hours As Integer, minutes As Integer, seconds As Integer
totalSeconds = 123456
days = (totalSeconds \ 86400)
hours = (totalSeconds Mod 86400) \ 3600
minutes = (totalSeconds Mod 3600) \ 60
seconds = (totalSeconds Mod 60)
s = TwoDigits(days) & ":" & TwoDigits(hours) & ":" & TwoDigits(minutes) & ":" & TwoDigits(seconds)
MsgBox s
End Sub

Private Function TwoDigits(value As Integer) As String
TwoDigits = Format(value, "00")
End Function

[MohammadGh2011]

سلام عليکم

قبلا تاپيکي در اين باره ايجاد شده است.
تبديل ثانيه به ساعت و دقيقه و ثانيه (http://barnamenevis.org/showthread.php?297239-%D8%AA%D8%A8%D8%AF%D9%8A%D9%84-%D8%AB%D8%A7%D9%86%D9%8A%D9%87-%D8%A8%D9%87-%D8%B3%D8%A7%D8%B9%D8%AA-%D9%88-%D8%AF%D9%82%D9%8A%D9%82%D9%87-%D9%88-%D8%AB%D8%A7%D9%86%D9%8A%D9%87)



موفق باشيد