如何让每一张picture box储存的图片根据时间都有自己的名称

level 1

柒天忒🌱 楼主

我想让这个命名中的a根据时间来定义

2020年08月19日 03点08分 1

level 15

初音✨七奈

Dim a As String
a = Format(Now, "yyyymmddhhnnss")
SavePicture Picture1.Image, App.Path & "\" & a & ".bmp"

2020年08月19日 03点08分 2

柒天忒🌱

nice 啊兄弟

2020年08月19日 05点08分

level 13

隨風🍁缒夢

SavePicture Picture1.Image, App.Path & "\pic\" & Format$(Now, "yyyy年mm月dd日 hh时mm分ss秒") & ".bmp"

2020年08月19日 03点08分 4

柒天忒🌱

nice 啊兄弟

2020年08月19日 05点08分

吧务

level 13

Luosen56

Option Explicit
'　RQSJ() 的字符长度为 14 。
Function RQSJ() As String
RQSJ = Format(Now, "yyyymmddhhnnss")
End Function
Private Sub Form_Click()
Print RQSJ()
End Sub

2020年08月19日 06点08分 5