VB6.0 からの文字列関数の使用例(VB6.0) - VBレスキュー(花ちゃん)

Private Sub Command1_Click()
'Filter関数の使用例
　　Dim ItemCode As Variant
　　Dim ItemA　　As Variant
　　Dim i　　　　As Long
　　ItemCode = Array("A123", "B001", "A001", "C003", "A002", "B003", "A010")
　　'Filter(1次元配列の文字列,検索する文字列,[引数含有の有無],[比較のモード])
　　ItemA = Filter(ItemCode, "A", True, vbTextCompare)
　　For i = LBound(ItemA) To UBound(ItemA)
　　　　Debug.Print ItemA(i)
　　Next i
　　'結果 A123
　　'　　 A001
　　'　　 A002
　　'　　 A010
End Sub

２．FormatCurrency 関数の使用例

Private Sub Command2_Click()
'FormatCurrency関数の使用例
　　'FormatCurrency(書式を変換する式,[小数点以下の表示桁数], _
　　　　　　　　[小数点の左側のゼロ表示],[負の値のかっこ表示],[桁区切り記号])
　　Debug.Print FormatCurrency(12300)
　　'結果　\12,300
End Sub

３．FormatDateTime 関数の使用例

Private Sub Command3_Click()
'FormatDateTime関数の使用例
　　'FormatDateTime(書式を変換する日付式,[日付/時刻形式を表す定数])
　　Debug.Print FormatDateTime(Date, vbLongDate)
　　'結果　　2003年3月7日
End Sub

４．FormatNumber 関数の使用例

Private Sub Command4_Click()
'FormatNumber関数の使用例
　　'FormatNumber(書式を変換する式,[小数点以下の表示桁数], _
　　　　　　　　[小数点の左側のゼロ表示],[負の値のかっこ表示],[桁区切り記号])
　　Debug.Print FormatNumber(12300)
　　Debug.Print FormatNumber(-12300, 0, vbFalse, vbTrue, vbUseDefault)
　　'結果　12,300.00
　　'　　　(12,300)
End Sub

５．FormatPercent 関数の使用例

Private Sub Command5_Click()
'FormatPercent関数の使用例
　　'FormatPercent(書式を変換する式,[小数点以下の表示桁数], _
　　　　　　　　[小数点の左側のゼロ表示],[負の値のかっこ表示],[桁区切り記号])
　　Debug.Print FormatPercent(0.25, 1)
　　'結果　25.0%
End Sub

６．InStrRev 関数の使用例

Private Sub Command6_Click()
'InStrRev関数の使用例
　　'InStrRev(検索元文字列, 検索文字, [開始位置], [比較のモード])
　　Dim myString As String
　　myString = "あいうえおあいうえお"
　　Debug.Print InStrRev(myString, "お", -1, vbTextCompare)
　　'結果　　　10
End Sub

７．Join 関数の使用例

Private Sub Command7_Click()
'Join関数の使用例
　　Dim AddDat(2) As String
　　AddDat(0) = "527-1234"　　　　　　　'Text1.Text
　　AddDat(1) = "滋賀県八日市市"　　　　'Text2.Text
　　AddDat(2) = "八日市PCサービス"　　'Text3.Text
　　'Join(結合する文字列を含む1次元配列, [文字列を区切るのに使用する文字])
　　Debug.Print Join(AddDat, ",")
　　Debug.Print Join(AddDat)
　　'結果　527-1234,滋賀県八日市市,八日市PCサービス
　　'　　　527-1234 滋賀県八日市市八日市PCサービス
End Sub

８．MonthName 関数の使用例

Private Sub Command8_Click()
'MonthName関数の使用例
　　'MonthName(月を示す数値,[月名の省略有無])
　　Debug.Print MonthName(Month(Date), False)
　　'結果　　3月
End Sub

９．Replace 関数の使用例

Private Sub Command9_Click()
'Replace関数の使用例
　　'Replace(置換する元の文字列,検索する文字列,置換する文字列, _
　　　　　　　　　　[検索開始位置],[置換する文字列数],[比較のモード])
　　Dim myString As String
　　myString = "527-1234,滋賀県八日市市,八日市PCサービス"
　　Debug.Print Replace(myString, ",", vbTab)
　　'結果　　527-1234　　滋賀県八日市市　八日市PCサービス
End Sub

10．Round 関数の使用例

Private Sub Command10_Click()
'Round関数の使用例
　　'Round(丸めを行う数式 ,[丸めを行う小数点以下の桁数])
　　Debug.Print Round(123.45, 1)
　　Debug.Print Round(123.55, 1)
　　'結果　 123.4
　　'　　　 123.6
End Sub

11．Split 関数の使用例

Private Sub Command11_Click()
'Split関数の使用例
　　Dim AddDat　 As Variant
　　Dim myString As String
　　Dim i　　　　As Long
　　myString = "527-1234,滋賀県八日市市,八日市PCサービス"
　　'Split(文字列と区切り文字を含んだ文字列, _
　　　　　　　　　　[区切りを識別する文字],[配列の要素数],[比較のモード])
　　AddDat = Split(myString, ",")
　　For i = LBound(AddDat) To UBound(AddDat)
　　　　Debug.Print AddDat(i)
　　Next i
　　'結果　527-1234
　　'　　　滋賀県八日市市
　　'　　　八日市PCサービス
End Sub

12．StrReverse 関数の使用例

Private Sub Command12_Click()
'StrReverse関数の使用例
　　'StrReverse(文字の並びを逆にする文字列)
　　Debug.Print StrReverse("あいうえお")
　　'結果　　おえういあ
End Sub

13．WeekdayName 関数の使用例

Private Sub Command13_Click()
'WeekdayName関数の使用例
　　'WeekdayName(曜日を示す数値,[曜日名の省略の有無], [曜日の最初の日])
　　Debug.Print WeekdayName(Weekday(Date))
　　'結果　金曜日
End Sub

14．

15．

検索キーワード及びサンプルコードの別名(機能名)