• Home
 · 
• Math/Dates
 · 
• Converting Decimal Numbers to Octal

Converting Decimal Numbers to Octal

Converting Decimal Numbers to Octal

Rate Converting Decimal Numbers to Octal

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_Click()
n = InputBox("Enter an Decimal Number:")
b = Octal_Function(n)
MsgBox b
End Sub

Function Octal_Function(n As Integer)
Dim s As String, i As Integer
For i = 0 To 7
s = (n Mod 8) & s
t = n / 8
n = Int(t)
Next
Octal_Function = s
End Function