日付を内部データに変換したい。（2021/01/15→44211）

Question

お世話になっております。
初心者の質問失礼します。

今現在

    PathFileSheet = "'" & strPath & "[" & strFileName & "]" & SheetNames & "'!R"
    Dat(1) = ExecuteExcel4Macro(PathFileSheet & 5 & "C" & 5) '実施日

を

    Dim wb As Workbook
    strTemp = strPath & strFileName
    Set wb = Workbooks.Open(strTemp)
    Dat(1) = wb.Sheets(SheetNames).Cells(5, 5).Value

と改修しようとしております。

それで実際にやってみると
上部では　44211
下部では　2021/01/15
となっている事がデバッガで分かりました。

多分excelの内部データと表示データで値が違うのだと予想されるので
合わせたいと思っております。

2021/01/15を44211に変換するような関数はなんとググれば良いのかご助力頂けないでしょうか？
vba dateなどググってみたのですが見つからなかったのでググるヒントでも頂けないでしょうか？

上記私が頓珍漢な勘違いをしているようでしたらご指摘下さい。

大変初心者の質問で申し訳ないのですがコメント頂ければ幸いです。

Answer 1

DATEVALUE関数を使ってください。
"Excel 日付 数値" で検索すると、それっぽい記事が見つかります。

Answer 2

DatをLongで宣言してみてはいかがでしょう。

Dim Dat() As Long

Answer 3

CLng(wb.Sheets(SheetNames).Cells(5, 5).Value) とかですかね
本当にそっちに合わせに行くのが正解かどうかはわかりませんが。

Comments

[jinoji]

旧コードから置き換えるときに、なるべく元の挙動に合わせようとするのは、正しいとは思いますが、
最終的にはその値は結果のExcelシートに「 2021/01/15 」 として表示されるのではないか、と想像します。（出力先のセルの書式によって）
もしそうであれば、ここでLong型に変換する意味は薄いように思われます。

[ma2hiro]

jinojiさん
コメントありがとうございます。

＞本当にそっちに合わせに行くのが正解かどうかはわかりませんが
仰るとおりです……
もうちょっとしっかりと見てみます。

＞ここでLong型に変換する意味は薄いように思われます。
多分内部でまたDate型に変換していると予想……
しっかりと見てみます……

コメントありがとうございました。