Código Delphi [-]AnsiString SFecha; TDateTime Fecha1,Fecha2; Fecha1=int(Fecha2);//Para entero SFecha=Fecha2->FormatString("dd/mm/yyyy");//Para Cadena
AnsiString SFecha; TDateTime Fecha1,Fecha2; Fecha1=int(Fecha2);//Para entero SFecha=Fecha2->FormatString("dd/mm/yyyy");//Para Cadena