帮忙写一个函数：读取当前系统时间再写入二进制文件中。

[zzz22333]

如题

用模块写个函数，读取系统的时间，日期，再写入二进制文件中。

小弟没学过有关二进制的问题，还请各位赐教，谢谢了，如果能顺带讲解一下更是感激。

[ZOU_SEAFARER]

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub InputDate(dtmDate As Date, FileName As String)
Dim bytA(7) As Byte
Dim dtmDateA As Date
dtmDateA = dtmDate
Call CopyMemory(bytA(0), dtmDateA, 8)
Open FileName For Binary As #1
Put #1, , bytA
Close #1

End Sub

Private Sub Command1_Click()
Call InputDate(Now, "Now.bat")
End Sub

[zzz22333]

感觉我给的分少了，讲解真细

[CathySun118]

Private Sub SaveNowTimeToFile(ByVal fname As String)
Open fname For Binary As #1
Put #1, format(Now,"yyyy-mm-dd hh:mn:ss")
Close #1
End Sub

[jinhengxyz]

rainstormmaster(暴风雨 v2.0) 的就可以啊。。。呵呵 api都出来咯 高

[Rose2007]

简单的 暴风雨的就可以
作为学习 ZOU_SEAFARER的也不错

[zzz22333]

学习

[zzz22333]

CopyMemory 这个API在这里起的什么作用？

[zzz22333]

还有就是Now.bat是存在目录下的文件吗？

[Rose2007]

Call CopyMemory(bytA(0), dtmDateA, 8)

从变量dtmDateA中取8个字节放入bytA以下标为0开始的数组中

[Rose2007]

还有就是Now.bat是存在目录下的文件吗？
-----------------------------------
是他定义的文件名
要传全路径打开文件

[zzz22333]

写不进去啊

[Rose2007]

我测试可以

不过 .BAT 是批处理文件 可以改 .TXT

[zzz22333]

把你测试的发上来，我的不好用

[zzz22333]

我测试也没有错误，就是怎么能看出来已经插进去了，我看文件大小都是0KB

[Rose2007]

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub InputDate(dtmDate As Date, FileName As String)
Dim bytA(7) As Byte
Dim dtmDateA As Date
dtmDateA = dtmDate
Call CopyMemory(bytA(0), dtmDateA, 8)
Open FileName For Binary As #1
Put #1, , bytA
Close #1

End Sub

Private Sub Command1_Click()
Call InputDate(Now, "e:\Now.txt")
End Sub


Private Sub SaveTimeToFile(ByVal mfile As String)
Open mfile For Binary As #1
Put #1, , Now
Close #1
End Sub

Private Sub Command2_Click()
Call SaveTimeToFile("e:\Now1.txt")
End Sub


俩个按纽 分别是我提到的那俩种方法

[Rose2007]

结果为 1KB文件 因为是二进制写入 看不到具体数据 显示乱码

[zzz22333]

写进去的是乱码吗？

[zzz22333]

哦了

[Rose2007]

写进去的是数据 只是直接打开看到乱码 用2进制方法读出 就是正确数据了

[zzz22333]

楼上的怎么联系？