+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Moltiplicare le H' Ore con i Minuti

  1. #1
    Smith non è in linea Scolaretto
    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

  2. #2
    L'avatar di Max.Riservo
    Max.Riservo non è in linea Scribacchino
    Quote Originariamente inviato da Smith Visualizza il messaggio
    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

  3. #3
    Smith non è in linea Scolaretto
    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

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. moltiplicare i record di un campo
    Da lalepup nel forum Microsoft Access
    Risposte: 19
    Ultimo Post: 19-05-2016, 07:27
  2. Moltiplicare i record tramite query o sql
    Da Federica_84 nel forum Microsoft Word
    Risposte: 8
    Ultimo Post: 21-09-2012, 11:10
  3. Moltiplicare in base a formattazione
    Da leleforno nel forum Microsoft Word
    Risposte: 7
    Ultimo Post: 18-02-2010, 17:42
  4. Access - Moltiplicare due campi
    Da orpo970 nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 30-10-2008, 18:57
  5. Moltiplicare più textbox
    Da fabiro77 nel forum Visual Basic 6
    Risposte: 12
    Ultimo Post: 09-06-2007, 19:47