Siemens S7 into to TOD

cjd1965 · Nov 29, 2009

Hi
I have a MP377 and S7-300

I have a grid of days of the week and times for each day. The times are ints for hrs and mins (hrs=24hr clock)

How can I convert the ints to TOD for comparison with the returns of FC7/8 IEC functions?

Is this just a question of multiplying my ints to get m/secs?

cjd1965 · Nov 29, 2009

Hi From what I can tell it is just a case of converting the hours and minutes required to milliseconds and adding together to get the TOD for a particular day so i will try that out tomorrow

Cheers

cjd1965 · Nov 30, 2009

Hi this is what i came up with, seems to work OK but maybe not the best way

Code:

FUNCTION "INT To Time" : VOID
TITLE =
{ S7_language := '9(2) English (United Kingdom)  25.10.2009  15:07:45' }
VERSION : 0.1
 
VAR_INPUT
  Duration_Hr : INT ; 
  Duration_Min : INT ; 
END_VAR
VAR_OUTPUT
  RunTime : TIME ; 
END_VAR
VAR_TEMP
  Dint_Duration_Hr : DINT ; 
  Dint_Duration_Min : DINT ; 
  Dint_Duration_Hr_T : DINT ; 
  Dint_Duration_Min_T : DINT ; 
END_VAR
BEGIN
NETWORK
TITLE =
      A(    ; 
      L     #Duration_Hr; 
      ITD   ; 
      T     #Dint_Duration_Hr; 
      SET   ; 
      SAVE  ; 
      CLR   ; 
      A     BR; 
      )     ; 
      JNB   _001; 
      L     #Dint_Duration_Hr; 
      L     L#3600000; 
      *D    ; 
      T     #Dint_Duration_Hr_T; 
_001: NOP   0; 
NETWORK
TITLE =
      A(    ; 
      L     #Duration_Min; 
      ITD   ; 
      T     #Dint_Duration_Min; 
      SET   ; 
      SAVE  ; 
      CLR   ; 
      A     BR; 
      )     ; 
      JNB   _002; 
      L     #Dint_Duration_Min; 
      L     L#60000; 
      *D    ; 
      T     #Dint_Duration_Min_T; 
_002: NOP   0; 
NETWORK
TITLE =
      L     #Dint_Duration_Hr_T; 
      L     #Dint_Duration_Min_T; 
      +D    ; 
      T     #RunTime; 
      NOP   0; 
END_FUNCTION

L D[AR2P#0.0] · Dec 1, 2009

Here's an STL implementation:

Code:

      L     #Duration_Hr
      L     60
      *D    
      L     #Duration_Min
      +D    
      L     L#60000
      *D    
      T     #RunTime

cjd1965 · Dec 1, 2009

Hi
Thanks for that.. it is much more compact.

However shouldnt 60 be 3600000 to convert hours to milliseconds or am i missing a trick somewhere

EDIT
I just read read it and your correct.. I missed the conversion of hrs to minutes when i first looked

Cheers

Siemens S7 into to TOD

cjd1965

Lifetime Supporting Member

cjd1965

Lifetime Supporting Member

cjd1965

Lifetime Supporting Member

L D[AR2P#0.0]

Lifetime Supporting Member

cjd1965

Lifetime Supporting Member

Similar Topics