Public Function BINTODEC16(ByVal BIN As String) As Long '16位二進位轉換十進位Dim i As Integer BINTODEC16 = 0 If Mid(BIN, 1, 1) = 1 Then For ...
確定! 回上一頁