time calculation

[steve745]

on fetch Code

'Date Created: 03-Apr-2009 02:17:32 PM
'Last Updated: 22-Apr-2009 05:07:47 PM
'Created By  : steven
'Updated By  : Steven
dim shared vTstarta as C
dim shared vTstartb as C
dim shared lviewed as C
dim shared calla as T
calla = time()
lviewed = trim(convert_type(date(),"c"))
vTstarta = convert_type(date(),"c")
vTstartb = convert_type(time(),"c")

On button push

'Date Created: 04-Apr-2009 12:44:50 AM
'Last Updated: 22-Apr-2009 04:17:56 PM
'Created By  : steven
'Updated By  : Steven
dim vTend as C
dim ledit as C
dim today as C
dim callb as t
dim calltime as c
vTend = convert_type(time(),"c")
today = convert_type(date(),"c")
callb = time()
calltime =  totime(toseconds(callb)-toseconds(calla),2,0)


topparent.commit()
dim ft1 as p
ft1=topparent:free_text1_rtf.this
ft2=topparent:free_text2_rtf.this
lstnote=topparent:LSTNOTE1.this

ft1.rtf.set_cursor(1)
ft1.rtf.insert_text("Start: " + vTstarta + vTstartb + crlf())
ft1.activate()
xbasic_wait_for_idle()
textlen=len(ft1.rtf.plain_text)
ft1.rtf.set_cursor(textlen+1)
ft1.rtf.insert_text(crlf())
xbasic_wait_for_idle()
ft1.textselect(1,-1)
ft1.rtf.cut()

lstnote1.show()
lstnote1.activate()

IF a5_eval_expression("=Var->lstedit<>date()") THEN 
lstnote1.textselect(1,-1)
lstnote1.rtf.delete()
END IF
lstnote1.rtf.set_cursor(1)
lstnote1.rtf.paste()
lstnote1.rtf.insert_text(vtend)
lstnote.hide()

xbasic_wait_for_idle()

ft2.field.readonly=.f.
ft2.activate()
ft2.rtf.set_cursor(1)
ft2.rtf.paste()
ft2.rtf.insert_text("End: " + vTend + crlf()+ calltime + crlf())
ft2.field.readonly=.t.
topparent.commit()
sys_send_keys("{F9}")

And this is how it comes out
Start: 04/22/200917:39:37
xcv
End: 17:39:55
Call Time11:59
Start: 04/22/200917:39:37
dfdfvdv
End: 17:39:40
Call Time11:59

I am trying to make a call timer to count how many minutes/hours are spent with the file open
not sure how to correct this

[Davidk]

Re: time calculation

Steve, could you post a small app with this in it so it can be worked with?

[Keith Hubert]

Re: time calculation

Hi Steve,

I would suggest a separate table to record the date and times when each table was opened and closed, possibly you could add the users name too. That way you would have all the records in one place.

[steve745]

Re: time calculation

Keith This is code you gave me that i have modified to my taste. I've got the the start time in the memo and the end time just trying to caculate the time between calla callb. which calla is var time() on fetch and callb is var on push of save notes button. I'm trying to get calltime in the rtf memo to display time spent "callb-calla" i either get 12:01 or if it goes past the next hour such as 12:45-13:15 gives me a negative #. Here is my database app, the form is shortsale.

[Davidk]

Re: time calculation

Steve,

Seems like the main problem is the variable declaration "T" - this is returning a number that doesn't seem to make sense... I'm getting 0 00 00 12:07:08 at 9:15am.

Declare as Dim Shared Calla and Dim Shared Callb

Now, use the CTOT function to find the difference.

calltime = ctot(callb) - ctot(calla)

e.g. with a time for Calla of 9:15:09 and a time for Callb of 9:16:52 I get an EndTime of 0:02. Is that what you want? Is EndTime in Hours:Minutes? So this call would be 2 Minutes?

[steve745]

Re: time calculation

Right on david, that is what i'm looking for, have you taken your computer clock and pushed it ahead after the calla var starts and see if the call time measures the time past the next hour mark correctly. I have played with this for about a week. Mainly because i want to learn the many ways to write scripts. I'm an Alpha neub and wanna become an Alpha Superstar, or at least know the workings better.
One More thing how in the world do i get a space after calltime in the rtf memo field. How do i add a space to a line of script

[Davidk]

Re: time calculation

Steve,

Seems like the main problem is the variable declaration "T" - this is returning a number that doesn't seem to make sense... I'm getting 0 00 00 12:07:08 at 9:15am.

Declare as Dim Shared Calla and Dim Shared Callb

Now, use the CTOT function to find the difference.

calltime = ctot(callb) - ctot(calla)

e.g. with a time for Calla of 9:15:09 and a time for Callb of 9:16:52 I get an EndTime of 0:02. Is that what you want? Is EndTime in Hours:Minutes? So this call would be 2 Minutes?

[Davidk]

Re: time calculation

I also tried...

Dim shared calla as Y
Dim shared callb as Y

calla = ctot(time())
callb = ctot(time())

Since these are all in seconds you'd need to test to see if calltime is greater than 60 and work your time out from there.

This was from the help file under " - (Time Subtraction) "

[steve745]

Re: time calculation

That is where it gets tricky, now i'm really lost with the greater than 60.
do you think i can use the totime() to convert some how.

[Davidk]

Re: time calculation

Doesn't look like you need to worry about 60 seconds...

With the declarations as Y etc.

My start time was 9:57 am, my end time was 12:52:39 pm and the Endtime calc'd as 2:55, so that looks right. If you're not worred about the remainder seconds then it looks fine.

[steve745]

Re: time calculation

Sweet Thanks so much for the help david

[steve745]

Re: time calculation

Script:OnFetch line:8
Dim shared calla as Y
Variable is of different type
this is what i get

[Davidk]

Re: time calculation

When I dim'd as Y, I also change the method a bit... this is in OnFetch

dim shared calla as Y
calla = ctot(time())

and on the button...

dim vTend as C
dim today as C
dim callb as Y
dim calltime as n
dim lstnote as p
vTend = convert_type(time(),"c")
today = convert_type(date(),"c")
DIM lstedit AS c
lstedit = parentform:Lastedit.text
callb = ctot(time())
calltime = (callb - calla)

[steve745]

Re: time calculation

this is what i get trying your way
Script:OnFetch line:8
dim shared calla as Y
Variable is of different type
i copy and pasted what you put

[Mike Wilson]

Re: time calculation

Steve,
Why do you want to use RTF memo fields for the notes fields?