>sir i used your codes as
>
>lnSec = int(ABS(CTOT(thisform.text1.Value)-CTOT(thisform.text1.Value)))
>?TRANSFORM(100*INT(lnsec/3600)+INT((lnsec%3600)/60),'99:99')
>lnSec =lnSec *5
>thisform.text2.value=TRANSFORM(100*INT(lnsec/3600)+INT((lnsec%3600)/60),'99:99')
>
>but replies as
> : 0
lnSec = int(ABS(CTOT('11:25')-CTOT('13:30')))
?TRANSFORM(100*INT(lnsec/3600)+INT((lnsec%3600)/60),'99:99')
lnSec =lnSec *5
?TRANSFORM(100*INT(lnsec/3600)+INT((lnsec%3600)/60),'99:99')
_screen.addOBJECT('lof','textbox')
_screen.lof.Visible = .t.
_screen.lof.Value = TRANSFORM(100*INT(lnsec/3600)+INT((lnsec%3600)/60),'99:99')
Shows a textbox with '10:25' as value.
I have no idea about the property settings of your textbox.
Consider the read help file about formating a textbox display.
Agnes
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord
Weeks of programming can save you hours of planning.
OffThere is no place like [::1]