Funcion personal

Querido grupo

en una celda tengo el numero 6.2323 estos son grados y a traves de una
función que yo creé
me devuelve un resultado 61356.28 que aplicando un formato de celda
personalizado (00"º" 00"'" 00"''" llego a 6º 13' 56.28''

Mi pregunta es como hacer dentro de la funcion aplicarle este formato de
número y que pueda sumarlos, es decir que queden como numeros

El cuerpo de la funcion es

public function GrMinSeg (byval Grados as double) as double

GrMinSeg >

DO-ENTERO(GRADO))*60))*60

End function

Saludos al grupo

Amadeo

Yo realmente haria la funcion al reves, que reciba el numero y me lo
convierta a grados para hacer operaciones

"Amadeo GOVONI" escribió en el mensaje
news:
> Querido grupo
>
> en una celda tengo el numero 6.2323 estos son grados y a traves de

> función que yo creé
> me devuelve un resultado 61356.28 que aplicando un formato de celda
> personalizado (00"º" 00"'" 00"''" llego a 6º 13' 56.28''
>
> Mi pregunta es como hacer dentro de la funcion aplicarle este formato de
> número y que pueda sumarlos, es decir que queden como numeros
>
> El cuerpo de la funcion es
>
> public function GrMinSeg (byval Grados as double) as double
>
> GrMinSeg > >

> DO-ENTERO(GRADO))*60))*60
>
> End function
>
> Saludos al grupo
>
> Amadeo
>
>

Me gustaría saber como cambiar el formato numerico desde la funcion

Gracias
Amadeo


"Manuel Romero" <mromerop_arroba_hotmail_punto_com> escribió en el mensaje
news:%23p%
> Yo realmente haria la funcion al reves, que reciba el numero y me lo
> convierta a grados para hacer operaciones
>
> "Amadeo GOVONI" escribió en el mensaje
> news:
> > Querido grupo
> >
> > en una celda tengo el numero 6.2323 estos son grados y a traves de
una
> > función que yo creé
> > me devuelve un resultado 61356.28 que aplicando un formato de celda
> > personalizado (00"º" 00"'" 00"''" llego a 6º 13' 56.28''
> >
> > Mi pregunta es como hacer dentro de la funcion aplicarle este formato

> > número y que pueda sumarlos, es decir que queden como numeros
> >
> > El cuerpo de la funcion es
> >
> > public function GrMinSeg (byval Grados as double) as double
> >
> > GrMinSeg > > >
>

> > DO-ENTERO(GRADO))*60))*60
> >
> > End function
> >
> > Saludos al grupo
> >
> > Amadeo
> >
> >
>
>