乘风原创程序

  • ASP中格式化时间短日期补0变两位长日期的方法
  • 2020/4/7 13:24:31
  • 因为短日期不足2位,所以在网页排版的时候,影响美观,下面两个函数可以解决这个问题。

    2020-2-7短日期 变 2020-02-07长日期

    Function FStime(times)
      Dim years,months,days
       if len(times)=0 then exit function
       years=year(times)
       months=right("0"&month(times),2)
       days=right("0"&day(times),2)
       times=years&"-"&months&"-"&days
       FStime=times
    End Function

    2020-2-7 23:37:5短日期 变 2020-02-07 23:37:05长日期

    Function FLtime(times)
      Dim years,months,days,hours,minutes,seconds
       if len(times)=0 then exit function
       years=year(times):months=right("0"&month(times),2)
       days=right("0"&day(times),2):hours=right("0"&hour(times),2)
       minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2)
       FLtime=years&"-"&months&"-"&days&" "&hours&":"&minutes&":"&seconds
    End Function

    Pw_Sys 日期格式转换函数

    <%
    
    Rem Pw_Sys 日期格式转换函数
    
    function DateTimeFormat(DateTime,Format)
    select case Format
    case "1"
    DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日"
    case "2"
    DateTimeFormat=""&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日"
    case "3"
    DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&""
    case "4"
    DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&""
    case "5"
    DateTimeFormat=""&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&""
    case "6"
    DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&Right("0" & Day(DateTime),2)&"日<font color=red> "&FormatDateTime(DateTime,4)&"</font>"
    case "7"
      temp="星期日,星期一,星期二,星期三,星期四,星期五,星期六"
      temp=split(temp,",")
      DateTimeFormat=temp(WeekRight("0" & Day(DateTime),2)-1)
    case "8"
    DateTimeFormat=""&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&""
    case "9"
    if len(hour(DateTime)) = 1 then
    str="0"&hour(DateTime)
    else
    str=hour(DateTime)
    end if
    DateTimeFormat=DateTimeFormat(DateTime,1)&" "&str&":"&Minute(DateTime)
    case "10"
    DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"
    case else
    DateTimeFormat=DateTime
    end select
    end function
    
    %>
    

    程序代码(把yyyy-mm-dd格式的日期中的月份和日期转换成两位数字的方法)

    dim today
    today=Date '避免重复调用Date,所以赋值给一个变量
    today=Year(today) & "-" & Right("0" & Month(today),2) & "-" & Right("0" & Day(today),2)

    asp中一段自动补位的函数

    function formatsn(getnum,getbit)
    dim formatsnnum,formatsnpre,formatsnj
    formatsnnum = getbit – len(getnum)
    for formatsnj = 1 to formatsnnum
    formatsnpre = formatsnpre & "0"
    next
    formatsn = formatsnpre & getnum
    end function

    使用方法

    formatsn(getnum,getbit)

    getnum 计数
    getbit 共几位