Código Delphi [-] var AFecha: TDateTime; begin {Convierte la cadena a un TDateTime Suponiendo que el formato es válido } AFecha := StrToDate('23/07/2005'); {Realiza la operación aritmética} AFecha := AFecha + 2; {Convierte la fecha a un string y la mustra} ShowMessage(DateToStr(AFecha)); end;
var AFecha: TDateTime; begin {Convierte la cadena a un TDateTime Suponiendo que el formato es válido } AFecha := StrToDate('23/07/2005'); {Realiza la operación aritmética} AFecha := AFecha + 2; {Convierte la fecha a un string y la mustra} ShowMessage(DateToStr(AFecha)); end;