Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 05-06-2004
Avatar de Picard
Picard Picard is offline
Miembro
 
Registrado: may 2004
Ubicación: Palamos
Posts: 23
Poder: 0
Picard Va por buen camino
Lo solucione asi:
String DecASexa(long double dec)
{
short grados = dec;
long double temp = std::fabsl(dec - grados);
unsigned short minutos = (temp *= 60);
unsigned short segundos = (temp-minutos) * 60;
return Format("%d\xB0 %d' %d\"", ARRAYOFCONST((grados, minutos, segundos)));
}

void __fastcall TfrmPrincipal::EasyMap1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
//long double fX,fY;
long double Latitud1;
long double Longitud1;

EasyMap1->ScreenToMap(X,Y,Latitud1,Longitud1);
lblLatMouse->Caption = (DecASexa(Latitud1));
lblLongMouse->Caption = (DecASexa(Longitud1));
Application->ProcessMessages();
}
//---------------------------------------------------------------------------
Ahora necesito,por ej : 41º26'34" = 41º26'34"N ó -41º26'34" = 41º26'34"S
Gracias
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:10:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi