ITPub博客

首页 > 应用开发 > IT综合 > 格式化日期函数

格式化日期函数

原创 IT综合 作者:kangqiao182 时间:2006-06-11 11:14:45 0 删除 编辑
格式化成通用格式
Function Date9()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 0)
End Function
[@more@]


格式化成长日期格式
Function Date10()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 1)
End Function

格式化成短日期格式
Function Date11()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 2)
End Function

格式化成长时间格式
Function Date12()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 3)
End Function

格式化成短时间格式
Function Date13()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 4)
End Function

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/7226109/viewspace-841974/,如需转载,请注明出处,否则将追究法律责任。

上一篇: ASP中的日期函数
请登录后发表评论 登录
全部评论
  • 博文量
    18
  • 访问量
    491846