--
You received this message because you are subscribed to
the "Pick and MultiValue Databases" group.
To post, email to: mvd...@googlegroups.com
To unsubscribe, email to: mvdbms+un...@googlegroups.com
For more options, visit http://groups.google.com/group/mvdbms
--- You received this message because you are subscribed to the Google Groups "Pick and MultiValue Databases" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mvdbms+un...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/mvdbms/baaeb0e5-9066-43b7-a864-66c7f88e6431%40gmail.com.
TST.ELAPSED.TIME
0001 SDT = "18:00:00 21 MAR 2024"
0002 START.HR = FIELD(SDT,':',1)
0003 EDT = "00:10:32 22 MAR 2024"
0004 END.HR = FIELD(EDT,':',1)
0005 *
0006 * Strip Time to Internal
0007 *
0008 STM = ICONV(FIELD(SDT,' ',1,1),'MT')
0009 ETM = ICONV(FIELD(EDT,' ',1,1),'MT')
0010 MIDNIGHT = ICONV("23:59:59",'MT')
0011 *
0012 CRT "Test Start Date : ":SDT
0013 CRT "Test End Date : ":EDT
0014 CRT
0015 CRT "Start Time Internal :":STM
0016 CRT "End Time Internal : ":ETM
0017 CRT "Midnight : ":MIDNIGHT
0018 *
0019 IF END.HR LT START.HR THEN
0020 ELAPSED.TIME = (MIDNIGHT - STM) + ETM
0021 END ELSE
0022 ELAPSED.TIME = (STM - ETM)
0023 END
0024 CRT
0025 CRT 'Elapsed Time : ':OCONV(ELAPSED.TIME,'MTS')
0026 STOP
0027 END
>
>
Test Start Date : 18:00:00 21 MAR 2024
Test End Date : 00:10:32 22 MAR 2024
Start Time Internal :64800
End Time Internal : 632
Midnight : 86399
Elapsed Time : 06:10:31
To view this discussion on the web visit https://groups.google.com/d/msgid/mvdbms/56935f62-1c52-46d6-984d-a5aaf0657056%40gmail.com.