[求助]

wuheng

求助

各位大侠，我想做一个日期限定，相当于限定试用天数的。

我的想法是，1、当第一次安装数据库，如：测试.mdb时，读取当时的日期，应该是用到DateCreated属性吧？我看了一下帮助里的用法如下：

1. Sub ShowFileInfo(filespec)
   
   
2.     Dim fs, f, s
   
   
3.     Set fs = CreateObject("Scripting.FileSystemObject")
   
   
4.     Set f = fs.GetFile(filespec)
   
   
5.     s = "Created: " & [b]f.DateCreated[/b]
   
   
6.     MsgBox s
   
   
7. End Sub
   
   

复制代码

2、最后一次访问修改此数据库时，读取此时的日期，应该是用到DateLastModified属性吧？

帮助里的例子如下

1. Sub ShowFileAccessInfo(filespec)
   
   
2.     Dim fs, f, s
   
   
3.     Set fs = CreateObject("Scripting.FileSystemObject")
   
   
4.     Set f = fs.GetFile(filespec)
   
   
5.     s = UCase(filespec) & vbCrLf
   
   
6.     s = s & "Created: " & f.DateCreated & vbCrLf
   
   
7.     s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
   
   
8.     s = s & "Last Modified: " & [b]f.DateLastModified[/b]  
   
   
9.     MsgBox s, 0, "File Access Info"
   
   
10. End Sub
    
    
11. 我是想通过这两个属性，取这段时间的相隔天数做为试用天数，不知是否可行？同时我对这个两个

复制代码

1. 属性的在帮助里的例子看不明白，不知怎样去用它，望各位大侠在百忙之中能给予解说。谢谢

复制代码

1.                                           wuheng敬上

复制代码

gyamd

对不住啊，看是看了，可我不会，帮不了你。

wuheng

我的思路：第一次安装数据库时，用DateCreated取当天的日期赋值给times1,最后一次修改访问此数据库时用DateLastModified  也取当天的日期赋给times2,然后用DateDiff()求times1和times2的时间间隔数目，用此间隔数目做为试用天数，但却苦于DateCreated和DateLastModified  属性不知道怎么用，应该用在哪些地方？[em06]，请各位大侠能给予指点！谢谢！                                                                                     wuheng敬上

情比金坚

http://www.office-cn.net/Article/Class5/Class27/200408/502.html