excel-somma ore "valori alti"!!?? troppo?

[gattociro]

ciao a tutti !! spiego: un applicazione mi restituisce valori parziali in ore in formato excel.
Il mio problema consiste nel fatto che non posso o non riesco a sommare i valori e credo per il fatto che siano molto alti, es.

3956:06:00
27585:02

mi restituisce 3956:06:00.

vi chiedevo come posso ovviare a ciò e se non fosse possibile con excel con quale altra applicazione

grazie

[nicola75ss]

Leggi qui

http://support.microsoft.com/kb/214386

edit. Per le somme usa quindi il formato personalizzato

[h].mm.ss

e devi quindi scomporre i valori superiori a 9999... in valori inferiori.

[gattociro]

grazie per il link!

il vero problema è che i valori sono centinaia e anche frutto di subtotali il che diventa dispendioso scomporre i valori con il formato personalizzato anche per quello cercavo un eventuale applicazione per ovviare al problema.

ti ringrazio
una poderosa stretta di mano

[nicola75ss]

Ho trovato questo interessante articolo. Prova a dargli un'occhiata.

http://excel.tips.net/Pages/T002038_...me_Values.html

[gattociro]

ok oggi spero di avere tempo poi ti dirò ciao

[gattociro]

OTTIMO!!!!!

BISOGNA LAVORARE IN AMBIENTE VISUAL BASIC DI EXCEL E CON L' AIUTO DI UN MIO COLLEGA HO RISOLTO BRILLANTEMENTE IL PROBLEMA!!

Public Function GENTIME(s As String) As Double

Dim hr1 As Double
Dim min1 As Double
Dim sec1 As Double
Dim hr As Double
Dim min As Double
Dim sec As Double
Dim tot As Double


If InStr(s, ":") > 0 And InStr(InStr(s, ":") + 1, s, ":") = 0 Then

hr1 = Left$(s, InStr(s, ":") - 1)
min1 = Right$(s, Len(s) - InStr(s, ":"))

hr = hr1 / 24
min = min1 / 24 / 60

tot = hr + min

GENTIME = tot

ElseIf InStr(s, ":") > 0 And (InStr(InStr(s, ":") + 1, s, ":") > 0) Then

hr1 = Left$(s, InStr(s, ":") - 1)
min1 = Mid$(s, InStr(s, ":") + 1, InStr(InStr(s, ":") + 1, s, ":") - (InStr(s, ":") + 1))
sec1 = Right$(s, Len(s) - InStr(InStr(s, ":") + 1, s, ":"))

hr = hr1 / 24
min = min1 / 24 / 60
sec = sec1 / 24 / 60 / 60

tot = hr + min + sec

GENTIME = tot

Else

GENTIME = s

End If

End Function


CIAO E GRAZIE