Class Utils.Time [ Abstract, Final ]
{

/// <example>
/// d ##class(Utils.Time).Test()
/// </example>
ClassMethod Test()
{
  w #
  f count=1,1,1,2,3,5,10,100,1000,10000 {
    s start = $ZH
    f i=1:1:count s tSC = ..NoTry()
    s timeNoTry = $ZH - start

    s start = $ZH
    f i=1:1:count s tSC = ..Try()
    s timeTry = $ZH - start

    w "Итераций: ", count,!,
      "Время ""No Try"":", ?17, timeNoTry,!,
      "Время ""Try"":", ?17, timeTry,!,
      """Try"" заняло ", $FN(100*timeTry/timeNoTry,"",2), "% времени ""No Try""",!!
  }
}

ClassMethod NoTry() As %Status [ Internal, Private ]
{
  s tSC = $$$OK, $ZT = "Trap"
  s a = 1
  s b = $R(1000000)
  ;s c = 5/0
Exit
  q tSC
Trap
  s $ZT = ""
  s tSC = $$$ERROR($$$CacheError,$ZE)
  k %objlasterror
  s $ZE = "", $EC = ""
  g Exit
}

ClassMethod Try() As %Status [ Internal, Private ]
{
  s tSC = $$$OK
  try {
    s a = 1
    s b = $R(1000000)
    ;s c = 5/0
  } catch ex {
    ;s tSC = $$$ERROR($$$CacheError, $ZE)
    ;s tSC = $$$ERROR($$$CacheError, ex.AsSystemError())
    s tSC = ex.AsStatus()
    k %objlasterror
    s $ZE = "", $EC = ""
  }
  q tSC
}

}

Class Utils.Time2 [ Abstract, Final ]
{

/// <example>
/// d ##class(Utils.Time2).Test()
/// </example>
ClassMethod Test()
{
  w #
  f count=1,1,1,2,3,5,10,100,1000,10000 {
    s start = $ZH
    f i=1:1:count s tSC = ..NoTry()
    s timeNoTry = $ZH - start

    s start = $ZH
    f i=1:1:count s tSC = ..Try()
    s timeTry = $ZH - start

    w "Итераций: ",count,!,
      "Время ""No Try"":",?17,timeNoTry,!,
      "Время ""Try"":",?17,timeTry,!,
      """Try"" заняло ",$FN(100*timeTry/timeNoTry,"",2),"% времени ""No Try""",!!
  }
}

ClassMethod NoTry() As %Status [ Internal, Private ]
{
  s a = 1
  s b = $R(1000000)
  q $$$OK
}

ClassMethod Try() As %Status [ Internal, Private ]
{
  try {
    s a = 1
    s b = $R(1000000)
  } catch {}
  q $$$OK
}

}