输出带日期格式的随机数.asp

<%
Function GetRanNum()
'****************************************
'函数名：GetRanNum
'作  用：输出带日期格式的随机数
'参  数：无   ----
'返回值：如GetRanNum()，即输出200409071553464617，为2004年09月07日15时53分46秒4617随机数
'关联函数：FormatIntNumber
'****************************************
 GetRanNum = ""
 GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
 GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
 randomize
 ranNum=int((9000*rnd)+1000)
    GetRanNum = GetRanNum&ranNum
End Function
Function FormatIntNumber(Expression,Digit)
'****************************************
'函数名：FormatIntNumber
'作  用：输出Digit位左边带0整数
'参  数：Expression   ----要格式化整数
'参  数：Digit        ----要格式化位数
'返回值：如0005，如FormatIntNumber(5,4)，整数5被格式化为0005
'关联函数：无
'****************************************
 While Len(Expression) < Digit
  Expression = "0"&Expression
 wend
 FormatIntNumber = Expression
End Function
%><%
Function GetRanNum()
'****************************************
'函数名：GetRanNum
'作  用：输出带日期格式的随机数
'参  数：无   ----
'返回值：如GetRanNum()，即输出200409071553464617，为2004年09月07日15时53分46秒4617随机数
'关联函数：FormatIntNumber
'****************************************
 GetRanNum = ""
 GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
 GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
 GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
 randomize
 ranNum=int((9000*rnd)+1000)
    GetRanNum = GetRanNum&ranNum
End Function
Function FormatIntNumber(Expression,Digit)
'****************************************
'函数名：FormatIntNumber
'作  用：输出Digit位左边带0整数
'参  数：Expression   ----要格式化整数
'参  数：Digit        ----要格式化位数
'返回值：如0005，如FormatIntNumber(5,4)，整数5被格式化为0005
'关联函数：无
'****************************************
 While Len(Expression) < Digit
  Expression = "0"&Expression
 wend
 FormatIntNumber = Expression
End Function
%>

转自：动态网制作指南 www.knowsky.com

时间： 2024-04-13 07:35:01

输出带日期格式的随机数.asp的相关文章

asp.net中StringTemplate自定义输出日期格式

Use additional renderers like this实现接口的类:  代码如下 复制代码 internal class AdvancedDateTimeRenderer : IAttributeRenderer {     public string ToString(object o)     {         return ToString(o, null);     }       public string ToString(object o, string forma

asp 将日期格式化为需要的格式_应用技巧

<% '****************************** '函数:FormatDate(DateAndTime, para) '参数:DateAndTime,要格式化的日期时间:para,样式. '作者:阿里西西 '日期:2007/7/12 '描述:将日期格式化为需要的格式 '示例:<%=FormatDate(now(), 3)%> '****************************** Public Function FormatDate(DateAndTime, 

asp 将日期格式化为需要的格式

<% '****************************** '函数:FormatDate(DateAndTime, para) '参数:DateAndTime,要格式化的日期时间:para,样式. '作者:阿里西西 '日期:2007/7/12 '描述:将日期格式化为需要的格式 '示例:<%=FormatDate(now(), 3)%> '****************************** Public Function FormatDate(DateAndTime, 

.Net与JS时间日期格式的转换问题对比分析_实用技巧

本文实例分析了.Net与JS时间日期格式的转换问题.分享给大家供大家参考,具体如下: Js中的1415349957524整数 ,其实代表的是1970.1.1 00:00:00至现今某个时间点的时间间隔毫秒数.而在.Net中,我们可以用Ticks属性得到0001.1.1 00:00:00至现今某个时间点的时间间隔毫秒数. 具体代码实现如下所示: JS: //获取1970.1.1 00:00:00至现在的毫秒数 var milDate = +(new Date); .Net: //获取1970.1.

JS 日期验证正则附asp日期格式化函数_javascript技巧

javascript 日期验证正则 复制代码 代码如下: var pattern = /^((((1[6-9]|[2-9]\d)\d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]\d|3[01]))|(((1[6-9]|[2-9]\d)\d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]\d|30))|(((1[6-9]|[2-9]\d)\d{2})-0?2-(0?[1-9]|1\d|2[0-8]))|(((1[6-9]|[2-9]\d)

浅析GridView中显示时间日期格式的问题_实用技巧

以下都是GridView基本常用的日期,时间格式 形式 语法 结果 注释 数字 {0:N2} 12.36   数字 {0:N0} 13   货币 {0:c2} $12.36   货币 {0:c4} $12.3656   货币 "￥{0:N2}" ￥12.36   科学计数法 {0:E3} 1.23E+001   百分数 {0:P} 12.25% P and p present the same. 日期 {0:D} 2006年11月25日   日期 {0:d} 2006-11-25  

金山WPS表格统一日期格式教程

  日期的格式有很多种,因此,不同的人在填写表格的时候,可能会输入不同的格式.如果想要将表格中原本格式不一的日期修改为统一显示的格式显示该怎么办呢?下面,小编就以下面这张金山WPS表格(见图1)为例子,为大家讲解一下金山WPS表格统一日期格式的方法. 图1:金山WPS表格 在Excel中文本.数字格式的日期即无法统一设置日期格式也不能用公式进行日期计算.对于记录少的小表格我们可以重新输入日期,但当表格中有几百上千条记录时,重新输入日期显然并不容易.其实在WPS表格中通过函数就可以轻松把文本.数字

数字日期转化为汉字日期格式

汉字 script>  /*  功能:YYYY-MM-DD 数字日期转化为汉字  例:1984-3-7 -> 一九八四年三月七日  调用:baodate2chinese("1984-3-7")  */  var chinese = ['零','一','二','三','四','五','六','七','八','九'];  var len = ['十'];  var ydm =['年','月','日'];  function num2chinese(s)  {    file:/

Sql Server 常用日期格式

server SQL Server中文版的默认的日期字段datetime格式是yyyy-mm-dd Thh:mm:ss.mmm 例如: select getdate() 2004-09-12 11:06:08.177 整理了一下SQL Server里面可能经常会用到的日期格式转换方法: 举例如下: select CONVERT(varchar, getdate(), 120 ) 2004-09-12 11:06:08 select replace(replace(replace(CONVERT(