- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
502 :デフォルトの名無しさん[sage]:2015/10/22(木) 07:20:30.02 ID:ZDrmESzi - 年度を年に変換すればいいのか?まあ業界や業務によっては4月で年度が変わるとは限らないけど
p = "\\2015年度\10月22日\xxx.xls" y = Val(Mid(p, 3)) m = Val(Mid(p, 10)) d = Val(Mid(p, InStr(p, "月") + 1)) If m <= 3 Then y = y + 1 n = DateSerial(y, m, d)
|
|