Ver Mensaje Individual
  #7  
Antiguo 30-04-2010
Ledian_Fdez Ledian_Fdez is offline
Miembro
 
Registrado: jun 2006
Ubicación: Ciudad Habana, Cuba
Posts: 242
Reputación: 19
Ledian_Fdez Va por buen camino
Exclamation Mira esto !!

Hola Mystery la funcion DiasMes me devuelve un entero en el if con que lo comparo ???

Código Delphi [-]
if DiasMes(fecha)then  //devuelve un Integer no Boolean
  begin
    Application.MessageBox('Error en la cantidad de dias.' + #13 + 'Rectifique por favor.','SAF', MB_ICONERROR);
    result:=False;
    Exit;
  end;

Salu2,
Ledian.

Última edición por Ledian_Fdez fecha: 30-04-2010 a las 16:30:57.
Responder Con Cita