这是什么算法？ 十进制八进制转换

Question

If （ten >= 64） {
   j = Int(Int(ten / 64) / 8)  ;                //ten除以64的商除以8的商
   x = Int(ten / 64) Mod 8;                  //ten除以64的商对8 取余
   If{ j Mod 8 = 0 Then;
   
      i = (j / 8) * 10 * 10 + x;
   Else
      i = (Int(j / 8) * 10 + j Mod 8) * 10 + x;
        
   
   }
   
   ix = ten Mod 64  ;                 //求ten除以64的余
   iy = Int(ix / 8)  ;                   //求ix除以8的商
   iz = ix Mod 8    ;                 //求ix除以8的余
   
   
   TenToEighteen = i * 100 + iy * 10 + iz  ; }   //把ten转换成八进制数

Answer 1

Function TENTOEIGHT(ByVal TEN As Long) As String
TENTOEIGHT = Oct(TEN)
End Function