Validar dbedit para fecha y hora
 

Muy buenas tardes..
Disculpen si el titulo no es muy explicativo pero no sabia como hacer la consulta..
Mi problema es el siguiente:
Yo configure la propiedad EditMask del Tfield 'FECHA' del Dataset. A la cual le asigne Date (!99/99/00;1;_) para que al ingresar la fecha desde un DBEdit me tome el formato __/__/__ (dd/mm/aa), para que quede mas simple de utilizar. El inconveniente es que, tanto en dia como en mes, me toma cualquier valor y yo necesitaria que en dia no acepte numero mayor a 31 y en mes no acepte numero mayor a 12. Y si es posible, que salte un error al ingresar una valor de fecha incorrecto.
Eh buscado en este foro, pero para fecha no eh encontrado mucho y no es de gran ayuda. Pense en codigo pero la verdad se me complica mucho y me gustaria q me orienten..

Con la 'HORA' me sucede algo parecido, me toman cualquier valor, horarios inexsistentes. Tambien tendria que ver como asignarle un horario minimo y un horario maximo. Ya que lo utilzo para dar turnos, y los horarios de atencion al publico de la institucion son a la mañana y a la tarde, es decir, los horarios de la noche, estan al vicio..
Al utilizar un TDateTimePicker, vienen las propiedades para asignar un valor maximo y uno minimo, pero al utilizar un DBEdit esas propiedades no existen.

Por si sirve de ayuda, estoy trabajando con Delphi 7, SqL manager.
El dataset que utilizo esta ubicado en un Data Module, ya que utilizo muchooosss.
Ambos (FECHA Y HORA) estan en el mismo dataset.

Desde ya muchas gracias. espero haber sido clara y no haber pedido mucho..
Un saludo.-

Hola
Y por que no usar un datetimepicker ?.
Saludos

Primero porque no es muy elegante que digamos..
Segundo porque me es mas facil para hacer comparaciones entre fechas mas adelante, para hacer consultas y demas cosas..
Eso para la FECHA..
En el casoo de la HORA creo que no tendria problema en usar el datetimepicker, pero me gustaria saber si se puede hacer lo que pedi para tener otra opcion. A parte se me complica para guardarlo en la base de datos, ya que me guarda la hora con la fecha y no eh podido solucionar ese problema. En cambio con el dbedit me guarda la hora sola perfectamente..

Igualmente gracias por tu aporte.. Si me puedes ayudar con algo mas, te estare agradecida..

Saludos.-

Hola

Creo que utilizar el DatePicker te puede solucionar varios problemas.... que quizas por lo visto crees que puede ser dificil su manejo ...

por que no indicas con que base trabajas, como tienes definidos tus campos y te ayudamos como debes enviar los datos de un datepicker a tus campos...

Salu2:rolleyes::cool:

Hola Vales08.

Lo que te sugirieron el amigo Caral y seguidamente BlueSteel es la opción más simple y eficiente. Si no te agrada el DateTimePicker, seguramente haya algún otro componente que lo haga de la forma que deseas. No conozco ninguno, y precisamente eso me convence de su existencia. :)

Usando un TDBEdit se me ocurre que una forma de controlar lo ingresado, es verificarlo en el evento OnSetText del TField a evaluar, ya que este evento se produce cuando la propiedad Text recibe un nuevo valor y antes de ser aplicado.

Hay que redactar código y lo hará al salir del DBEdit. Evaluarlo mientras estás escribiendo no lo veo viable ya que por ejemplo es lícito ingresar un día mayor a 30 siempre que no esté seguido del mes de abril, lo mismo un día 29 si no esta seguido del mes de enero y de un año no bisiesto. Y como el programa no puede adivinar que mes y año serán ingresados seguidamente...

Un ejemplo como para hacercarte una idea:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  DataSet.FieldByName('FECHA').OnSetText:= CampoSetText;
  DataSet.FieldByName('FECHA').EditMask:= '!99/99/0000;1;_'; 
end;

procedure TForm1.CampoSetText(Sender: TField; const Text: String);
{$J+}
const
   DiaM :array[1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
{$J-}
var
  dd,mm,yy: Integer;
begin
  if (Trim(Copy(Text,1,2))='')or(Trim(Copy(Text,4,2))='')or(Trim(Copy(Text,7,4))='') then
    raise Exception.Create('Formato de fecha inválido');
  TryStrToInt(Copy(Text,7,4),yy);
  TryStrToInt(Copy(Text,4,2),mm);
  TryStrToInt(Copy(Text,1,2),dd);
  if ((yy mod 4=0)and(yy mod 100<>0))or(yy mod 400=0) then inc(DiaM[2]);
  if not (mm in [1..12]) then
    raise Exception.Create('Mes erróneo');
  if not (dd in [1..DiaM[mm]]) then
    raise Exception.Create('Día erróneo');
end;
...

Saludos.