Adding two time values from CTime()

Thanks guys

I'm so close! I have found a way to take the output string of CTime, split it into 3 sections for hours minutes and seconds, then multiply those values by the respective multipliers, and finally add the values together to return a total seconds. I have a function that converts seconds to the HH:MM:SS time format, but the problem is the function takes a  num as input when CTime is returning a string. I don't think it is possible to use StrToVal when the input is constantly changing..

Ha..you are correct. I have figured it out now. Here is the solution for anyone that is curious

MODULE TimerModule
   
PROC ReadTimeInSeconds()
   
    VAR stringdig time;
    VAR stringdig hours;
    VAR stringdig minutes;
   
    VAR string HoursInSeconds;
    VAR string MinutesInSeconds;
    VAR string totalSeconds;
   
    VAR num hours_length;
    VAR num minutes_num;
    VAR num totalSeconds_num;
   
    VAR num duration:=11400;
   
    VAR bool seconds_as_num;
    VAR bool zeroes;
   
   
    time:=CTime();
   
    hours:=StrPart(time,1,2);
    minutes:=StrPart(time,4,2);
   
    hours_length:=strLen(hours);
    zeroes:= StrMemb(hours,1,"0");
   
   IF zeroes = TRUE THEN
        hours:=StrPart(time,2,1);
    ELSE IF zeroes = FALSE THEN
       hours:=StrPart(time,1,2);
    ENDIF
   ENDIF
   
    HoursInSeconds:=StrDigCalc(hours, OpMult, "3600");
   
    MinutesInSeconds:=StrDigCalc(minutes,OpMult,"60");
   
    totalSeconds:=StrDigCalc(HoursInSeconds, OpAdd, MinutesInSeconds);
   
    seconds_as_num:=StrToVal(totalSeconds, totalSeconds_num);
   
        TPWrite("Cycle will finish at " + SecondtoTime(totalSeconds_num + duration));
ENDPROC

 FUNC string SecondtoTime(num s)
VAR num seconds:=0;
VAR num minutes:=0;
VAR num hours:=0;

     s:=Round(s);
     seconds:=0;
     minutes:=0;
     hours:=0;
     
     IF s>=60 THEN
         minutes:= s DIV 60;
         seconds:= s MOD 60;
     ELSE
         seconds:=s;
     ENDIF
     minutes:=Trunc(minutes);
     
     IF minutes >= 60 THEN
        hours:= minutes DIV 60;
        minutes:= minutes MOD 60;
     ELSE
         minutes:=minutes;
     ENDIF
RETURN NumToStr(hours,0) + ":" +  NumToStr(minutes,0);
 ENDFUNC
ENDMODULE

Micky said:

Hello,

why don't you use the function "GetTime - Reads the current time as a numeric value"?

It already returns the day of the week, hour, minute and seconds as a numeric value.

Example from the manual:

weekday := GetTime(\WDay);
hour := GetTime(\Hour);

 For some reason when I try this in RobotStudio it gives me "Invalid Identifier" for the GetTime command