为什么Print #1, Data失败？

Question

我需要把系统当前年月日日期写入到C盘下的B.TXT文件中，所以用了以下代码
   Open "C:\B.txt" For Output As #1
   Print #1, Data
   Close #1
可是上面的代码执行完后去C盘下打开B.TXT，结果里面只有个空白行，怎么回事？
求高手指点！

Answer 1

本帖最后由 bcrun 于 2012-06-21 10:29:24 编辑

  

Answer 2

Open "C:\B.txt" For Output As #1
    Print #1, Date
Close #1

Answer 3

本帖最后由 bcrun 于 2012-06-21 10:28:43 编辑

  

Answer 4

嗯，有用！你好人送到西吧，怎么在此时输出时间上加上31天或183天或者365天，再另起一行写入B.TXT。

Answer 5

DateAdd(interval,   number,   date) interval   必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。   
number   必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。   
date   必选。Variant   或要添加   interval   的表示日期的文字。     EG: 
DateAdd   函数不会返回无效日期。如下示例将   95   年   1   月   31   日加上一个月：   NewDate   =   DateAdd( "m ",   1,   "31-Jan-95 ") 结果：NewDate   为   96   年   2   月   29   换行直接print就可以了