Question

VB程序中如何保留程序的编译时间？

在写一个程序，想要把程序的编译时间在界面上显示，不要获取文件创建、修改时间的，就是要程序在编译的时候留下一个当前时间，自己太笨，一直没想到方法，来求助各位高手啦，谢谢。

Answer 1

大家都用版本号，用编译时间来显示不专业。
因为生成版本号的同时，文件的生成时间也就定下来了。
在工程的属性里：生成页，设置版本号，选中自动升级，让它每次编译后版本号自动升级。
你在程序中是可以显示当前程序版本号的。见下面的例子
Dim sa As String
With App
sa = IIf(Len(CStr(.Revision)) = 3, "", String(3 - Len(CStr(.Revision)), "0"))
lblVersion.Caption = "版本号:" & .Major & "." & Format(.Minor, "000") & "." & sa & .Revision
End With

追问

谢谢您的回答，当然版本号很专业啦，不过真的是想弄个编译时间，就Notepad++的关于窗口的右上角显示的：Build time : Nov 13 2011 - 02:06:31 那样。

追答

当然了，你还可以读取你编译的文件创建时间作为编译时间。这个是没有错的，因为这个是编译结束时间。读取文件时间方法如下：
首先工程中引用Microsoft Scripting Runtime，然后参照下面的代码

Dim fs As Scripting.FileSystemObject
Dim sA, sB
Dim f As Scripting.File

Set fs = CreateObject("Scripting.FileSystemObject") '创建FileSystemObject 对象
sA = App.Path & "\" & App.EXEName & ".exe"

Set f = fs.GetFile(sA)
sA = f.DateCreated '获得文件创建时间

追问

恩，我刚才试了下，Notepad++不是这种获取文件创建时间的机制呢，它应该真的是在编译时加上的编译时间，待会儿看看Notepad++的源码吧，谢谢你啦。

追答

谢谢，就请把问题结了！ 比较烦看见新追问！

Answer 2

由于VB是面向对象的语言，各部分语句执行顺序不定，除非只有一个窗体的load事件，不然是没有所谓编译时间的吧。。。如果是指程序开始运行到运行结束的时间段，可以用一个timer从form-load开始计时，直到需要执行的步骤完成然后输出时间

追问

比较笨，没很明白您的意思。我想问的就是在程序中记录下由源码编译为EXE程序时候的当前时间，像是记录一下NOW函数那样的。

追答

看来我理解错你的意思了。。。就一个标签就好了嘛。。。

Answer 3

在编译的时候~~人工添加 不要就好了 添加一个标签控件 输入当前编译时间

追问

啊，这样也有想过，会不会很不专业的样子呀，:-)。

追答

。。。。效果是一样的 没有什么专业不专业的问题 简单有效是最专业的 软件的诞生就是为了让我们将复杂变简单 你可不要本末倒置