|
「JIS8単位コード」が善く解らないのですが?
ASCIIコードと同じなら以下の様で善いのかな?
以下を標準モジュールに記述して下さい
Option Explicit
Public Function JIS8(ByVal strValue As String) As String
Dim lngASCNo As Long
lngASCNo = Asc(Left(strValue, 1))
If Not ((&H20 < lngASCNo And lngASCNo < &H7F) _
Or (&HA1 < lngASCNo And lngASCNo < &HE0)) Then
Exit Function
End If
JIS8 = Right(String(8, "0") & ToSystem(lngASCNo, 2), 8)
End Function
Public Function ToSystem(ByVal lngDecimal As Long, _
ByVal lngSystem As Long) As String
Dim strResult As String
Dim lngRemainder As Long
Dim strRemainder As String
If lngSystem < 2 Then
Exit Function
End If
Do Until lngDecimal = 0
lngRemainder = lngDecimal Mod lngSystem
If lngRemainder > 9 Then
strRemainder = Chr(65 + lngRemainder - 10)
Else
strRemainder = CStr(lngRemainder)
End If
strResult = strRemainder & strResult
lngDecimal = lngDecimal \ lngSystem
Loop
ToSystem = strResult
End Function
TextBoxのイベントの方は、
TextBox2.Text = JIS8(TextBox1.Text)
として下さい
|
|