VB6

2014年4月14日 at 7:20 PM

VB6.0における前ゼロ埋めと前ゼロ削除の方法



●前0埋め

code = Format(code, String(13, "0"))

 

 

●前0削除

Long型よりも大きい値になりそうであれば、variant型に対しCDec()を使って数字として扱います。

Dim code As Variant
code = CDec(code_T)

 

 

●サンプル(JANなど、8桁 13桁コードの値の前ゼロ処理)

    Dim StrTmp_tmp As String
    Dim StrTmp_tmpL As Variant
    StrTmp_tmpL = CDec(StrTmp)
    
    If Len(StrTmp_tmpL) <> 8 And Len(StrTmp_tmpL) <> 13 Then
        If Len(StrTmp_tmpL) < 8 Then
            StrTmp_tmp = Format(StrTmp_tmpL, String(8, "0"))     ' 前0埋め
        ElseIf Len(StrTmp_tmpL) > 8 And Len(StrTmp_tmpL) < 13 Then
            StrTmp_tmp = Format(StrTmp_tmpL, String(13, "0"))    ' 前0埋め
        Else
            StrTmp_tmp = StrTmp
        End If
    Else
        StrTmp_tmp = StrTmp
    End If

 

Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>



こちらの関連記事もオススメ!