Question

VB中调用日期的方法是什么

是这样的，我想把另存为的图片以日期的方法命名
Call SavePicture(Pic优特.Picture, "\一次性系统图\i.bmp")
这个 i 该样定义？？？请高手指教！！！
我用试过了，但是出现错误！
：属性未定义？
怎么回事？

能把你写的程序发到我邮箱里吗？
hehydhyd@163.com

谢谢。能解决的话另加50分或更多。

下面是我写的代码？你看看有没有什么问题！！！
Private Sub btn保存_Click()

If Me.Pic优特.Visible = True Then
Call SavePicture(Pic优特.Picture, "\一次性系统图\" & Replace(Replace(Replace(DateTime.Now, ":", ""), "-", ""), " ", "") & ".bmp")
End If
MsgBox (一次性系统图未打开)

End Sub

是不是路径的问题？？？？

Answer 1

可以使用这个属性：

DateTime.Now

这返回的是当前的具体时间点，精确到秒，格式：

2010-8-30  14:44:30

用作文件名的话，最好把中间的短横，冒号和空格都去掉，可以使用Replace方法来替换，如：

Replace(Replace(Replace(DateTime.Now, ":", ""), "-", ""), " ", "")

这样出来的结果就是：2010830144430,这样基本上就可以了。

楼主发的方法可以改成：

  Call SavePicture(Pic优特.Picture, "\一次性系统图\" & Replace(Replace(Replace(DateTime.Now, ":", ""), "-", ""), " ", "") & ".bmp") 

对补充问题的回答：

我也试过了，没什么问题啊，

执行：

MsgBox Replace(Replace(Replace(DateTime.Now, ":", ""), "-", ""), " ", ""), vbOKOnly + vbInformation, "测试"

效果见下图,你贴下你写的代码呢？ 

对补充的回答：

我试了一下，确实是路径的问题。前面要指定磁盘位置：

如： Call SavePicture(picTest.Picture, "f:\" & Replace(Replace(Replace(DateTime.Now, ":", ""), "-", ""), " ", "") & ".bmp")

或者

Call SavePicture(picTest.Picture, App.Path & "\" & Replace(Replace(Replace(DateTime.Now, ":", ""), "-", ""), " ", "") & ".bmp")

App.Path 表示你现在运行的这个应用程序的路径

Answer 2

用不到那么复杂，其实只要这样改一下。
dim i as string
i=format(now,"yyyymmdd")
Call SavePicture(Pic优特.Picture, "\一次性系统图\" & i & ".bmp")