首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2020 - 10 48
    123
45678910
11121314151617
18192021222324
25262728293031


站点统计

最新评论

日志搜索

 标题   内容


大盘震荡新高,持股不动! ASP创建word和excel文档
未知 asp格式化日期时间格式的代码   [ 日期:2010-07-08 00:02:05 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com

【字体设置:
' ============================================ 
' 格式化时间(显示) 
' 参数:n_Flag 
' 1:"yyyy-mm-dd hh:mm:ss" 
' 2:"yyyy-mm-dd" 
' 3:"hh:mm:ss" 
' 4:"yyyy年mm月dd日" 
' 5:"yyyymmdd" 
' ============================================ 
Function Format_Time(s_Time, n_Flag) 
Dim y, m, d, h, mi, s 
Format_Time = "" 
If IsDate(s_Time) = False Then Exit Function 
y = cstr(year(s_Time)) 
m = cstr(month(s_Time)) 
If len(m) = 1 Then m = "0" & m 
d = cstr(day(s_Time)) 
If len(d) = 1 Then d = "0" & d 
h = cstr(hour(s_Time)) 
If len(h) = 1 Then h = "0" & h 
mi = cstr(minute(s_Time)) 
If len(mi) = 1 Then mi = "0" & mi 
s = cstr(second(s_Time)) 
If len(s) = 1 Then s = "0" & s 
Select Case n_Flag 
Case 1 
' yyyy-mm-dd hh:mm:ss 
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 
Case 2 
' yyyy-mm-dd 
Format_Time = y & "-" & m & "-" & d 
Case 3 
' hh:mm:ss 
Format_Time = h & ":" & mi & ":" & s 
Case 4 
' yyyy年mm月dd日 
Format_Time = y & "年" & m & "月" & d & "日" 
Case 5 
' yyyymmdd 
Format_Time = y & m & d 
End Select 
End Function 

'================================================   
 '函数名:FormatDate   
 '作  用:格式化日期   
 '参  数:DateAndTime   ----原日期和时间   
 '        para   ----日期格式   
 '返回值:格式化后的日期   
 '================================================   
 Public Function FormatDate(DateAndTime, para)   
  On Error Resume Next  
  Dim y, m, d, h, mi, s, strDateTime   
  FormatDate = DateAndTime   
  If Not IsNumeric(para) Then Exit Function  
  If Not IsDate(DateAndTime) Then Exit Function  
  y = CStrCStr(Year(DateAndTime))   
  m = CStrCStr(Month(DateAndTime))   
  If Len(m) = 1 Then m = "0" & m   
  d = CStrCStr(Day(DateAndTime))   
  If Len(d) = 1 Then d = "0" & d   
  h = CStrCStr(Hour(DateAndTime))   
  If Len(h) = 1 Then h = "0" & h   
  mi = CStrCStr(Minute(DateAndTime))   
  If Len(mi) = 1 Then mi = "0" & mi   
  s = CStrCStr(Second(DateAndTime))   
  If Len(s) = 1 Then s = "0" & s   
  Select Case para   
  Case "1"  
   strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s   
  Case "2"  
   strDateTime = y & "-" & m & "-" & d   
  Case "3"  
   strDateTime = y & "/" & m & "/" & d   
  Case "4"  
   strDateTime = y & "年" & m & "月" & d & "日"  
  Case "5"  
   strDateTime = m & "-" & d & " " & h & ":" & mi   
  Case "6"  
   strDateTime = m & "/" & d   
  Case "7"  
   strDateTime = m & "月" & d & "日"  
  Case "8"  
   strDateTime = y & "年" & m & "月"  
  Case "9"  
   strDateTime = y & "-" & m   
  Case "10"  
   strDateTime = y & "/" & m   
  Case "11"  
   strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi   
  Case "12"  
   strDateTime = right(y,2) & "-" &m & "-" & d   
  Case "13"  
   strDateTime = m & "-" & d   
  Case Else  
   strDateTime = DateAndTime   
  End Select  
 FormatDate = strDateTime   
End Function

暂时没有评论
   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
点这里显示QQ表情【隐藏是为了加快网页打开速度】
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com