文字列を日付型に変換、Cdateへの値の渡し方いろいろ？

今回は、
Cdate関数を利用して、文字列を日付型に変換してみます。
そんな記事です。

メルマガ発行内容

こんにちは、三流プログラマーＫｅｎ３です。

/*
 * １．今回のキッカケ
*/

よく、文字列８桁で日付のデータがあって、
これを日付型に代入したい、、ってことありますよね。
"20000804"を日付型に代入したい。

で、関数は、何を使えば、、と探すと、
Cdate(日付文字列) かDateSerial(year, month, day)
あと？（何かあるかなぁ？）

ここで、普通に、
strMOTO = "20000804"
基準日 = Cdate(strMOTO)
とやると、エラーになります。
Cdate("2000-08-04") やCdate("2000/08/04")
だと通ります。
う〜ん、日付をあらわす文字列にしないといけないんだぁ。。。

まぁ、いいやで、

/*
 * ２．いろいろあるけど、自分にあった方法で、できればＯＫかなぁ。
*/

有名なMid関数を使って、やる方法を使っていました。

Sub test()
  Dim strMOTO As String
  Dim strWork As String
  Dim 基準日  As Date

  strMOTO = "20000804"
  strWork = Mid(strMOTO, 1, 4) & "/" & Mid(strMOTO, 5, 2) & "/" & Mid(strMOTO, 7, 2)
  基準日 = CDate(strWork)

  MsgBox 基準日
End Sub

ここで終ると、なんだ、知ってるよ、、
なので、
今日、拾ってきた（パクッタ）別の方法、
format関数を使って、下記みたいに書くこともできます
Sub test()

    Dim strMOTO As String
    Dim 基準日  As Date
    
    strMOTO = "20000807"
    基準日 = CDate(Format(strMOTO, "@@@@/@@/@@"))

    MsgBox 基準日

End Sub

まとめて、１行で書きましたが、
    基準日 = CDate(Format(strMOTO, "@@@@/@@/@@"))
ポイントは、                       /^^^^^^^^^^^
変換書式に＠を使うことです。
これで、１文字をあらわしてくれます。
＊応用で、 ５桁を4-1桁に変換は、
  MsgBox Format("ABCDE", "@@@@-@")
　とやって見て下さい。どうなるでしょうか？

話をもっとそらすと、
MsgBox Format("19990503", "YYYY/MM/DD")
はエラーになります。。。
人間様は、認識してるんだけど。。
~~~~~~~~~~
まぁ、使えれば、どちらでもいいや的な話でした。
＊個人的には、ｍｉｄで書くほうが好きかなぁ。

/*
 * ３．関数は組み合わせって感じかなぁ
*/

a = Cdate("20030512")
で実行時エラー型が一致しませんが発生。
そんな時は、型をそろえてやるか、、と気軽に考えて、
Mid関数で切り出す、Format関数を使い形式をそろえる。

関数は組み合わせかなぁとフト思いました。

/*
 * ４．おわりの挨拶
*/

今回は、
CDateで変換、フォーマットを合わせる方法いろいろ
の話でした。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター リンクや広告、質問送信など

三流解説を読んでいただき、どうもです。ここから下は、三流君宛のメッセージ送信や 三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、※質問や感想は、気軽に送ってくださいね。