Incrementing time represented as NBCD format

[yetifoot]

Very interesting, I'm still trying to understand exactly how it works, but I think I'm getting there.

I managed to spot a couple of reductions:

Code:

function inc_nbcd_timestamp ( byval t as integer ) as integer

  dim as integer t1
  
    t1 = t + &HA6A7
      
    function =  t1 - (((((t EQV t1) AND &H11110) shr 4) * &HF) AND &HA6A6)
    
end function