Algoritmo!!!

[AntonioG]

Hola,

Que llevas hecho?

En que tienes almacenado ese carnet de identidad? (char *, AnsiString)

Saludos

[Ledian_Fdez]

El carnet de identidad lo guardo en una variable de tipo String.
Y hasta ahora lo que se me ocurre es ir tomando de 2 en dos lo 6 primeros caracteres, la complicacion de todo esto es como sabes si es una fecha valida. Digamos por ejemplo cuando un mes trae 30, 31, 28 o 29.

Salu2
Ledian

[AntonioG]

Hola,

Pues todos los meses son faciles de checar menos Febrero, por eso de los años bisiestos, los meses siempre tienen este numero de dias:
Enero 31
Febrero 28 o 29
Marzo 31
Abril 30
Mayo 31
Junio 30
Julio 31
Agosto 31
Septiembre 30
Octubre 31
Noviembre 30
Dicienmbro 31


De la formula es apara clauyclar cuando un año es bisiesto ahorita no al tengo, al rato la busoc bien, solo me acuerdo algo como que si un año es multiplo de 4 pero no de 400 es bisiesto )al rato lo busco bien=.
Para saber si es multiplo, pues usas el operador modulo )o residuo de division entera= :%

Se usa asi:
supongamos que el numeor lo guardas en n, en tonces i:
n%4==0 <---es multiplo de 4
n%4!=0 <---NO es multiplo de 4

Asi que para 400, pues queda asi:

n%400==0 <---es multiplo de 400
n%400!=0 <---NO es multiplo de 400

Saludos

[roman]

Prueba con esta función:

Código Delphi [-]
function EsFechaValida(S: String): Boolean;
var
  Y, M, D: Word;
  Fecha: TDateTime;

begin
  Y := StrToIntDef(Copy(S, 1, 2), 0);
  M := StrToIntDef(Copy(S, 3, 2), 0);
  D := StrToIntDef(Copy(S, 5, 2), 0);

  if Y*M*D > 0 then
    Result := TryEncodeDate(Y + 1900, M, D, Fecha)
  else
    Result := false;
end;

Y por cierto, trata de dar títulos más descriptivos para tus mensajes.

// Saludos

[AntonioG]

Hola,

Basandome en lo que puso roman y en algo que viene en la ayuda de CBuilder, para CBuilder seria asi:

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.