"studiofmt" ha scritto:
> Obiettivo è poter lavorare senza ulteriori trasformazioni sui dati inseriti
> ad esempio lat 45°30'59" + 11°25'
"eliano" ha scritto:
Rileggendo l'articolo..... prova questa Udf artigianale:
Function prova(GMS As String) As Double
prova = Mid(GMS, 1, 2) + (((Mid(GMS, 7, 2) / 60) _
+ Mid(GMS, 4, 2)) / 60)
End Function
o con l'equivalente formula XL, cioè:
A B C
45°30'59" 45,51639 45,51639
11°25'00" 11,41667 11,41667
Totale 56,93306 56,93306
in
A1:A2 =STRINGA.ESTRAI(A1;1;2)+(((STRINGA.ESTRAI(A1;7;2)/60)+STRINGA.ESTRAI(A1;4;2))/60)
in C1:C2 =prova(A1)
in C3 =prova(A1)+prova(A2)
Dovrebbero andare, altrimenti aspettiamo qualche "regexp".:-))
Eliano
> Obiettivo ᅵ poter lavorare senza ulteriori trasformazioni sui dati inseriti
> ad esempio lat 45ᅵ30'59" + 11ᅵ25'
Prendendo spunto dal thread:
..potresti applicare alle celle il formato personalizzato:
[h].mm.ss,00
(NB - importante e' la presenza delle parentesi quadre in: [h])
Es., applico all'intervallo A2:C10 il predetto formato personalizzato,
poi, inserisco i seguenti dati:
[A2] = 45.30.59
[B2] = 11.25.00
..e la formula in [C2]:
[C2]=[A2]+[B2]
..ed ottengo:
[C2]= 56.55.59,00
Ciaoooo
Pippo
--
Ciao a tutti
Pippo
Ciao studiofmt, tenendo buoni i suggerimenti già postati (ciao a tutti), se
vuoi mantenere la vista dei gradi, dei mminuti e dei secondi, formatta così:
[h]° mm' ss",00 oppure così
[h]° mm' ss" se non vuoi la vista dei decimali di secondo.
--
Ciao paoloard
http://riolab.org
"studiofmt" ha scritto:
> Obiettivo è poter lavorare senza ulteriori trasformazioni sui dati inseriti
> ad esempio lat 45°30'59" + 11°25'
Vedi il sito del "patatina", con un file abbastanza explicativo:
http://www.cpearson.com/excel/LatLong.aspx
"eliano" ha scritto:
Rileggendo la mia artigianale, mi sono accorto di aver perso mezzo mondo per
la strada considerando latitudine e longitudine uguali come gradi.
Sostituisci l'artigianale con questa ancora più artigianale:
Function prova22(GMS As String) As Double
Dim dec() As String
GMS = Replace(GMS, "°", " ")
GMS = Replace(GMS, "'", " ")
GMS = Replace(GMS, """", " ")
dec = Split(GMS, " ")
prova22 = dec(0) + (dec(1) / 60) + (dec(2) / 3600)
End Function
Sorry,
Eliano
http://www.prodomosua.eu/zips/trasformazioni.xls
.f
nel tuo caso, prova
nella cella A24 =ncoor(45;30;59)
nella cella A25 =ncoor(11;25;0)
nella cella A26 =scoor(a24:a25)
[56� 55' 59'']
oppure
da qualche parte =nconv(sconv(ncoor(45;30;59))+sconv(ncoor(11;25;0)))
[56� 55' 59'']
.f
fernando cinquegrani
http://www.prodomosua.eu/ppage03.html