[SOLVED] Representing seconds in TMaskEdit

[Zvoni]

Hi Folks,

either im completely stupid, or i just can't see the solution (I'm guessing the first....):
I'm getting a Duration of a process in seconds from a File as a Double/DateTime
e.g.: 90.16 ("Ninety Point one six seconds")

How do i get a TMaskEdit to show: 01:30:160 ("one minute, thirty seconds, and change....")

Completely stumped......

[TRon]

either im completely stupid, or i just can't see the solution (I'm guessing the first....):

Then let's try a KISS approach 

Assuming the part after the dot is based on tenths (decimal fraction), multiply the value by 1000 to get the duration in milliseconds (make sure to make it an integer), set a TDateTimeValue to 0.0 and use DateUtils incmillisecond function to add the number of milliseconds to that time, see https://www.freepascal.org/docs-html/rtl/dateutils/incmillisecond.html

How do i get a TMaskEdit to show: 01:30:160 ("one minute, thirty seconds, and change....")

You then could take the DateTime value and convert it into a string using FormatDateTime, see https://www.freepascal.org/docs-html/rtl/sysutils/formatdatetime.html, to represent the value as a string. Note the format characters, see also https://www.freepascal.org/docs-html/rtl/sysutils/formatchars.html

Or you could use one of the many other datetime related routines to extract particular parts from that datetime value (for instance decodetime, https://www.freepascal.org/docs-html/rtl/sysutils/decodetime.html).

How you would integrated that into your maskedit... I have no idea 

edit: typo's

[winni]

Hi

First convert your 90.16 seconds relativ to the whole day for the TDateTime format:

Code: Pascal  [Select][+][-]

1. myTime := 90.16 / SecsPerDay;

THen get the simple daily format for a string with TimeToStr: hh:mm:ss
Or get the format that you need with formatDateTime.

Finaly separate the TDateTime into 4 words: hour,min,sec,milliSec.

That's the whole secret.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. const theSecs = 90.16;
3. var myTime : TDateTime;
4.    hour,min,sec,milli: word;
5.  
6. begin
7. myTime := TheSecs/SecsPerDay;
8. showMessage('Imprecise: '+TimeToStr(myTime));
9. showMessage('Precise: '+FormatDateTime('hh:nn:ss.zzz',myTime));
10. DecodeTime(myTime,hour,min,sec,milli);
11. end;

Winni

[Zvoni]

Winni,
you saved my life.
I knew it was something KISS (--> keep it simple stupid);