Hola Mystery la funcion
DiasMes me devuelve un entero en el if con que lo comparo ???
Código Delphi
[-]if DiasMes(fecha)then begin
Application.MessageBox('Error en la cantidad de dias.' + #13 + 'Rectifique por favor.','SAF', MB_ICONERROR);
result:=False;
Exit;
end;
Salu2,
Ledian.