'必要な変数の宣言
Dim strArray() As String
Dim strTxt As String
'対象の文字列
strTxt = "2007/11/16"
'Splitを利用して対象の文字列を"/"で区切り、配列に代入する
strArray = Split(strTxt, "/")
'"/"で区切れた文字列をつなげる
Textbox.Text = strArray(0) & strArray(1) & strArray(2)
結果:

今回は"/"で区切る。
区切りの数が多くなった場合どうしたらいいのかな?
Forで回せば大丈夫だと思いたい。
とりあえず現在の業務終了予定。
絶対ダメ出し食らうけど、こっちもこっちで言い訳があるんでまぁ五十歩百歩だろうね。
0 件のコメント:
コメントを投稿