DataFunctions.Date
.gif "Ee824552.c++_on(en-US,CS.10).gif")
.gif "Ee824552.vb_off(en-US,CS.10).gif")
Use this method to convert a date Variant to a string representation of the specified date, based on the default or specified locale.
Definition
Function Date(dtDate As Date,vtLocale As Variant) As Variant
Parameters
dtDate
A DateVariant that contains the date to format.
vtLocale
A Variant that specifies the locale to use to convert the date to a string. If this parameter is not specified, the value of the Locale property of the DataFunctions object is used.
Return Values
If this method completes successfully, it returns a string Variant that contains the date value formatted as a string; otherwise, NULL is returned.
Error Values
This method sets the Number property of the global Err object to S_OK (&H00000000) to indicate success and to standard COM error values to indicate failure. For more information about standard COM errors, see Standard COM Errors. Additional information may be available using the global Err object. In particular, the Description property may contain a text description of the error.
Remarks
For more information about memory ownership issues related to COM property and method parameters, see Managing COM Parameter Memory.
Example
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Dim Result, vtDateVar
' vtDateVar is a date variant containing a valid date
Set MSCSDataFunctions = Server.CreateObject("Commerce.DataFunctions")
' Set Locale to USA
myLocale = "1033"
MSCSDataFunctions.Locale = myLocale
Result = MSCSDataFunctions.Date(vtDateVar)
Response.Write "USA: " & Result & "<P>"
%>
</BODY>
</HTML>
See Also
DataFunctions.ValidateDateTime