%
Function FormatDateNoSep(DateValue, yrDig)
Dim strYYYY
Dim strMM
Dim strDD
strYYYY = CStr(DatePart("yyyy", DateValue))
if yrDig = 2 then strYYYY = Right(strYYYY, 2)
strMM = CStr(DatePart("m", DateValue))
If Len(strMM) = 1 Then strMM = "0" & strMM
strDD = CStr(DatePart("d", DateValue))
If Len(strDD) = 1 Then strDD = "0" & strDD
FormatDateNoSep = strMM & strDD & strYYYY
End Function
%>
 |
Software Development, Website Design &
Internet Application Solutions Provider
|
. . . efficient IT Solutions for ALL Your Business Needs!
|
|