by Ahamed Saifudeen (11 Submissions)
Category: Math/Dates
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 7th December 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Converting Decimal Numbers to Octal
VBcoders
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