简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
  •  
    您现在的位置:首页 >> ASP >> 内容

    ASP中格式化时间短日期补0变两位长日期的方法

    内容摘要: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......

      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 共几位

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2020/5/8 发布时间:15:58:19 点击:634 
  • 上一篇:asp中Request.ServerVariable
  • 下一篇:asp获得完整的url
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2020

    本空间由景安网络提供,百度云加速提供加速防护
    YiJiaCMS V3.31 Build 20.6.5(MSSQL) 闽ICP备05000814号-1