|
la fecha q extraje de month calendar la asigno a un edit asi:
procedure TFORMATO_SEM.calendarioClick(Sender: TObject);
begin
f_i.Text:=FormatDateTime('dd/mm/yyyy',calendario.Date);
end;
despues en la edit valido que la fecha que se esta eligiendo sea en un dia lunes, por que asi lo requiero, de la siguiente forma:
procedure TFORMATO_SEM.F_IChange(Sender: TObject);
var
s,d,m,a:string;
fecha,mifecha:TDate;//estas variables son para otras operaciones
f,fm,n:integer;//estas variables son p/ otrs operaciones
begin
s:=FormatDateTime('dddd',calendario.Date);
if (s<>'Lunes')THEN
showmessage('Por favor eliga una fecha con dia lunes ')
mientras este manejando fechas de el mismo mes no hay problema solo saca el mensajito, pero a la hora de cambiar de mes obvio recibe eso y aparte de que me saca el mensaje de que el dia no es lunes saca el mensaje de la excepcion supongo por que no solo se toma el valor de la fecha sino tambien el paso del mes, asi que deberia cambiarlo a otro evento o que hago?
|