Salve a tutti!
Spero possiate aiutarmi, ecco il mio problema:
ho creato un form con due combobox (una combo per le ore e una combo per i minuti), le combo prendono dei valori Numerici (sono degli orari) da un foglio excel in cui le celle sono formattate così [h].mm in modo da superare il limite delle 24 ore;
Poi per far comparire nelle combo i valori come orari ho digitato il seguente codice:
Private Sub ComboBoxOrarioDaMinuti_Change()
'formatto la visualizzazione dei minuti nel combobox
ComboBoxOrarioDaMinuti.Value = Format(ComboBoxOrarioDaMinuti.Value, "h.mm")
End Sub
Private Sub ComboBoxOrarioDaOra_Change()
'formatto la visualizzazione delle ore nel combobox
ComboBoxOrarioDaOra.Value = Format(ComboBoxOrarioDaOra.Value, "h.mm")
End Sub
poi per sommare i minuti alle ore ho digitato il seguente codice:
Dim Ora As Date
Dim Minuti As Date
Dim Totale As Date
Ora = ComboBoxOrarioDaOra.Value
Minuti = ComboBoxOrarioDaMinuti.Value
Totale = Ora + Minuti
il mio problema è che nelle combo non compaiono esattamente i valori come li voglio, cioè nel menu a tendina della combo dei minuti compaiono i valori:
00
05
10
15
20
25
30
35
40
45
50
55 e riesco a inserirli in un foglio excel correttamente.
Però nel menu a tendina della combo delle ore benchè mi compaiano i valori delle ore come segue:
8.00
9.00
10.00
11.00
12.00
13.00
14.00
15.00
16.00
17.00
18.00
19.00
20.00
21.00
22.00
23.00 quando scelgo il valore 12.00, nella combo compare il valore 0.00 e quando inserisco il valore nel foglio ottengo sempre uno 0.00.
Per tutti gli altri valori non riscontro problemi...
per favore datemi una mano...non ci capisco più niente
Rispondi quotando
