home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
secure
/
sectimer.prg
< prev
next >
Wrap
Text File
|
1987-04-01
|
1KB
|
28 lines
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Program.: SECTIMER.PRG *
* Author..: Juan L. Romero *
* Date....: April 1, 1987. *
* Notes...: Sub-routine for SECURE.PRG (Keeps track of user's exit on *
* dBASE III *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
RESTORE FROM securent ADDITIVE
RESTORE FROM secfiles ADDITIVE
STORE itime TO t1
STORE TIME() TO t2
es=(VAL(t2)*3600+VAL(SUBSTR(t2,4))*60+VAL(SUBSTR(t2,7)));
-(VAL(t1)*3600+VAL(SUBSTR(t1,4))*60+VAL(SUBSTR(t1,7)))
et=SUBSTR(STR(INT(es/3600)+100,3),2)+' hrs '+;
SUBSTR(STR(INT(es/60)-(INT(es/3600)*60)+100,3),2)+' min '+;
SUBSTR(STR(es-(INT(es/60)*60)+100,3),2)+' sec'
STORE "OUT" TO istatus
USE &write
APPEND BLANK
REPLACE out_time WITH t2,status WITH istatus
REPLACE sys_time WITH et,date WITH DATE()
CLEAR ALL
RETURN
* END-OF-SUBROUTINE