Outlook Visual Basic for Applicationsで時間が上手く取得できない

Question

お世話になります。

表題の件なのですが、現在日付を以下のようにファイルに書き出しています。
（※OutlookのVBAです。）

Private Function MakeFile()

    '任意ファイルに時間を書き出す
    Dim now As Date
    now = Date
    
    Open FILE_NAME For Append As #1
        Print #1, Format(now, "yyyy/mm/dd hh:mm:ss")
    Close #1
    
End Function

ファイルが生成されて、そのファイルに時間が記述されているのは確認できるのですが、
以下のように時間以降が0になってしまいます。

2021/01/13 00:00:00

これはOutlookの設定に問題がるのでしょうか。ソースには何ら問題がないように感じるのですが。

ご教授の程よ路側お願い致します。

Answer 1

VBAで現在日付と現在時刻を取得する（Date、Time、Now） ｜ Excel作業をVBAで効率化

現在日時は、Now ですね

Answer 2

これで時刻も出力されます。

Private Sub MakeFile()
    
    Dim fn  As Integer
    
    fn = FreeFile
    
    Open FILE_NAME For Append As #fn
    Print #fn, Format(Now, "yyyy/mm/dd hh:mm:ss")
    Close #fn
    
End Sub

変更点
・戻り値を返さないため Function から Sub に変更
・ファイル番号を FreeFile 関数で取得するよう変更
・変数 now を削除
・現在の日時を Now 関数で取得するよう変更
・インデントを調整

Comments

[Chandler_Bing]

ありがとうございます。
大変助かりました。

[Chandler_Bing]

また、追加で申し訳ないのですが、
私の方法で書き込むと

2回日付を書き込んでいて、以下のような値になります。

なぜでしょうか。もし分かりましたら、ご教授お願いします。

2021/01/14 10:42:26
2021/01/14 10:42:26

[退会済みユーザー]

MakeFile() を2回呼んでたりしませんか？