ASP读取日期单日期自动补零函数代码

代码如下:

public function fillzero(l1)
if len(l1)=1 then
fillzero="0"&l1
else
fillzero=l1
end if
end function

用法示例：


代码如下:

response year(now)&month(now)&day(now) 结果:201116
response year(now)&fillzero(month(now))&fillzero(day(now)) 显示结果:20110106

如何控制长日期格式和短日期格式的显示：

Short Date:FORMATDATETIME(DATE,vbShortDate)
Long Date:FORMATDATETIME(DATE,vbLongDate)

当根据英国（美国）区域设置显示日期时，日期显示为如下的格式：

Short Date:7/9/97
Long Date:Wednesday,July 09,1997

注意:短日期格式的显示与不做任何格式化时完全相同。在缺省情况下，日期以短日期格式显示。

如何用FORMATDATETIME()函数操作时间：

Short Time:FORMATDATETIME(TIME,vbShortTime)
Long Time:FORMATDATETIME(TIME,vbLongTime)

当以英国（美国）区域设置显示时间时，时间的格式如下：

Short Time:03:20
Long Time:3:20:08 AM


代码如下:

<%
function FillZero(str)
ttt=str
if len(str)=1 then
ttt="0" & str
end if
FillZero=ttt
end function
'转化日期，将 一位补上零 2003-1-2 --> 2003-01-02
function ConvertDate(tDate)
ttt=tDate
if isdate(tDate) then
ttt=year(tDate) & "-" & FillZero(month(tDate)) & "-" & FillZero(day(tDate))
end if
ConvertDate=ttt
end function
'输入一个日期时间串，转换成年四位，其他两位的新的日期时间串
function ConvertDateTime(tDateTime)
ttt=tDateTime
if isdate(tDateTime) then
ttt=year(tDateTime) & "-" & FillZero(month(tDateTime)) & "-" & FillZero(day(tDateTime)) & " " & FillZero(cstr(hour(tDateTime))) & ":" & FillZero(cstr(minute(tDateTime))) & ":" & FillZero(cstr(second(tDateTime)))
end if
ConvertDateTime=ttt
end function
%>

赞 (0)

相关推荐

  • ASP读取日期单日期自动补零函数代码

    复制代码 代码如下: public function fillzero(l1) if len(l1)=1 then fillzero="0"&l1 else fillzero=l1 end if end function 用法示例: 复制代码 代码如下: response year(now)&month(now)&day(now) 结果:201116 response year(now)&fillzero(month(now))&fillzero

  • 解决python中无法自动补全代码的问题

    自已理解自我总结出来的方法,供自己以后使用 #coding:utf-8 from cv2 import * #这里表示让cv2的智能提示功能可用,但是这句话却没有导入cv2模块,不知道什么原因 import tensorflow as tf import tensorflow.contrib as contrib #这句话表示让contrib的代码自动补全功能可用,不知道为啥,比如输入contrib.等一会后面就会自动提示出现很多方法,但是输入tensorflow.contrib.却没有任何反应

  • Jupyter notebook设置背景主题,字体大小及自动补全代码的操作

    相信看这篇文章的你已经安装好Jupyter notebook,如果还没有的话可以看windows python3怎么安装Jupyter Notebooks? Jupyter Notebook的默认背景主题是白色,字体还不符合自己的眼光,看着实在费眼-我就不多赘述了,现在就来给我们的Jupyter notebook画一下妆,换一下装饰吧. 1.设置Jupyter主题: (1)在python环境找到pip.exe的路径 执行: pip install jupyterthemes (2)安装和更新成功

  • sublime text3解决Gosublime无法自动补全代码的问题

    目录 版本 安装Gosublime 自动补全解决方法 Gosublime配置 版本 Sublime Text3.2.1go version go1.12.1 darwin/amd64Gosublime 18.11.28 安装Gosublime 打开Perferences–Browse Packages…,进入Gosublime,在命令行里输入: git clone https://github.com/DisposaBoy/GoSublime.git 自动补全解决方法 在windows和mac上

  • PHP实现HTML标签自动补全代码

    一般情况下先用PHP的 strip_tags 函数去掉所有html标签,再去掉空格等,然后再用substr或者自己实现的cn_substr函数来实现截取.因为如果不先去掉html标签,直接截取出来的字符串就会有没有闭合的标签出现,有时甚至会截取在标签上面比如 复制代码 代码如下: </di ... 今天遇到一个内容翻页截取问题: 正文是用富文本编辑器写入的,编辑器上有个分页按钮,点击之后就往当前光标位置插入一个蓝色的 复制代码 代码如下: <hr /> 横线.然后php直接存入数据库.显

  • Pycharm 如何设置HTML文件自动补全代码或标签

    Pycharm 如何设置HTML文件自动补全代码或标签

    在使用Pycharm编写Django模板时,要用到一些特殊的格式,比如 {{ - }},{% if %}等等,如果不设置Pycharm,只能一个符号一个符号的输入. 现在教大家如何设置自动补全这些东西. 1.首先,打开Pycharm的Files–>Settings–>Editor–>Live Templates 点击最右边的添加按钮,选择Live Template 2.添加标签 Abbreviation 处添加标签,比如 if Description 是描述这个标签用途的,随便写. Te

  • php tp验证表单与自动填充函数代码

    复制代码 代码如下: <?php class FormModel extends Model { // 自动验证设置 /* * 一:自动验证 自动验证的定义是这样的:array(field,rule,message,condition,type,when,params) field:代表是数据库的字段名: rule:代表是规则: 它的值要看type的类型而定: 如果是condition 是function(callback),rule是一个函数名 condition 是in,rule是一个数组

  • ASP读取XML实例 优酷专辑采集程序 雷锋版

    复制代码 代码如下: <title>雷锋|优酷-专辑 采集程序</title></head> <form name="form1" method="post" action="?action=add"> <table width="95%" border="0" align="center" cellpadding="0&q

  • jQuery实现Email邮箱地址自动补全功能代码

    jQuery实现Email邮箱地址自动补全功能代码

    本文实例讲述了jQuery实现Email邮箱地址自动补全功能代码.分享给大家供大家参考,具体如下: jQuery Email邮箱地址自动补全代码,输入Email时,会自动加入@符号,在输入框中输入"qq"."Sina"."163"等等可以看到效果:鼠标经过提示Email时,高亮该条Email,鼠标点击Email时,文本框内容替换成该条Email,并删除提示层. 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js

  • Js日期选择器并自动加入到输入框中示例代码

    复制代码 代码如下: <html> <head> <title>Js日期选择器并自动加入到输入框中</title> <meta http-equiv="content-Type" content="text/html;charset=gb2312"> <script type="text/javascript"> var gMonths=new Array("一月&

随机推荐