SELECT hospital SCAN * Calculate elapsed time SET DECIMALS TO 0 secs1 = VAL(SUBSTR(TTOC(hospital.newdate),18,2)) mins1 = VAL(SUBSTR(TTOC(hospital.newdate),15,2))*60 hrs1 = VAL(SUBSTR(TTOC(hospital.newdate),12,2))*3600 secs2 = VAL(SUBSTR(TTOC(DATETIME()),18,2)) mins2 = VAL(SUBSTR(TTOC(DATETIME()),15,2))*60 hrs2 = VAL(SUBSTR(TTOC(DATETIME()-1),12,2))*3600 elapsed = (hrs2+mins2+secs2) - (hrs1+mins1+secs1) IF DTOC(hospital.newdate) <> DTOC(DATETIME()) ? datetime() - hospital.newdate WAIT WINDOW elapsed = ((hrs2+mins2+secs2) - (hrs1+mins1+secs1)) + 86400 ENDIF hrs3 = INT(elapsed/3600) mins3 = INT((elapsed - hrs3*3600)/60) elapsed2 = TRANSFORM(hrs3*100+mins3, "@RL 99:99") IF (hrs3 > 1 OR mins3 > 1) AND ALLT(hospital.newstatus) <> "OPEN" THISFORM.Timer2.Enabled = .T. THISFORM.Image1.Visible = .T. ENDIF REPLACE hospital.elapstime WITH ALLT(elapsed2) ENDSCAN