内容字号:默认大号超大号

段落设置:段首缩进取消段首缩进

字体设置:切换到微软雅黑切换到宋体

asp 格式化时间函数

2017-02-17 17:49 出处:电脑高手网整理 人气: 评论(0

  asp教程 格式化时间函数

  '本款函数可以根据用户给定的时间日期进行年月日,时分秒等,只要用户给定不同的style参数就可以显示不同风格的时间日期。

  function formattime(testtime,style)

  dim n,y,r,s,f,m

  n = year(testtime)

  y = month(testtime)

  r = day(testtime)

  s = hour(testtime)

  f = minute(testtime)

  m = second(testtime)

  if len(n) = 2 then n = "20" & n

  if len(y) = 1 then y = "0" & y

  if len(r) = 1 then r = "0" & r

  if len(s) = 1 then s = "0" & s

  if len(f) = 1 then f = "0" & f

  if len(m) = 1 then m = "0" & m

  nn=right(n,2)

  if style = 1 then

  formattime = ""& n &"年"& y &"月"& r &"日"& s &"时"

  elseif style = 2 then

  formattime = r &"日 "& s & ":" & f & ":" & m

  elseif style = 3 then

  formattime = n &"年"& y &"月"& r &"日"

  elseif style = 4 then

  formattime = n & "-" & y & "-" & r & " " & s & ":" & f

  elseif style = 5 then

  formattime = y &"-"& r &" " & s & ":" & f

  elseif style = 6 then

  formattime = n &"年"& y &"月"& r &"日" & s &":"& f

  elseif style = 7 then

  formattime = n & y & r & s & f & m

  elseif style = 8 then

  formattime = n & "-" & y & "-" & r

  elseif style = 9 then

  formattime = n & "/" & y & "/" & r

  end if

  end function

相关栏目

相关文章



分享给小伙伴们:

评论

发表评论愿您的每句评论,都能给大家的生活添色彩,带来共鸣,带来思索,带来快乐。

签名: 验证码: 点击我更换图片

评论列表

    Copyright © 2002-2016 dngsw.cn 电脑高手网 版权所有

    粤ICP备13005586号-3