[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 & " دقيقة")