Tema: Algoritmo!!!
Ver Mensaje Individual
  #8  
Antiguo 18-06-2007
Avatar de AntonioG
AntonioG AntonioG is offline
Miembro
 
Registrado: jun 2007
Posts: 17
Reputación: 0
AntonioG Va por buen camino
Hola,

Basandome en lo que puso roman y en algo que viene en la ayuda de CBuilder, para CBuilder seria asi:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)

{
  TDateTime dt;
  AnsiString  fecha;//<--aqui va la fecha

  try
  {
    dt = EncodeDate((Word)StrToInt("19"+fecha.SubString(1,2)), (Word)StrToInt(fecha.SubString(3,2)), (Word)StrToInt(fecha.SubString(5,2)));
    Label1->Caption = DateToStr(dt);
  }
  catch(...)
  {
    Application->MessageBox("Invalid day, month, or year.", "EncodeDate Example", MB_OK);
  }
}
En fecha va primero el año, luego el mes y leugo el dia, pro eemplo:
fecha="810227";


Saludos
P.D. La linea
Label1->Caption = DateToStr(dt);
la puedes quitar.

Última edición por AntonioG fecha: 18-06-2007 a las 22:20:24.
Responder Con Cita