VBA byref argument type mismatch when calling a function from a function being called -

-

hope can help. simplification of set of code i'm working with. i'm calling function, , function calls function. variables passed calling sub first called function, should passed 2nd called function return value. however, i'm getting "byref argument type mismatch" error on below "parameter" in first function. suggestions? thanks!

' sub call function 1 sub testfunctionselect()     dim x double     ' x should = value of function msharemmtdaily called mfunctionselect     x = mfunctionselect("msharemmtdaily", "sol", "2008/02/28", 12) end sub  ' function 1 call function 2 , return value sub function mfunctionselect(functionname string, compcode string, currentmonth date, parameter double) double     select case functionname         ' case = "mvalue"             ' mfunctionselect = mvalue(compcode, currentmonth, parameter)         case = "msharemmtdaily"             ' function called             ' "byref argument type mismatch" error on below "parameter"             mfunctionselect = msharemmtdaily(compcode, currentmonth, parameter)     end select end function  function msharemmtdaily(code string, sharedate date, lookback integer) double     ' stuff end function

your parameter variable declared double , passing function expects integer. should convert it, in: 

mfunctionselect = msharemmtdaily(compcode, currentmonth, cint(parameter))

btw., @dee pointed out - doing implicit conversion of string date. makes code less safe , dependent on language settings of host on code runs. should convert date explicitly or, better yet, work dates beginning instead of strings.


Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more