Código Delphi [-] var fecha: string; begin ShortDateFormat := 'dd/mm/yyyy'; label1.Caption:= DateToStr(Date); fecha:= '06/04/2010'; if Date = StrToDate(fecha) then Begin showmessage('es la fecha'); end; end;
var fecha: string; begin ShortDateFormat := 'dd/mm/yyyy'; label1.Caption:= DateToStr(Date); fecha:= '06/04/2010'; if Date = StrToDate(fecha) then Begin showmessage('es la fecha'); end; end;