[求助]如何转换成时间型：如2006-12-26 - ASP技术论坛

问题点数：0 回复次数：9

[求助]如何转换成时间型：如2006-12-26

year1=Cint(request("year1"))
yue1=Cint(request("yue1"))
ri1=Cint(request("ri1"))
我有三个文本框

分别是年、月、日

如果我选择了这些个参数，如何将他们组合成标准的日期型数据呢?
比如:2006-12-26

我觉得用字符串连接估计不行！

date_1=year1&"-"&yue1&"-"&ri

这样好像不可以！

搜索更多相关主题的帖子: Cint　request　时间　

第 2 楼

得分:0

date_1=cdate(year1&"-"&yue1&"-"&ri)

">东搞一下西搞一下

第 3 楼

得分:0

想提高的来24小时学习网 www.

第 4 楼

得分:0

以下是引用islet在2006-12-26 13:01:15的发言：
date_1=cdate(year1&"-"&yue1&"-"&ri)

是的！刚刚去查VBS手册看到了！还要继续努力啊！谢谢斑竹！

程序员的悲哀如何找女朋友？
追女解决方案百度“让她着迷”！

第 5 楼

得分:0

以下是引用myts888在2006-12-26 13:07:35的发言：
想提高的来24小时学习网 www.24xuexi.com

咋就在这灌水呢？？？

程序员的悲哀如何找女朋友？
追女解决方案百度“让她着迷”！

第 6 楼

得分:0

其实只要这样就可以达到你想要的那种效果：2006-12-27
<% response.Write(date)%>
你可以尝试一下！

第 7 楼

得分:0

Function DateToStr(DateTime,ShowType) '日期转换函数
Dim DateMonth,DateDay,DateHour,DateMinute
DateMonth=Month(DateTime)
DateDay=Day(DateTime)
DateHour=Hour(DateTime)
DateMinute=Minute(DateTime)
If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
If Len(DateDay)<2 Then DateDay="0"&DateDay
Select Case ShowType
Case "Y-m-d"
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
Case "Y-m-d H:I A"
Dim DateAMPM
If DateHour>12 Then
DateHour=DateHour-12
DateAMPM="PM"
Else
DateHour=DateHour
DateAMPM="AM"
End If
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
Case "Y-m-d H:I:S"
Dim DateSecond
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
Case "YmdHIS"
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond
Case "ym"
DateToStr=Right(Year(DateTime),2)&DateMonth
Case "dHIS"
DateSecond=Second(DateTime)
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
DateToStr=DateDay&DateHour&DateMinute&DateSecond
Case "d"
DateToStr=DateDay
Case Else
If Len(DateHour)<2 Then DateHour="0"&DateHour
If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
End Select
End Function

调用：DateToStr(webLog("log_PostTime"),"Y-m-d")

http://www./

第 8 楼

得分:0

[CODE]<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML>
<HEAD>
<TITLE>FormatDateTime 函数</TITLE>
<META NAME=MS-HAID CONTENT="vsfctFormatDateTime">
<META HTTP-EQUIV="Content Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="CATEGORY" CONTENT="语言参考">
<META NAME="Keywords" CONTENT="FormatDateTime 函数;格式化日期;格式化时间;格式化字符串;日期形式; vbGeneralDate; vbLongDate; vbShortDate; vbLongTime; vbShortTime">
<META NAME="Description" CONTENT="FormatDateTime 函数">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
Microsoft(R) Visual Basic(R) Scripting Edition 
FormatDateTime 函数
</TD>
<TD ALIGN=RIGHT>
<A HREF="vbstoc.htm">语言参考</A> 
<A HREF="default.htm" TARGET="_top">起始页</A> | <A HREF="vbsversion.htm">版本 2</A> 
</TD></TR>
</TABLE>

<A HREF="vsfctFormatDateTimeC.htm">请参阅</A>
<HR noshade SIZE=1>
<H5>描述</H5>
<BLOCKQUOTE>
返回表达式，此表达式已被格式化为日期或时间。
</BLOCKQUOTE>
<H5>语法</H5>
<BLOCKQUOTE>
FormatDateTime(Date[, NamedFormat])
FormatDateTime 函数的语法有以下参数：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>参数</TD>
<TD>描述</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>Date</TD>
<TD WIDTH=85%>必选。要被格式化的日期表达式。</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>NamedFormat</TD>
<TD WIDTH=155%>可选。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。</TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>设置</H5>
<BLOCKQUOTE> NamedFormat 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>常数</TD>
<TD WIDTH=10%>值</TD>
<TD WIDTH=85%>描述</TD></TR>
<TR VALIGN=TOP>
<TD>vbGeneralDate</TD>
<TD ALIGN=CENTER WIDTH=10%>0</TD>
<TD WIDTH=85%>显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
</TD></TR>
<TR VALIGN=TOP>
<TD>vbLongDate</TD>
<TD ALIGN=CENTER WIDTH=10%>1</TD>
<TD WIDTH=85%>使用计算机区域设置中指定的长日期格式显示日期。</TD></TR>
<TR VALIGN=TOP>
<TD>vbShortDate</TD>
<TD ALIGN=CENTER WIDTH=10%>2</TD>
<TD WIDTH=85%>使用计算机区域设置中指定的短日期格式显示日期。</TD></TR>
<TR VALIGN=TOP>
<TD>vbLongTime</TD>
<TD ALIGN=CENTER WIDTH=10%>3</TD>
<TD WIDTH=85%>使用计算机区域设置中指定的时间格式显示时间。</TD></TR>
<TR VALIGN=TOP>
<TD>vbShortTime</TD>
<TD ALIGN=CENTER WIDTH=10%>4</TD>
<TD WIDTH=85%>使用 24 小时格式 (hh:mm) 显示时间。</TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>说明</H5>
<BLOCKQUOTE> 下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:
<BLOCKQUOTE><PRE> Function GetCurrentDate
'FormatDateTime 把日期型格式化为长日期型。
GetCurrentDate = FormatDateTime(Date, 1)
End Function</PRE></BLOCKQUOTE>
</BLOCKQUOTE>
<hr noshade size=1>

<A HREF="/misc/cpyright.htm" TARGET="_top">(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use</A>.

</BODY></HTML>[/CODE]

第 9 楼

得分:0

谢谢各位的指点啊！！

程序员的悲哀如何找女朋友？
追女解决方案百度“让她着迷”！

第 10 楼

得分:0

date_1=#"&year1&"-"&yue1&"-"&ri&"#