日付変数に "MMDDYY"として保存された日付を保存する

-1

MMDDYYという形式の日付を保存する簡単な方法があるかどうかを調べたいと思います。日付変数に "MMDDYY"として保存された日付を保存する

私の方法では、挿入機能を使用して文字列内にスラッシュを2回挿入します。それは必ずしも大きな負担ではありませんが、将来の参照のために知っておくとよいでしょう。以下を参照してください：

Sub Test() 

    Dim strDate As String, iDate As Date 

    strDate = "100416" 
    strDate = Insert(strDate,"/",2) 'MM/DDYY 
    strDate = Insert(strDate,"/",5) 'MM/DD/YY 
    iDate = CDate(strDate) 

End Sub

VBSは非常によくそれをとらないように、明らかに単にMMDDYYとして書式設定された数値は、小数点形式である日付として表示されることがあります。

出典

2016-10-04 K.Dᴀᴠɪs

はVBScriptのにはインサート（）はありませんので、正しい言語を指定してください。 –

これはVBScriptでタグ付けされていますが、コードまたは指定された回答はVBScript構文を使用していません。実際に何を使用していますか？ – Lankymart

VBScriptでは、 'Insert（）'の代わりに 'Mid（）'のようなものを使うか、 'Mid（）'を使う独自のバージョンの 'Insert（）'をビルドします。あなたのコードで 'Insert（）'関数がVB.Netの 'String.Insert（）'メソッドを参照していると思います。 – Lankymart

DateSerial(Y,M,D)を使用することができます。

はこれを試してみてください、これは 100416 --> 10/04/2016返します

strDate = "100416" 
WScript.Echo strDate & " --> " & DateSerial(Mid(strDate,5,2),Mid(strDate,1,2),Mid(strDate,3,2))

出典

2016-10-05 04:02:10 PatricK

VBScriptであるかどうかはまだ分かりませんが、コードではそうではないことが示唆されていますが、これはVBScriptでの有効なアプローチです。 'DateSerial（）'をたくさん使って、とても効果的です。 – Lankymart

プラス1つ。それは 'Debug.Print'でなければならない' WScript.Echo'とは別に、VB6やVBAでも動作します:) – MarkJ

日付変数に "MMDDYY"として保存された日付を保存する

答えて

関連する問題