Moltiplicare le H' Ore con i Minuti

Salve

ho creato un semplice programmino per moltiplicare ore e minuti

adesso mi chiedevo

00:10 minuti * 10:00 ore fossero = a 10:00 ore...?
oppure fa 10:10..?

dato che ore in minuti e = (600 + 10 minuti)= 610 / 60= 10 resto 10 = 10:10 ?

ho fatto vari calcoli se fosse una somma sicuramente il risultato e 10:10
ma dato che una moltiplicazione dovrebbe essere 10:00 ore

mi confermate l' esattezza
ho sono fuoristrada

saluti

Originariamente inviato da Smith

Salve

ho creato un semplice programmino per moltiplicare ore e minuti

adesso mi chiedevo

00:10 minuti * 10:00 ore fossero = a 10:00 ore...?
oppure fa 10:10..?

dato che ore in minuti e = (600 + 10 minuti)= 610 / 60= 10 resto 10 = 10:10 ?

ho fatto vari calcoli se fosse una somma sicuramente il risultato e 10:10
ma dato che una moltiplicazione dovrebbe essere 10:00 ore

mi confermate l' esattezza
ho sono fuoristrada

saluti

Normalmente si sommano patate con altre patate oppure si dividono soldi per altri soldi .....quindi devi prima trasformare tutto in minuti (oppure in ore).
10 ore + 10 minuti -> 10*60 + 10 = 610 minuti -> 10H,10M
10 ore * 10 minuti -> 10*60 * 10 = 6000 minuti -> 100H, 0M

oh come sei fuori strada

e si ero finito propio fuoristrada

Non ci avevo mai messo le mani a moltiplicare H'Ore e minuti
delle volte anche per ricordare qualcosa

sembra che vada bene

Private Sub C1_Click()
Dim ore As Double, min As Double,k(3) As Double

k(0) = CDbl(Val(T1(0).Text) * 60) ' ora1
k(1) = CDbl(Val(T1(1).Text))      'minuti1
k(2) = CDbl(Val(T1(3).Text) * 60) ' ora2
k(3) = CDbl(Val(T1(4).Text))      'minuti2

min = (k(0) + k(1)) * (k(2) + k(3))
ore = CDbl(Val(min / 60))

T1(2).Text = T1(0).Text & T1(1).Text
T1(5).Text = T1(3).Text & T1(4).Text

formattatxt

Do
If min > 59 Then
   min = min - 60
End If
If min < 60 Then Exit Do
Loop

T1(6).Text = ore & ":" & Format(min, "00")

End Sub

Private Sub T1_Validate(Index As Integer, Cancel As Boolean)

formattatxt

End Sub

Sub formattatxt()

T1(0).Text = Format(T1(0).Text, "00")
T1(1).Text = Format(T1(1).Text, "00")
T1(3).Text = Format(T1(3).Text, "00")
T1(4).Text = Format(T1(4).Text, "00")
T1(2).Text = Format(T1(2).Text, "00:00")
T1(5).Text = Format(T1(5).Text, "00:00")
T1(6).Text = Format(T1(6).Text, "00:00")

End Sub

Grazie