الي اصحاب الخبرة: اريد كود للتحويل من عدد الثواني الي دقائق وساعات

قم بتمرير قيمة الثواني الي الدالة التالية وستعود لك بالوقت

Function GetTime(lngTime As Long) As String
	Dim dDate As Date
	dDate = DateAdd("s", lngTime, "0")
	GetTime = Format(dDate, "hh:mm:ss")
End Function

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

بالفعل أخي Pharaonic_Guy دالة لم أكن أعرفها

DateAdd("s", lngTime, "0")

تشكر عليها

الي الاخ Pharaonic_Guy

جزاك الله خيرا علي هذا الكود الجميل جدا ويجعله الله في ميزان حسناتك

الي الاخ msayed2004

جزاك الله خيرا علي اهتمامك بمساعدتي

خيركم من تعلم العلم وعلمه