Function to get the date of last friday of the current month

 [+] public STRING LastFridayOfTheCurrentMonth()
  [ ]  // ==========================================================
  [+]  // FUNCTION: LastFridayOfTheCurrentMonth()
   [ ] //
   [ ] // DESCRIPTION:
   [ ] // This function will return the last friday's date of the current month
  [ ] // ==========================================================
  [ ]
  [-] // Variable Declarations
   [ ] INTEGER iDifference,iLastFridayOfTheMonth,iDayIncreament,iFridayOfTheWeek,i
   [ ] STRING sDay,sDate,sToday
   [ ] DATETIME dtDateTime,newDateTime
   [ ]
  [+] do
   [ ] dtDateTime= GetDateTime ()
   [ ]
   [ ] sDay = FormatDateTime(GetDateTime(), "w")  // Sun, Mon, Tue, Wed, Thu, Fri, or Sat
   [ ]                     //  1       2      3      4      5       6      7
   [ ] iDifference = 6 - Val(sDay)
   [ ]
   [ ] sToday = FormatDateTime(GetDateTime(),"d")
   [ ] // print("sToday = {sToday}")
   [ ]
   [ ]
   [ ] iFridayOfTheWeek = Val(sToday) + iDifference
   [ ] // print("iFridayOfTheWeek = {iFridayOfTheWeek}")
   [+] if(iFridayOfTheWeek > 31)
    [ ] iFridayOfTheWeek = Val(sToday) - Val(sDay)-1
    [ ]
   [ ]
   [ ] iLastFridayOfTheMonth=iFridayOfTheWeek
   [ ] // print("iLastFridayOfTheMonth = {iLastFridayOfTheMonth}")
   [ ]
   [-] for(i=iLastFridayOfTheMonth;i<31;i++)
    [ ] iLastFridayOfTheMonth=iLastFridayOfTheMonth+7
    [+] if(iLastFridayOfTheMonth>31)
     [ ] iLastFridayOfTheMonth=iLastFridayOfTheMonth-7
     [ ] // print("Last friday {iLastFridayOfTheMonth}")
     [ ] break
    [+] else
     [ ] // print(iLastFridayOfTheMonth)
   [ ]
   [ ] iDayIncreament=iLastFridayOfTheMonth-Val(sToday)
   [ ] newDateTime = AddDateTime (dtDateTime, iDayIncreament)
   [ ] sDate = FormatDateTime (newDateTime, "m/d/yyyy")
   [ ]
  [+] except
   [ ] ExceptLog()
   [ ]
  [ ]
  [ ] return sDate
  [ ]