'***************************************************************************************************
' データ型変換のサンプル
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
Option Explicit
Private Const g_cnsHiduke As String = "平成28年10月1日" ' 元の日付
'***************************************************************************************************
' 元の日付に1を加える①
'***************************************************************************************************
Sub TEST1()
'-----------------------------------------------------------------------------------------------
MsgBox g_cnsHiduke + 1
End Sub
'***************************************************************************************************
' 元の日付に1を加える②
'***************************************************************************************************
Sub TEST2()
'-----------------------------------------------------------------------------------------------
MsgBox CDate(g_cnsHiduke) + 1
End Sub
'***************************************************************************************************
' 元の日付に1を加える③
'***************************************************************************************************
Sub TEST3()
'-----------------------------------------------------------------------------------------------
Dim HIDUKE As Date
HIDUKE = g_cnsHiduke
MsgBox HIDUKE + 1
End Sub
'------------------------------------------<< End of Source >>--------------------------------------