获取服务器的当前日期函数，返回的日期格式为"YYYY-MM-DD"（转）
本函数用于将获取服务器的当前日期,返回的日期格式为"YYYY-MM-DD"
'---------------------------------------------------------------------------
Function AHshGetServerCurrentDate
Dim strTmp, iYear,iMonth,iDate
'---------------------------------------------------------------------------
Function AHshGetServerCurrentDate
Dim strTmp, iYear,iMonth,iDate
iYear = Year(Date)
iMonth = Month(Date)
iDate = Day(Date)
strTmp = CStr(iYear) & "-"
If iMonth < 10 Then
strTmp = strTmp & "0" & Cstr(iMonth) & "-"
Else
strTmp = strTmp & Cstr(iMonth) & "-"
End If
If iDate < 10 Then
strTmp = strTmp & "0" & Cstr(iDate)
Else
strTmp = strTmp & Cstr(iDate)
End If
AHshGetServerCurrentDate = strTmp
End Function
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-124737/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
当我从数据库读取数据时，怎么用（转）
请登录后发表评论
登录
全部评论
