كيف يمكن التحويل صيغة وقت من "ثواني" إلى hh:mm:ss ?

لقيت الحل.. أللللللللللللف شكر :)

ومعذرة على العجلة!

أتمنى من المشرف حذف الموضوع..

وشكراااااا

الأخ الفاضل ...

لكى يستفيد الجميع ، شارك بما توصلت إليه من حلول، كذلك يمكنك أستخدام:

Private Sub Form_Load()
	MsgBox GetHMS_Time(3660)
End Sub

Private Function GetHMS_Time(sec As Long) As String
	Dim h As Integer
	Dim m  As Integer
	Dim s As Integer

	h = Int(sec / (60 * 60))
	m = Int((sec Mod (60 * 60)) / 60)
	s = (sec Mod (60 * 60)) Mod 60
	GetHMS_Time = h & ":" & m & ":" & s
End Function

شكراً

حياك Eng. Usama El-Mokadem.. وألف شكر على ردك أخي الكريم..

اممممم.. هذا اللي كنت ناوي أسويه.. ولكن للأسف واجهتني مشاكللللللل!!!

عرفت الطريقة.. ولكن تطبيقها كان معقد بشكل كبير!!

أنا ما أحب الفيجوال بيسك من أساسها.. بس مضطر أستخدمها!

البرنامج هذا بأي لغة ثانية ما ياخذ دقايق!!

على كل.. للأسف ما وصلت لحل باقي وأتمنى لو أقدر ألقى مساعدة...

أنا سويت تقريبا نفس الكود اللي قمت أنت بكتابته أخي الكريم.. ولكن!

ما زالت تواجهني مشاكل..

أولها.. أبغى في حالة الساعات = 6 مثلا.. يتم كتابتها على شكل 06

وهكذا!

ممكن أعملها بدالة if لتغيير كل رقم.. أو cases.. ولكن ودي بطريقة عملية!!

قمت بتعديل الكود.. على سبيل المثال خانة الدقائق على الشكل التالي :

m = Format(Int((sec Mod (60 * 60)) / 60), "00")

ولكن نفس المشكلة ما زالت موجودة!!

مشكلة أخرى.. كثير من الأحيان يقوم بالتقريب في حين لا أريد القيام به!!

أقصد بذلك التقريب العشري!

على كل.. أتمنى أجد حل للمشكلة السابقة.. وهي عرض الأرقام على شكل خانتين

واذا أمكن.. عرض خانة أجزاء الثانية من 1000.. سأحاول اضافتها في الكود السابق وان شاء الله يمشي الحال!!!

أخووووووك طالب الخبرة

رد سريع..

وأخيرا تم حل المشكلة الأولى!

وهذا الكود للافادة :

Private Function GetHMS_Time(sec As Long) As String
	Dim h As String
	Dim m  As String
	Dim s As String

	h = Int(sec / (60 * 60))
	m = Int((sec Mod (60 * 60)) / 60)
	s = (sec Mod (60 * 60)) Mod 60

	If Len(h) = 1 Then h = "0" & h
	If Len(m) = 1 Then m = "0" & m
	If Len(s) = 1 Then s = "0" & s


	GetHMS_Time = h & ":" & m & ":" & s
End Function

وللتوضيح.. هذي طريقة مبتدئين مثلي.. يعني المفروض تنحل المشكلة بطريقة أفضل ولكن هذا اللي قدرت عليه!

باقي الآن حل المشكلة الثانية.. وهي عرض أجزاء الثانية مع ( الغاء ) تقريب الاعداد العشرية في الثواني

شاكر لكم تعاونكم

أخوكم طالب الخبرة (h)

الأخ الفاضل ...

Private Sub Form_Load()
	MsgBox GetHMS_Time(3661.255253)
End Sub

Private Function GetHMS_Time(sec As Double) As String
	Dim h As Integer
	Dim m  As Integer
	Dim s As Integer

	h = Int(sec / (60 * 60))
	m = Int((sec Mod (60 * 60)) / 60)
	s = (sec Mod (60 * 60)) Mod 60

	GetHMS_Time = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & ":" & Round(sec - Int(sec), 3)
End Function

شكراً