|
▼Asaki さん
本当にごめんなさい!!
mydateの入力でミスがありました!
Dim str1 As String, str2 As String '置換に使用
Dim str3 As String, result1 As String
Dim result2 As String
'tuki と hi には予めDATEから月と日にちが入っています。
'検索対象文字列
str1 = tuki
'検索文字列
str2 = "月"
'置換文字列
str3 = "/"
result1 = Replace(str1, str2, str3)
str1 = hi
str2 = "日"
str3 = " "
result2 = Replace(str1, str2, str3)
'文字列の整形
'文字列の末尾のスペースを削除月と日の連結
Dim imstr As String
imstr = result1 & result2
mydate = RTrim(imstr)
以上のコードで、最終行の Rtrim を付け忘れていました・・・
そのために日付の後ろにスペースが・・・メッセージボックスで
表示しているときには全然気づかなくて・・・
本当にごめんなさい。そして親切に教えていただいて感謝しています。
|
|