Bad Time Format Sting 1

[LouieGrandie]

In the report there is a time field which is displayed as 13.98062 and I want to display as hh:mm:ss. Every formula I use returns a Bad Time Format String. Any suggestions.

Visit Sage's Online Community

http://community.sagemas.com/sagemas/?category.id=SageMAS90and200Disc

 

[fisheromacse]

i am going to guess that what you have is decimal time.
so, what your Hours/Minutes/Seconds time would be it: 13 hours, 58 minutes and 50 seconds?
can you verify that this is correct?

 

[LouieGrandie]

That is very correct.

Visit Sage's Online Community

http://community.sagemas.com/sagemas/?category.id=SageMAS90and200Disc

 

[fisheromacse]

my brain is running out of caffeine power!
i have the hours and minutes working nicely, but am not able to think through the seconds correctly for some reason.
here is what i put together so far:

stringvar tdec := totext(13.98062,5);
numbervar hrs := truncate(val(LEFT((tdec),2)),0);
numbervar mins := truncate(val(mid(tdec,4,2)) * .60,0);
time(hrs,mins,00)

 

[fisheromacse]

ok, a fresh day and a fresh mind running on a frsh pot of coffee and it all seems much clearer now.

try this:

//{@ConvDigTime}
stringvar tdec := totext({YourTable.DigitalTimeField},6);
numbervar indec := instr(tdec,".");
numbervar lendec := len(tdec);
numbervar minst := (val(mid(tdec,indec,lendec)))*60;
numbervar inst := remainder(minst,1);
numbervar lenst := len(totext(minst));

numbervar hrs := floor(val(tdec));
numbervar mins := floor(minst);
numbervar secs := floor((inst)*60);

time(hrs,mins,secs)

 

[LouieGrandie]

Thanks that works. Note I had to take out the ",6" in the first line to get it to work.

Visit Sage's Online Community

http://community.sagemas.com/sagemas/?category.id=SageMAS90and200Disc

 

[SkipVought]

rule of thumb, thumb, thumb...

convert date/time values that are NOT in DAYS to DAYS and then use Date/Time formatting. Easy peasy!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[CoSpringsGuy]

alternate solution.......

WhilePrintingRecords;
numbervar hrs := int({YourTable.DigitalTimeField});
numbervar min := ({YourTable.DigitalTimeField} - int({YourTable.DigitalTimeField}))*60;
numbervar sec := (min - int(min))*60;
time(hrs,int(min),int(sec))

_____________________________________
Crystal Reports 2011 and XI
Intersystems Cache 2012 ODBC connection