Problem with seconds

[Silvio.Falconi]

I -have
nOreToriche:=150
nSecFlNeg:=3720

nSecTeoriche:=( nOreToriche*60)*60

nOrePresenza:=INT(( (nSecTeoriche-nSecFlNeg) /60)/60 )

but this operation Give me 148.00

if I not use INT it give me 148.97

while it must give me 148:58 ... because I must write to format Hour and not decimal


how I must make ?

[StefanHaupt]

nOrePresenza:= (nSecTeoriche-nSecFlNeg) /60/60
nMin := Int ( nOrePresenza *60/100)

cHour := Str ( Int(nOrePresenza), Lennum (Int(nOrePresenza)) )
cMin := StrZero (nMin,2))

cTime := cHour+":"+cMin

gives you 148:58

[Silvio.Falconi]

nOrePresenza:= (nSecTeoriche-nSecFlNeg) /60/60
nMin := Int ( nOrePresenza *60/100)

cHour := Str ( Int(nOrePresenza), Lennum (Int(nOrePresenza)) )
cMin := StrZero (nMin,2))

cTime := cHour+":"+cMin

gives you 148:58

strange give me 148:89

see it please




dDate:= "01/09/2012"

nGiornimese:= nDaysMonth( dDate )
nDomenicheMese:=GetSundays( nMese, val(nAnno) ) give me the number od sundays on a mounth

nOreToriche :=(nGiornimese*6)-(nDomenicheMese*6) give me 150

nSecTeoriche:=( nOreToriche*60)*60

nOrePresenza:= (nSecTeoriche-nSecFlNeg) /60/60
nMinPresenza := Int ( nOrePresenza *60/100)
cHourPresenza := Str ( Int(nOrePresenza), Lennum (Int(nOrePresenza)) )

cMinPresenza := StrZero (nMinPresenza,2) give me 89

cTimePresenza := cHourPresenza+":"+cMinPresenza

give me 148:89

[Silvio.Falconi]

Found error

nMinPresenza := INT(MOD((nSecTeoriche-nSecFlNeg)/ 60, 60))

NOw give me 148:58 RIGHT !!!