5 respuestas en este tema

[El_Chava]

Hola amigos del foro estoy desarrollando un sistema con lazarus y necesito validar que el usuario no deje con una fecha invalidad el TLSDateEdit. Es la primera vez que estoy trabajando con este componente y no se como puedo realizar esta validación. Espero me puedan ayudar de antemano muchas gracias.

Archivos adjuntos

•  4800_2ca10a8cf75af28b0588a98e7fa35b490e576dd0.jpg   93,76KB   12 descargas

[cram]

¿Qué biblioteca El Chava?, no encuentro ese control.
Aun así, la validación se puede hacer luego del ingreso como cualquier otra mediante el evento OnExit. Esos controles normalmente evitan la introducción de caracteres no válidos.
Lo más sencillo es utilizar un control como el que se ve a la derecha, algo como un DBCalendar, en el cual no se puede cometer errores ya que todos los días son válidos y seleccionables.

Saludos

[El_Chava]

Hola cram. Ese componente lo instale se llama LazSolutions y lo que me llama la atención de este compoente este cuenta con propiedades como ValidationType y evento como OnValidate solo que no he encontrado documentación que me ayude a resolver ese problema. Trate de hacer la validación en el evento OnExit pero lo que ocasionaba es que borraba todo el contenido de la propiedad text del componente.

Archivos adjuntos

•  4802_b1b20c7272c0f84a01b06c8046fcb05875396443.png   25,55KB   5 descargas

[cram]

Es precisamente en el evento OnValidate, donde debes hacer la validación. No significa que la validación sea automática, sino que puedes controlarla.

Primero, deberías prohibir la introducción de cualquier caracter extraño, es decir solo números y la barra de separación.

StrToDate valida la cadena a convertir, podrías utilizar esta función en OnValidate dentro de una estructura Try.
Por ejemplo except Result:= False.

La rutina que sigue no fue probada (la escribí solo en papel), pero puede funcionar, te dejo el resto de trabajo (prueba).

delphi

function EsFechaValida(D, M, A: Integer): Boolean;
// D, M, A son día, mes y año. Se supone que deberías separarlos antes.
var
  Max: Integer;
begin
  Result:= False;
  if A<0 then Exit;
  if (M<1) or (M>12) then Exit;
if M = 2 
  then if (A mod 4) = 0 
    then Max:= 28 
    else Max:= 29
  else if (M<7) 
    then Max:= 30 + (M mod 2)
    else Max:= 30 + ((M+1) mod 2)
  Result:= (D>0) and (D < Max);
end;

En teoría cada 100 bisiestos un año no lo es, pero eso fue para el 2000 y aun así fue bisiesto. ¿? 

Saludos

[El_Chava]

Hola Cram gracias por tu respuesta. Te comento que tratando de resolver el problema decide usar el componente que trae por defecto lazarus que es el TDateEdit. Este el código que uso para poder validar que el usuario ha introducido una fecha valida.

delphi

var
 MyDateTimeVar: TDateTime;
begin
  try
   MyDateTimeVar:= StrToDate(fechaentrega.Text);
  except
     on EConvertError do begin
      Application.MessageBox('La fecha de entrega no es validad, favor de verificar','Error',mb_iconstop);
     end;
  end;     
end;

Pero solo en ocasiones detecta el error. Le adjunto unas imágenes donde en una si me detecta el error por ejemplo si solo pongo el mes. pero si pongo día y mes incompletos y no pongo el año, no me muestra ningun mensaje.

Archivos adjuntos

•  4804_70edc47d1ddbc61f77e71c7c4816ab88ebc0bdb0.jpg   99,42KB   2 descargas
•  4806_30a99d113c2b81acb3b09cdd243f0805b51bf97d.jpg   99,53KB   2 descargas

[El_Chava]

Al fin logre dar con la respuesta del problema al darme cuenta de lo siguiente: lo que hice fue primeramente ver que valor me esta dando el TDateEdit si ponia los valores de esta manera '2_/2_/____' y en el evento onexit puse el siguiente codigo "dia:=formatDateTime('dd',fechaentrega.Date);mes:=formatDateTime('mm',fechaentrega.Date);anio:=formatDateTime('yyyy',fechaentrega.Date); " asi me di cuenta que las variables guardaban dia = 30 mes = 12 anio=1899 investigando resulta ser que es la manera en que tDateEdit lo toma como una fecha NULA 30/12/1899 asi que lo que hice fue poner el siguiente codigo:

delphi

procedure TFrmAgregarDocumento.fechaentregaExit(Sender: TObject);
var
MyDateTimeVar: TDate;
ex:integer;
begin
ex:=0;
try
MyDateTimeVar:= StrToDate(fechaentrega.Text);
except
Application.MessageBox('La fecha de entrega no es valida, favor de verificar','Error',mb_iconstop);
ex:=1;
end;// end del try
case ex of
0:if FormatDateTime('DD/MM/YYYY',fechaentrega.Date) = '30/12/1899' then
begin
Application.MessageBox('La fecha de entrega no es valida, favor de verificar','Error',mb_iconstop);
end;
end;
end;

Asi de esta manera logré que me valide si tengo una fecha valida. Gracias por su ayuda y sugerencias.

Archivos adjuntos

•  4808_ec8c03beb4d9156d311352358dfde21846baf82a.png   63,9KB   0 descargas