海外邮件中继，海外退信中继，美国高速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条评论!