SPSS mrStudio Question duration

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