Validar dbedit para fecha y hora

[Vales08]

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.-

[[BlueSteel]]

Empezado por Vales08

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

[ecfisa]

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.