[SonBasel]

(15-11-18, 01:13 AM)rmnr كتب :

كود :

Dim t1 = 0.33333333333333331 'بالساعة
Dim m1 = 60 * t1 ' الساعة 60 دقيقة
MsgBox("الناتج: " &m1 & " د")

كود :

Dim n2 = 80 ' بالدقيقة
Dim h2 = Math.Floor(n2 / 60) ' الساعة 60 دقيقة
Dim m2 = n2 Mod 60 ' الساعة 60 دقيقة
' Mod تعطي فقط الباقي من عملية القسمة
MsgBox("الناتج: " & h2 & " ساعة و " & m2 & " دقيقة")

يا انك ما فهمت قصدي او انا مو فاهم الكود صح 

ان اقصد انو عندي شي ياخذ وقت و لازم اسوي كذا مره 
ابيه ياخذ المده و يحولها لي لي وقت بشكل ساعه : دقائق 

(فوق ترى بس كنت معطي مثال برقم معين )