日付の変換

質問

VB6.0を使用しています。
例えば、020810という日付を20020810と、980810という日付は19989810に変換したいのですが、良い方法が思いつきません。
どなたか助けて下さい。
よろしくお願い致します。

回答No.2

BlueRay · ベストアンサー

原型の”020810”を保たなくてはいけないのでしょうか？

原型から形を変えても良いなら、
uDate = "020810"
uy = Left(uDate, 2)　　'02
um = Mid(Udate, 3, 2)　　'08
ud = Right(uDate, 2)　　'10
sDate = uy & "/" & um & "/" & ud　　'02/08/10にする。
wDate = Format(sDate, "yyyymmdd")　　'20020810

原型の形を変えないでなら、
uDate = "020810"
wDate = Format(Format(uDate, "00/00/00"), "yyyymmdd")　　'20020810

※但し、日付６桁でないといけない。

参考になれば幸いです。

お礼

助かりました。本当にありがとうございました。

回答No.1

ats8181oyaji

こんにちは

そのシステム(プログラム)は１００年以上の未来又は過去の
日付を扱いますか？ようするに1800年とか2100とか。

もし扱わないなら、１９００年から１００年間のみ使用するという前提で
頭２桁が９０よりも大きい場合は　"19"　を
異なる場合は　"20"　を
付ければOKです。