%macro LoanTerm(_mqltp,_mqlti,_mqltn,_mqltr,_mqlty  );
/**************************************************************************************/
/*  Name: LoanTerm.sas                      Auth: Phil Rack                           */
/*  Date: 5/16/2007                                  Revd:                            */
/*                                                                                    */
/*  Desc: Calculates the TERM of a loan                                               */
/*                                                                                    */
/*  Where: _mqltp = The loan principal.                                               */
/*         _mqlti = The loan interest rate.                                           */
/*         _mqlty = The loan term in years.  (The Returned Value)                     */
/*         _mqltn = The loan term in months.                                          */
/*         _mqltr = The calculated loan payment.                                      */
/*                                                                                    */
/*  Copyright (C) 2007 by MineQuest, LLC. All Rights Reserved.  www.minequest.com     */
/**************************************************************************************/
 if  (%length(%str(&_mqltp)) eq 0) or (&_mqltp = '.') or
     (%length(%str(&_mqlti)) eq 0) or (&_mqlti = '.') or
     (%length(%str(&_mqltn)) eq 0) or (&_mqltn = '.') or
     (%length(%str(&_mqltr)) eq 0) or (&_mqltr = '.') then
   do;
      &_mqlty = .;
   End; 

  &_mqlty = -(log(1-( &_mqltp * (&_mqlti/100)) / (&_mqltn * &_mqltr)) / 
             (log(1+ &_mqlti / 100 /&_mqltn) * &_mqltn));
             
/******************************************************************************************/
/* LoanTerm is copyright (c) 2007 by MineQuest, LLC. All Rights Reserved.                 */
/* MineQuest, LLC, 1939 Queensbridge Dr., Columbus, OH USA.                               */
/* This Macro Program is proprietary software and is licensed property of MineQuest, LLC. */
/******************************************************************************************/         
             
%mend LoanTerm;