' convert a positive number to any base' BASE can be in the range 2-36Function Dec2Any(ByVal number As Long, ByVal base As Short) As String Dim index As Integer Dim digitValue As Integer Dim res As New System.Text.StringBuilder() Const digits As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ' check base and value If number < 0 Then Throw New ArgumentException _ ("The value to be converted must be positive") ElseIf base < 2 Or base > 36 Then Throw New ArgumentException("Base must be in range 2-36") End If ' convert to the other base Do While number digitValue = number Mod base number = number base ' append this digit in front of current result res.Insert(0, digits.Chars(digitValue)) Loop Return res.ToStringEnd Function
4 Areas of Your Company Where Your Audio Really Matters
February 2, 2023
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a
