匿名 さん:

「変数には初期値がある」というのがこの動画で言いたかったことです。

ご質問の件の背景は、エクセルシートで0を日付解釈したときどうなるかという話と日付型変数の初期値をどう解釈すべきなのかという話とがごちゃまぜになっていて、すっきりした説明をするのは大変です。
一方、日付型の変数を初期値のまま運用することは実務上まずないです。

なのでできれば説明に手間をかけたくないし、かけても小さな知識欲は満たされるけどそれ以上のメリットは別になさそうなので、ここでは、深く扱わずにスルーしたいです。

2014/10/14 05:49

追記です。

エクセルとVBAでは、日付の計算をするときの1900年のうるう年の処理に違いがあります。
以下のサンプルコードが参考になるかと。

Sub hoge1()
    Columns("B:C").ColumnWidth = 14
    Columns("B:C").NumberFormatLocal = "yyyy/m/d h:mm;@"
    Range("A1").Value = 0
    Range("A2").Value = 1
    Range("A3").Value = 2
    Range("B1").Formula = "=A1"
    Range("B2").Formula = "=A2"
    Range("B3").Formula = "=A3"

    Dim d As Date
    Dim c As Long
    For c = 1 To 3
        Range("A" & c).Value = c - 1
        Range("B" & c).Formula = "=A" & c
        With Range("C" & c)
            .Value = DateAdd("d", c - 1, d)
            Debug.Print c & "行目"
            Debug.Print vbTab & "excel value: " & .Offset(, -1).Value
            Debug.Print vbTab & "excel text : " & .Offset(, -1).Text
            Debug.Print vbTab & "dateadd    : " & DateAdd("d", c - 1, d)
            Debug.Print vbTab & "vba .value : " & .Value
            Debug.Print vbTab & "vba .text  : " & .Text
            Debug.Print vbNewLine
        End With
    Next
    For c = 60 To 62
        Range("A" & c).Value = c - 1
        Range("B" & c).Formula = "=A" & c
        With Range("C" & c)
            .Value = DateAdd("d", c - 1, d)
            Debug.Print c & "行目"
            Debug.Print vbTab & "excel value: " & .Offset(, -1).Value
            Debug.Print vbTab & "excel text : " & .Offset(, -1).Text
            Debug.Print vbTab & "dateadd    : " & DateAdd("d", c - 1, d)
            Debug.Print vbTab & "vba .value : " & .Value
            Debug.Print vbTab & "vba .text  : " & .Text
            Debug.Print vbNewLine
        End With
    Next
End Sub

あと、匿名さんならご存知と思いますが、エクセルもVBAも、日付の処理は内部的には小数で行っています。
整数部分が基準日からの日数1日分を表します。

これで、あとは匿名さんならご理解いただけるかと。

2014/10/14 14:59