VBScript

[jamief]

I have the following VBScript

<!-- current date !-->
<% year = DatePart("yyyy", date)%>
<% month = DatePart("m", date)%>
<% day = DatePart("d", date)%>
<%currentdate =  "1" & Mid(year, 3, 2) &  month & day %>

which gives me this ==>Today is 106127

My question is how do I KEEP the "0" before the month and/or Day?

Thanks
jamie

[giri]

Re: VBScript

Can you try this ...

<% month = DatePart("mm", date)%>
<% day = DatePart("dd", date)%>

[jamief]

Re: VBScript

I did it doesnt like it


jamie

[giri]

Re: VBScript

Wht abt something like below .....Not sure of proper syntax .......

SET @yy = DATEPART(yy, @date)
SET @mm = CASE WHEN LEN(DATEPART(mm,@date)) = 1 THEN '0' + CAST(DATEPART(mm,@date) AS varchar(2))
ELSE CAST(DATEPART(mm,@date) AS varchar(2))
SET @dd = CASE WHEN LEN(DATEPART(dd,@date)) = 1 THEN '0' + CAST(DATEPART(dd,@date) AS varchar(2))
ELSE CAST(DATEPART(dd,@date) AS varchar(2))

[jamief]

Re: VBScript

This will do it sure its not pretty but it functions

<!-- current date !-->
<% year = DatePart("yyyy", date)%>
<% month = DatePart("m", date)%>
<% day = DatePart("d", date)%>
<%
if  month < 10 then
month = "0" & month
end if
if  day  < 10 then
day = "0" & day
end if
%>
<% currentdate =  "1" & Mid(year, 3, 2) &  month & day %>

If interested the SQL would look like this then - summing all records (weight) from Iseries table
from TODAY converted date format to *CYMD

sqlstmt = "SELECT sum(WADLWT)as TotalShippedLBI  FROM lbifil.wkartno WHERE WADAT = "  & currentdate 
      set RS = Connection.Execute(sqlstmt)

[gcraill]

Re: VBScript

Not sure about VB but in VBA i use this ...

    STRDate = Format(date, "DD/MM/YYYY")
    BackwardsDate = Format(date, "YYYYMMDD")
    SillyUSDate = Format(date, "MM/DD/YYYY")
    MyDay1 = Format(date, "D")
    MyDay2 = Format(date, "DD")

etc

Greg