sundar
-
Total Posts
:
1
- Scores: 0
-
Reward points
:
0
- Joined: 4/13/2009
-
Status: offline
|
Invalid procedure call or argument: 'mid'
Monday, April 13, 2009 6:15 PM
( permalink)
I am trying to use the code pasted below on my webpage,I get the following error : Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'mid'
/bill/utils.inc, line 37
Browser Type:
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4
Any help would be appreciated , thanks.
utils.inc
<%
function pad(n, char, ln)
dim tnum
tnum = trim(n)
iter = ln - len(tnum)
for i = 1 to iter
pad = pad & char
next
pad = pad & tnum
end function
function convert_date(dt, curret_format, required_format)
dim dd, mm, yr, hh, min, sec, ddsep, mmsep
if dt = "" or isnull(dt) or len(trim(dt)) = 0 then
convert_date = "-"
else
dt = cdate(dt)
ddsep = instr(1,dt,"/")
mmsep = instr(ddsep+1, dt,"/")
select case (curret_format)
case "dmy"
dd = pad(mid(dt,1, ddsep-1),"0",2)
mm = pad(mid(dt, ddsep+1, mmsep-ddsep-1),"0",2)
yr = mid(dt, mmsep+1)
case "dmyhns"
dd = pad(mid(dt,1, ddsep-1), "0",2)
mm = pad(mid(dt, ddsep+1, mmsep-ddsep-1), "0",2)
yr = mid(dt, mmsep+1)
case "mdyhns"
mm = pad(mid(dt,1, ddsep-1), "0",2)
dd = pad(mid(dt, ddsep+1, mmsep-ddsep-1), 1,2)
yr = mid(dt, mmsep+1)
case "mdy"
dd = pad(mid(dt,ddsep+1, mmsep-ddsep-1), 1,2)
mm = pad(mid(dt, 1, ddsep-1), "0", 2)
yr = mid(dt, mmsep+1)
case "mdyhns"
dd = pad(mid(dt,ddsep+1, mmsep-ddsep-1), 1,2)
mm = pad(mid(dt, 1, ddsep-1),"0",2)
yr = mid(dt, mmsep+1)
case "dmony"
dd = pad(mid(dt,1, ddsep-1),"0",2)
mm = pad(mid(dt, ddsep+1, mmsep-ddsep-1),"0",2)
yr = mid(dt, mmsep+1)
end select
select case (required_format)
case "dmy"
convert_date = dd & "/" & mm & "/" & yr
case "dmyhns"
convert_date = dd & "/" & mm & "/" & yr
case "mdy"
convert_date = mm & "/" & dd & "/" & yr
case "mdyhns"
convert_date = mm & "/" & dd & "/" & yr
case "dmony"
mon = MonthName(cint(mm))
convert_date = dd & "-" & mid(mon,1,3) & "-" & mid(yr,1,4)
case "ymd"
convert_date = mid(yr,1,4) & mm & dd
end select
end if
end function
%>
|