Calculate question duration.
//surveyscripting.com
Metadata:
DummyStart "Hidden Variable" text;
DummyEnd "Hidden Variable" text;
ElapsedTime "Duration in secconds" long;
Routing section:
Sub OnBeforeQuestionAsk(Question, IOM)
IOM.Questions["DummyStart"].Response = Now()
End Sub
Sub OnAfterQuestionAsk(Question, IOM)
IOM.Questions["DummyEnd"].Response = Now()
IOM.Questions["ElapsedTime"].Response = IOM.Questions["ElapsedTime"].Response
+ DateDiff(IOM.Questions["DummyStart"].Response,
IOM.Questions["DummyEnd"].Response, "s")
End Sub