>>854
これでどうでしょう？あんまりいい方法ではないですけど、ちょっとこれしか思いつかなかったので

Function PickDate$(s$, n)
　　If Val(s) > 1900 And Mid(s, 5, 1) = "/" Then s = Mid(s, 6, 5)
　　a = Split(Replace(StrConv(s, vbNarrow), " ", "x"), "/")
　　PickDate = ""
　　If UBound(a) >= n Then
　　　　m = Right(a(n - 1), 2)
　　　　If Val(m) = 0 Then m = Right(m, 1)
　　　　d = Left(a(n), 2)
　　　　d1 = Left(d, 1)
　　　　If Val(d) = Val(d1) Then d = d1
　　　　PickDate = m & "/" & d
　　End If
End Function