hello,

thank you for reply.

this is the code , what i can do,
thisform.text2.value,thisform.text1.value,Thisform.text3.value (data type is character)

set hour to 24

STORE TTOC(CTOT(thisform.text2.value)- CTOT(thisform.text1.value)+{^2000/01/01:},2) to tResult&&Thisform.text3.value

Thisform.text3.value = SUBSTR(tResult,1,5)
Z = Thisform.text3.value
STORE SUBSTR(z,1,2) TO thour
STORE SUBSTR(z,4,2) TO tMinute
nTime= tHour+"."+tMinute
VAL(nTime)
Thisform.text3.value = VAL(nTIME)
thisform.text6.value=thisform.text5.value*VAL(nTIME)
thisform.text11.value=thisform.text13.value*(CTOT(thisform.text10.value)-CTOT('0:'))/3600
*************************************************************
if thisform.text10.value>space(10) .and. thisform.text1.value>space(10) .and. thisform.text2.value>space(10)
=messagebox("YOU ENTER RONG VALUE")
thisform.grid1.visible=.f.
else

thisform.grid1.visible=.t.

 select 1
 *use table4
APPEN BLANK 
REPLACE dat WITH THISFORM.TEXT7.VALUE
REPLACE timEON WITH THISFORM.TEXT1.VALUE
REPLACE timEOF WITH THISFORM.TEXT2.VALUE
REPLACE REGULARHOU WITH tResult
REPLACE TOTAL WITH THISFORM.TEXT6.VALUE
REPLACE OVERTIME WITH THISFORM.TEXT10.VALUE
REPLACE TOTAL1 WITH (THISFORM.TEXT11.VALUE)

*THISFORM.GRID1.REFRESH
THISFORM.TEXT1.SETFOCUS
*endif
*with thisform.Grid1
*.Recordsource = .Recordsource
*endwith
thisform.Refresh

 thisform.text7.value= thisform.text7.value+1
 thisform.text8.value= (thisform.text8.value)+ val(SUBSTR(tResult,1,5))
 thisform.text9.value= (thisform.text8.value)* thisform.text5.value 
 

ENDIF

thanks.