Fechas sin Separador

[dec]

Hola,

Empezado por lucasarts_18

Ej: 25/08/1999 -> 25081999

¿Algo así no podría apañarte?

Código Delphi [-]
   FormatDateTime('ddmmyyyy', StrToDate('25/08/1999'));

O, dicho de otro modo:

Código Delphi [-]
function FechaSinSeparador(fecha: TDate): string;
 begin
   Result := FormatDateTime('ddmmyyyy', fecha);
 end;
 //
 function FechaSinSeparador(fecha: string): string;
 begin
   Result := FormatDateTime('ddmmyyyy', StrToDate(fecha));
 end;