日付の変換

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

No.2 ベストアンサー 回答者： BlueRay 回答日時： 2002/08/12 15:01

原型の”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

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

参考になれば幸いです。

この回答へのお礼

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

お礼日時：2002/08/12 15:24

No.1 回答者： ats8181oyaji 回答日時： 2002/08/12 14:02

こんにちは

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

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