Navigation

Extract Hour, Minutes and Secs, in Integer form from TOD format - SCL Code

Created by: madnesssm at: 11/5/2012 11:36 AM (11 Replies)

Rating (1)

Thanks 4

Result pages:: |; 1 | 2; |

12 Entries

Entries per page: 10 | all

11/5/2012 11:36 AM	Rate (0)
madnesssm Advanced Member Joined: 6/11/2012 Last visit: 7/12/2025 Posts: 41 Rating: (0)	Hi all, does somebody can me send scl code for converting?
	Last edited by: CS Moderator at: 11/5/2012 10:59 PM new subject after splitting from /tf/WW/en/Posts/80424#top
Suggestion To thank Quote Answer

11/5/2012 4:11 PM	Rate (1)
smiffy Platinum Expert Joined: 1/17/2007 Last visit: 11/20/2025 Posts: 1561 Rating: (540)	Here you go. [code] FUNCTION_BLOCK FB900 TITLE = 'TD TO INT' AUTHOR : Smiffy VAR_OUTPUT iYear : INT; // Integer value of year iMonth : INT; // Integer value of month iDay : INT; // Integer value of day iHour : INT; // Integer value of hour iMin : INT; // Integer value of minute iSec : INT; // Integer value of second iMSec : INT; // Integer value of millisecond iWeekday : INT; // Integer value of day of week END_VAR VAR_TEMP DateAndTime : DT; // Date and time structure pointer to allow structure address below to be set DaT AT DateAndTime : STRUCT // Date and time structure to allow DT type to be disassembled Year : BYTE; // Current year (1990 to 2089 - 2 digits) Month : BYTE; // Current month (1 to 12) Day : BYTE; // Current day (1 to 31) Hour : BYTE; // Current hour (0 to 23) Minute : BYTE; // Current minute (0 to 59) Second : BYTE; // Current second (0 to 59) MSD : BYTE; // Most significant decade of current ms (0 to 99) LSD_Weekday : BYTE; // MSB = Least significant decade of current ms (0 to 9), LSB = Current weekday (1=Sunday to 7=Saturday) END_STRUCT; RetVal : INT; // Return Value of FC calls END_VAR RetVal := READ_CLK(CDT := DateAndTime); IF RetVal >= 0 THEN // If READ_CLK FC call was successful iYear := BCD_TO_INT(DaT.Year); // Extract 2 digit year (yy) from DT and convert to integer format iMonth := BCD_TO_INT(DaT.Month); // Extract 2 digit month (mm) from DT and convert to integer format iDay := BCD_TO_INT(DaT.Day); // Extract 2 digit day (dd) from DT and convert to integer format iHour := BCD_TO_INT(DaT.Hour); // Extract 2 digit day (dd) from DT and convert to integer format iMin := BCD_TO_INT(DaT.Minute); // Extract 2 digit min (mm) from DT and convert to integer format iSec := BCD_TO_INT(DaT.Second); // Extract 2 digit sec (ss) from DT and convert to integer format iMSec := (BCD_TO_INT(DaT.MSD) * 10) + (BCD_TO_INT(DaT.LSD_Weekday AND 16#F0) / 10); // Get ms value iWeekDay := BCD_TO_INT(DaT.LSD_WeekDay AND 16#F); // Extract 2 digit day (dd) from DT and convert to integer format END_IF; END_FUNCTION_BLOCK [/code]
	Programming today is the race between software engineers building bigger and better idiot proof programs, and the universe producing bigger and better idiots. So far, the universe is winning...
Suggestion To thank Quote Answer

11/5/2012 8:31 PM	Rate (0)
madnesssm Advanced Member Joined: 6/11/2012 Last visit: 7/12/2025 Posts: 41 Rating: (0)	I have problem. My retValue variable is allways set to 0. Do you know what can be a problem?

Suggestion To thank Quote Answer

11/5/2012 10:31 PM	Rate (0)
dchartier Grandmaster Joined: 9/27/2006 Last visit: 12/25/2025 Posts: 12474 Rating: (2722)	Hello madnesssm;; Please show your code (paste it on your reply). smiffy used RetVal as avariable name, did you change it to RetValue in the middle of your code? Hope this helps, Daniel Chartier
	Last edited by: dchartier at: 11/5/2012 10:31 PM
Suggestion To thank Quote Answer

11/5/2012 11:55 PM	Rate (0)
madnesssm Advanced Member Joined: 6/11/2012 Last visit: 7/12/2025 Posts: 41 Rating: (0)	I used Smiffy's code. I attached my project. Please try to help. I need this emergency Attachment Timer.zip (1000 Downloads)
	Last edited by: madnesssm at: 11/5/2012 11:58 PM
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users smiffy

11/6/2012 7:59 AM	Rate (0)
yy1 Posts: 535 Rating: (112)	Dear madnesssm, 0 is a valid RetVal, because bit 15 is not set (have a look at the attached picture). smiffy's looks good to me. Best regards, yy1 Attachment RetVal.JPG (1197 Downloads)
yy1 Posts: 535 Rating: (112)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users smiffy

11/6/2012 8:53 AM	Rate (0)
madnesssm Advanced Member Joined: 6/11/2012 Last visit: 7/12/2025 Posts: 41 Rating: (0)	But what is the problem then? All other values are 0 too. Does this function work in simulation mode? It looks like that plc time doesn't work..... May i need first set plc time, somewhere?

Suggestion To thank Quote Answer

11/6/2012 11:16 AM	Rate (0)
smiffy Platinum Expert Joined: 1/17/2007 Last visit: 11/20/2025 Posts: 1561 Rating: (540)	My code definitely work, I tested it. Not sure why it doesn't work for you though. If RetVal is zero, then the READ_CLK call has worked fine. Can you use the online debug within SCL to see what might be going wrong?
	Programming today is the race between software engineers building bigger and better idiot proof programs, and the universe producing bigger and better idiots. So far, the universe is winning...
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users IA Korea

11/6/2012 11:52 AM	Rate (0)
madnesssm Advanced Member Joined: 6/11/2012 Last visit: 7/12/2025 Posts: 41 Rating: (0)	May i first synchronize time on the plc via time on pc, or something like that? I see that your function looks good, but when i open Data block CDT input variable is first from date range, and doesn't change........

Suggestion To thank Quote Answer

11/8/2012 2:45 PM

Rate (0)

hdhosseini

Diamond Expert

Joined: 1/28/2009

Last visit: 12/25/2025

Posts: 6885

Rating:

(1368)

madnesssm
May i first synchronize time on the plc via time on pc, or something like that?
I see that your function looks good, but when i open Data block CDT input variable is first from date range, and doesn't change........

Hello,

I support idea of my friend "smiffy",You may have same
problem previously solved here:

Set and read plc time

Variable "Date and Time" can not be monitored as a whole in a
variable table.It is consisted of 8 byte in which data related to
each record stored as BCD format.

As it mentioned beofre, you can not monitor "Date and Time"
variable as whole as you tried to do.Please try to monitor each
element described here:
Byte Contents Example

0 Year B#16#04

1 Month B#16#08

2 Day B#16#05

3 Hour B#16#08

4 Minute B#16#05

5 Second B#16#05

6 The two highest value digits of MSEC B#16#25

7 (4 MSB) The two lowest value digits of MSEC B#16#0

7 (4 LSB) Day of week:
1: Sunday,
2: Monday,
3: Tuesday,
4: Wednesday,
5: Thursday,
6: Friday,
7: Saturday B#16#5

in your case, you can try DB1.DBB6(in VAT) for year or
DB1.DBB7 for month and others.It is also possible to change
current Date and Time of CPU in LAD/STL/FBD editor.

Best regards,
Hamid Hosseini

Last edited by: hdhosseini at: 11/8/2012 2:46 PM

Demo Channel on Youtube

This contribution was helpful to

1 thankful Users

smiffy

Share this page:

Share this page on...

SiePortal

Extract Hour, Minutes and Secs, in Integer form from TOD format - SCL Code

Created by: madnesssm at: 11/5/2012 11:36 AM (11 Replies)

Rating (1)

Thanks 4

12 Entries

Entries per page: 10 | all

madnesssm

Last edited by: CS Moderator at: 11/5/2012 10:59 PM

smiffy

madnesssm

dchartier

Last edited by: dchartier at: 11/5/2012 10:31 PM

madnesssm

Attachment

Last edited by: madnesssm at: 11/5/2012 11:58 PM

This contribution was helpful to

yy1

Attachment

This contribution was helpful to

madnesssm

smiffy

This contribution was helpful to

madnesssm

hdhosseini

Set and read plc time

Last edited by: hdhosseini at: 11/8/2012 2:46 PM

This contribution was helpful to

12 Entries

Entries per page: 10 | all

Follow us on

SiePortal

Created by: madnesssm at: 11/5/2012 11:36 AM (11 Replies)

Rating (1) Thanks 4

12 Entries

Entries per page: 10 | all

Last edited by: CS Moderator at: 11/5/2012 10:59 PM

Last edited by: dchartier at: 11/5/2012 10:31 PM

Attachment

Last edited by: madnesssm at: 11/5/2012 11:58 PM

This contribution was helpful to

Attachment

This contribution was helpful to

This contribution was helpful to

Last edited by: hdhosseini at: 11/8/2012 2:46 PM

This contribution was helpful to

12 Entries

Entries per page: 10 | all

Follow us on

Rating (1)

Thanks 4