年月日計算値（シリアル値）を取得する　DateSerial関数



DateSerial(year, month, day)
シリアル値とは計算処理出来る年月日時の数値です。


例）セルに日付を入力する 
Sub SampleDateSerial()
    'YYYY/MM/DD表記
    Range("A1") = DateSerial(2013, 4, 15)
    
    'YYYY/MM/DD表記（年月日のデータから)
    Dim Da As Long
    Da = 20130401
    
    Range("A2") = DateSerial(Left(Da, 4), Mid(Da, 5, 2), Right(Da, 2))
End Sub
ラベル: ,