How can i convert secs. into hours?

[wilsondg]

can someone help me... how can i convert seconds into hour....

i.e: i have 1000 secs. how can i convert this into hours?

Help.....

 

[Mike Gagnon]

nHours = 1000/60 ?
Or I'm I missing something?

 

[rgbean]

I use:
FUNCTION SS2HHMMSS
LPARAMETERS p_nSeconds
LOCAL l_nHours, l_nMinutes, l_nSeconds
l_nHours = INT(p_nSeconds / 3600)
l_nMinutes = INT((p_nSeconds - 3600*l_nHours) / 60)
l_nSeconds = MOD(p_nSeconds, 60)
RETURN ALLTRIM(TRANSFORM(l_nHours, "9999&quot);
+ ":"+TRANSFORM(l_nMinutes, "@L 99"
+ ":"+TRANSFORM(l_nSeconds, "@L 99&quot

Rick

 

[agoeddeke]

lnTotalSeconds = 1000

lnHours = INT(lnSeconds/3600)
lnMins = INT(MOD(lnSeconds,3600)/60)
lnSecs = MOD(lnSeconds,60)

** To put in HH:MM:SS format...
? TRANSFORM(lnHours, "@L 99&quot + ":" + ;
TRANSFORM(lnMins, "@L 99&quot + ":" + ;
TRANSFORM(lnSecs, "@L 99&quot

 

[Mike Gagnon]

wilsondg
As you can see by Rick's code I made a mistake, it should read:
nHours = 10000/3600

Although to convert minutes from decimal to actual minutes Rick's function might be more help.

 

[wilsondg]

You guys are the best! tnx rick!

another thing.. i need to add up the results of your function, you know to get the total # of hours.

i was thinking to create another field named secs then ill save the secs (before the conversion) as a numeric value.. then compute it with your function to get the total # of hours:min:secs....

i dont mean to brag but is there a way to computer the results of your function... i.e. 1:30:20 + 2:15
:60 ?



tnx

 

[Mike Gagnon]

Wilsondg

The suggestion that Rick made "transforms" the result into characters, so with that in mind you cannot add character together.
But if you further modify Rick's function, you can achive the desired result (Just don't forgot to deal with the seconds adding to more then then 60 and the minutes adding to more then 60)

LOCAL lnHoursVal1,lnHoursVal2,lnMinsVal1,lnMinsVal2,lnSecVal1,lnSecVal2,lnTotalSeconds1,lnTotalSeconds2
STORE 0 to lnHoursVal1,lnHoursVal2,lnMinsVal1,lnMinsVal2,lnSecVal1,lnSecVal2,lnTotalSeconds1,lnTotalSeconds2
LOCAL lngTotalHours,lngTotalminutes,lngTotalSeconds,lngTotalTime
STORE 0 to lngTotalHours,lngTotalminutes,lngTotalSeconds,lngTotalTime

lnTotalSeconds1 = 1000
lnTotalSeconds2 = 6000
SET step on
lnHoursVal1 = INT(lnTotalSeconds1/3600)
lnMinsVal1  = INT(MOD(lnTotalSeconds1,3600)/60)
lnSecVal1  = MOD(lnTotalSeconds1,60)

lnHoursVal2 = INT(lnTotalSeconds2/3600)
lnMinsVal2  = INT(MOD(lnTotalSeconds2,3600)/60)
lnSecVal2  = MOD(lnTotalSeconds2,60)

IF lnSecVal1+lnSecVal2>60
	lngTotalSeconds = lnSecVal1+lnSecVal2-60
	lngTotalminutes = 1
ELSE
	lngTotalSeconds = lnSecVal1+lnSecVal2
ENDIF
IF lnMinsVal1+ lnMinsVal2 > 60
	lngTotalminutes = lngTotalminutes+((lnMinsVal1+lnMinsVal2)-60)
	lngTotalHours = 1
ELSE
	lngTotalminutes = lngTotalminutes+(lnMinsVal1+lnMinsVal2)
ENDIF
lngTotalHours = lngTotalHours+(lnHoursVal1+lnHoursVal2)

MESSAGEBOX(TRANSFORM(lngTotalHours, "@L 99") + ":" + ;
	TRANSFORM(lngTotalminutes, "@L 99") + ":" + ;
	TRANSFORM(lngTotalSeconds, "@L 99"))

 

[Mike Gagnon]

Wilsondg

Of course that above function can be used as a custom method in a form by adding parameters (lnTotalSeconds1,lnTotalSeconds2)

DO thisform.hoursCalc(nTotalSeconds1,nTotalSeconds2)

And in the Function, the first line is :

LPARAMETERS lnTotalSeconds1,lnTotalSeconds2

Remove lines 5 and 6 and don't declare lnTotalSeconds1 and lnTotalSeconds2 as locals and don't set them as 0 in the function, do it before the function.

 

[wilsondg]

You guys r really the best! this site should be emulated by microsoft or this site should get paid big time by microsoft!....

Tnx rick and mgagnon.

1) How do i put vfp executables in the system tray... (i.e a form) ?

2) Guys, Is there a good resource for learning database network programming in vfp?


Tnx a lot guys!

 

[Mike Gagnon]

wilsondg
Question #1

http://www.hallogram.com/trayx/index.html

Question #2

http://www.hentzenwerke.com/catalogavailability/zcatalogavailability.htm

 

[Mike Gagnon]

wilsondg

Regarding your second question, depending on what version of VFP you have, In chapter 30 of the VFP6.0 there is some information on "Visual FoxPro Enterprise solutions".
Or this for VFp7.0:

http://www.msdn.microsoft.com/libra...ry/en-us/dnfoxgen7/html/vfpapp.asp?frame=true

Or this:

http://www.msdn.microsoft.com/library/en-us/fox7help/html/dgCreating_Enterprise_Solutions.asp