added LSL2 stored procedures

2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions
--- a/LSL2/STPROC/CALC_ELAP.txt
+++ b/LSL2/STPROC/CALC_ELAP.txt
@ -0,0 +1,14 @@
+compile function calc_elap(DateIn, TimeIn, DateOut, TimeOut)
+
+Tot = 0
+if DateOut and DateIn then
+   DateDiff = DateOut - DateIn
+   SecondsToAdd = 0
+   if DateDiff then
+       SecondsToAdd = 86400*DateDiff
+   end
+   Tans = ( TimeOut + SecondsToAdd ) - TimeIn
+   Tot = ( ( Tans /3600) *100 )
+end
+return Tot
+