当前位置:   article > 正文

按键精灵获取14位纯数字当前时间,时间格式yyyyMMddHHmmss_按键精灵获取当前时间

按键精灵获取当前时间

第一种方法

TracePrint newDate
//获取14位时间
Function newDate
	Dim y, m, d, h, mm, s
	nDate = Now()
	y = Year(nDate)
	m = Month(nDate)
	d = Day(nDate)
	h = Hour(nDate)
	mm = Minute(nDate)
	s = Second(nDate)
	m = 三元(m<10,"0"&m,m)
	d = 三元(d<10,"0"&d,d)
	h = 三元(h<10,"0"&h,h)
	mm = 三元(mm<10,"0"&mm,mm)
	s = 三元(s<10,"0"&s,s)
	newDate = y & m & d & h & mm & s
End Function
//自制三元表达式
Function 三元(b,t,f)
    If b Then 
        三元 = t
    Else 
        三元 = f	
    End If
End Function
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26

第二种方法

s = Plugin.Sys.GetDateTime()
TracePrint "您的操作系统日期和时间:" & s
s = Replace(Replace(Replace(s, "-", ""), ":", ""), " ", "")
TracePrint "纯数字日期和时间:" & s
  • 1
  • 2
  • 3
  • 4
本文内容由网友自发贡献,转载请注明出处:【wpsshop博客】
推荐阅读
相关标签
  

闽ICP备14008679号