日期函数，求解！！

[thirdfeel]

我用date()生成的是2003-9-2,但
我想让它生成2003-09-02,用什么函数

[xiaofei7569]

formatdatetime

[robbycao]

formatedatetime函数

[zhangking]

可以自己组合，给个思路：
取出 月、日，如果长度是 1 位，前面就加 0，然后再组合成日期。

[netphp]

日期函数返回日期的格式依赖计算机的区域设置，甚至有可能返回9/2/2003这样的日期。要固定格式就得象上面那位说的一样，自己创建。

[peering08cn]

在msdn查查formatdatetime（）

[coffee_cn]

year(now())
& right("0" & month(now()),2)
& right("0" & day(now()),2)

[lang11zi]

iif(len(month(now))=1,"0"&month(now)),moth(now)))

[超级大笨狼]

Visual Basic Scripting Edition

FormatDateTime 函数
请参阅
FormatCurrency 函数 | FormatNumber 函数 | FormatPercent 函数
要求
版本2
返回表达式，此表达式已被格式化为日期或时间。

FormatDateTime(Date[, NamedFormat])
参数
Date
必选项。要被格式化的日期表达式。
NamedFormat
可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。
设置
NamedFormat 参数可以有以下值：

常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。

说明
下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:

Function GetCurrentDate
'FormatDateTime 把日期型格式化为长日期型。
GetCurrentDate = FormatDateTime(Date, 1)
End Function
要求
版本2

请参阅
FormatCurrency 函数 | FormatNumber 函数 | FormatPercent 函数



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[超级大笨狼]

Visual Basic Scripting Edition

Split 函数
请参阅
Join 函数
要求
版本 2
返回基于 0 的一维数组，其中包含指定数目的子字符串。

Split(expression[, delimiter[, count[, start]]])
参数
expression
必选项。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。
delimiter
可选项。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，则返回包含整个 expression 字符串的单元素数组。
count
可选项。被返回的子字符串数目，-1 指示返回所有子字符串。
Compare
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。
设置
compare 参数可以有以下值：

常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。

说明
下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。

Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) 包含 "VBScript"。
' MyArray(1) 包含 "is"。
' MyArray(2) 包含 "fun!"。
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg
要求
版本 2

请参阅
Join 函数



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[超级大笨狼]

Visual Basic Scripting Edition

Join 函数
请参阅
Split 函数
要求
版本 2
返回一个字符串，此字符串由包含在数组中的许多子字符串连接创建。

Join(list[，delimiter])
参数
list
必选项。包含要连接的子字符串一维数组。
Delimiter
可选项。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 ("")。如果 delimiter 是零长度字符串，则在同一列表中列出全部项，没有分界符。
说明
下面的示例利用 Join 函数联合 MyArray 的子字符串：

Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray) 'MyString 包含 "Mr. John Doe III"。
要求
版本 2

请参阅
Split 函数



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。