CTUD, есть в Standard.lib, считает в оба направления. Раз уж вы программно считаете, просто переключайте направление счета.