نفرض لدينا ثلاث TEXT ITEM وليكن الاول BEGINTIME (زمن البداية)والثانى ENDTIME (زمن النهاية)والثالث DEFTIME (الفرق بين الزمنين) يجب ان يكون نوع الحقول الثلاثة السابقة رقمية وضع للحقل DEFTIME الخاصية FORMAT MASK =00.00 ضع الشفرة التالية على الحدث POST CHANGE للحقل ENDTIME:-
declare def1 float(2); def2 float(2); begin :DEFTIME:=''; def1:=(:BEGINTIME ) -floor(:BEGINTIME ); def2:=(:ENDTIME ) -floor(:ENDTIME ); if def1>def2 then :DEFTIME:=(:ENDTIME)-(:BEGINTIME+00.40); else :DEFTIME:=(:ENDTIME)-(:BEGINTIME); end if; end;
ولاتنسونا من الدعاء