Microsoft vbscript runtime error 13 type mismatch

koleviko · Post by **koleviko** » Tue Jan 17, 2012 12:50 am

VBStart
VBEND

VBEval>DateAdd("d",10,Date),yesterday

VBEval>Year("%yesterday%"),yyyy
VBEval>Month("%yesterday%"),mm
VBEval>Day("%yesterday%"),dd


Message>%yyyy%\%mm%\%dd%

Post by **Marcus Tettmar** » Tue Jan 17, 2012 9:04 am

This works fine for me. What line is giving your error?

koleviko · Post by **koleviko** » Tue Jan 17, 2012 12:37 pm

Another Question:
Can be built-in tones/ music / inside the exe itself?

Post by **Marcus Tettmar** » Tue Jan 17, 2012 1:21 pm

I don't think VBScript likes your date format.

What do you get if you use native functions instead. Like this:

GetDate>today
DateAdd>today,d,10,another_date
DatePart>another_date,Y,year
DatePart>another_date,M,month
DatePart>another_date,D,day
MessageModal>%year%\%month%\%day%

koleviko · Post by **koleviko** » Tue Jan 17, 2012 5:09 pm

The first script works correctly on Windows7.
On windows XP I have stopped services. Maybe give an error for that reason.

The second script on Windows XP and Windows 7 shows this.

P.S.
Another Question:
Can be built-in tones/ music / inside the exe itself?

Post by **Marcus Tettmar** » Tue Jan 17, 2012 5:14 pm

Which version of Macro Scheduler do you have? The second script I posted requires v13.x

koleviko · Post by **koleviko** » Tue Jan 17, 2012 5:34 pm

My version of Macro Scheduler is v11.

I will let the terminated services on Windows XP

JRL · Post by **JRL** » Tue Jan 17, 2012 7:40 pm

koleviko,
The code you first posted works for me in versions 11, 12 and 13.

The following gives me the same result in version 11 as what I get in version 11 using your code. What I see in both is 2012\1\27.

Code: Select all

GetDate>yesterday
Add>yesterday,10
Separate>yesterday,/,datepart

MDL>%datepart_3%\%datepart_1%\%datepart_2%

Since Getdate> relies on your system settings to provide a date, a slightly longer but more robust method would be to use the Day> Month> and Year> functions to build your initial date.

Code: Select all

Day>dd
Month>mm
Year>yyyy

Let>Yesterday=%mm%/%dd%/%yyyy%
Add>yesterday,10
Separate>yesterday,/,datepart

MDL>%datepart_3%\%datepart_1%\%datepart_2%