Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

convert the hours, minutes, and seconds components of a DTL data type to a string formated hh:mm:ss

Created by: kbouwman at: 7/28/2012 5:21 PM (8 Replies)

Rating (9)

Thanks 5

9 Entries

7/28/2012 5:21 PM	Rate (0)
kbouwman Experienced Member Joined: 4/21/2007 Last visit: 7/25/2022 Posts: 39 Rating: (0)	Chris, I plan to use a function block to convert the hours, minutes, and seconds components of a DTL data type to a string formated hh:mm:ss then mapthe string version of the timeto a string output field on the HMI. Your request prodded me to write the function so I attached it here. Note I have not loaded this in a PLC and tested it yet. I will do so when I get back to my office next week. Note there are two versions of the function, one written in LAD and another in SCL. I used this little project to get started with SCL as I have never used it before. Kevin Attachment DTLtoTimeString.zip (1827 Downloads)
	Last edited by: O_Moderator at: 7/30/2012 11:46 AM new subject after splitting from /tf/WW/en/Posts/77967#top
Suggestion To thank Quote Answer

7/31/2012 1:20 PM	Rate (1)
Cicero Gold Member Joined: 10/10/2005 Last visit: 11/21/2022 Posts: 1909 Rating: (131)	Hello, I recommend to save the variable with the structured data type DT in a DB and you can access to the separate components YEAR, MONTH, DAY, ... with their data type USInt. See the following FAQ: http://support.automation.siemens.com/WW/view/de/43566349 Then change the data type of each component from USint to DInt (function "CONV") and after from DInt to String (function "S_CONV"). See the following examples in the next FAQ: http://support.automation.siemens.com/WW/view/de/48711306 With best regards Cicero

Suggestion To thank Quote Answer

6/28/2016 6:15 PM	Rate (1)
subin Posts: 84 Rating: (18)	I have a requirement for converting DTL to string. In the user defined webpage calling DTL will display DTL#1970-01-01-00:00:00. I wish if can just remove the first characters "DTL#" from the standard DTL format. But couldn't find a solution. The below program will convert the DTL to string This program is not a good idea as its not a simple program. If anyone have a good solution to get a standard display format for date time without any prefix with DTL# I am also not clear why the UINT_TO_STRING function simply create a space infront of the result. to remove the space i used the RIGHT function. #YEAR := UINT_TO_STRING("Parameter".Date_Time.YEAR); #YEAR := RIGHT(IN := #YEAR, L := 4); #MONTH := USINT_TO_STRING("Parameter".Date_Time.MONTH); IF "Parameter".Date_Time.MONTH >= 10 THEN #MONTH := RIGHT(IN := #MONTH, L := 2); ELSE #MONTH := RIGHT(IN := #MONTH, L := 1); END_IF; #DAY := USINT_TO_STRING("Parameter".Date_Time.DAY); #HOUR := USINT_TO_STRING("Parameter".Date_Time.HOUR); #MINUTE := USINT_TO_STRING("Parameter".Date_Time.MINUTE); IF "Parameter".Date_Time.MINUTE >= 10 THEN #MINUTE := RIGHT(IN := #MINUTE, L := 2); ELSE #MINUTE := RIGHT(IN := #MINUTE, L := 1); END_IF; #SECOND := USINT_TO_STRING("Parameter".Date_Time.SECOND); IF "Parameter".Date_Time.SECOND >= 10 THEN #SECOND := RIGHT(IN := #SECOND, L := 2); ELSE #SECOND := RIGHT(IN := #SECOND, L := 1); END_IF; #DATE := CONCAT(IN1 := #DAY, IN2 := '/'); #DATE := CONCAT(IN1 := #DATE, IN2 := #MONTH); #DATE := CONCAT(IN1 := #DATE, IN2 := '/'); #DATE := CONCAT(IN1 := #DATE, IN2 := #YEAR); #TIME := CONCAT(IN1 := #HOUR, IN2:=':'); #TIME := CONCAT(IN1 := #TIME, IN2 := #MINUTE); #TIME := CONCAT(IN1 := #TIME, IN2 := ':'); #TIME := CONCAT(IN1 := #TIME, IN2 := #SECOND); #DTL := CONCAT(IN1:=#DATE,IN2:=#TIME);
subin Posts: 84 Rating: (18)
Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users OPDwin Visu AutoGen_2738802

11/15/2016 2:20 PM	Rate (0)
marcusepw Regular Member Joined: 11/7/2016 Last visit: 7/4/2022 Posts: 6 Rating: (0)	When i encounterd this problem, i used a CASE (see down below) for YEAR, MONTH and DAY that depending on the date put the right nuber in the struct. After that use the block CONCAT for puting the diferent strings together in to one string YEAR-MONTH-DAY Hope this wasnt to confusing CASE "My_Datalog_vars".LocalTime.MONTH OF 1: "My_Datalog_vars".titel_month := '1-'; 2: "My_Datalog_vars".titel_month := '2-'; 3: "My_Datalog_vars".titel_month := '3-'; 4: "My_Datalog_vars".titel_month := '4-'; 5: "My_Datalog_vars".titel_month := '5-'; 6: "My_Datalog_vars".titel_month := '6-'; 7: "My_Datalog_vars".titel_month := '7-'; 8: "My_Datalog_vars".titel_month := '8-'; 9: "My_Datalog_vars".titel_month := '9-'; 10: "My_Datalog_vars".titel_month := '10-'; 11: "My_Datalog_vars".titel_month := '11-'; 12: "My_Datalog_vars".titel_month := '12-'; END_CASE;

Suggestion To thank Quote Answer

11/17/2016 9:21 PM	Rate (0)
adam_ski Bronze Member Joined: 4/9/2010 Last visit: 12/28/2022 Posts: 215 Rating: (29)	Here is a small function block you can call to strip spaces from before the number and to add zero in front of single digits. I hope it helps: #doLoop := true; #tempStr := #theString; // InOut parameter WHILE #doLoop AND LEFT(IN := #tempStr, L := 1) = ' ' DO #tempLen := LEN(#tempStr) - 1; IF #tempLen > 0 THEN #tempStr := RIGHT(IN := #tempStr, L := #tempLen); ELSE #doLoop := false; END_IF; IF LEN(#tempStr) = 1 THEN #tempStr := CONCAT(IN1 := '0', IN2 := #tempStr); END_IF; END_WHILE; #theString := #tempStr; #CleanStr := 0;

Suggestion To thank Quote Answer

7/14/2017 9:34 AM	Rate (3)
last_bu Bronze Member Joined: 5/8/2012 Last visit: 1/28/2023 Posts: 26 Rating: (3)	https://support.industry.siemens.com/cs/document/109479728/library-of-general-functions-(lgf)-for-step-7-(tia-portal)-and-s7-1200-s7-1500?dti=0&lc=en-WW and use DTLtoString

Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users Bokchow anders9000

10/29/2020 10:59 AM	Rate (2)
EliasTokhi-etoMatic Member Joined: 5/4/2018 Last visit: 6/14/2022 Posts: 1 Rating: (2)	Convert from DTL to String #date.Year := UINT_TO_STRING(#DTL.YEAR); #date.Year := RIGHT_STRING(IN := #date.Year, L := 4); #date.Month := USINT_TO_STRING(#DTL.MONTH); IF #DTL.MONTH >= 10 THEN #date.Month := RIGHT_STRING(IN := #date.Month, L := 2); ELSE #date.Month := RIGHT_STRING(IN := #date.Month, L := 1); END_IF; #date.Day := USINT_TO_STRING(#DTL.DAY); IF #DTL.DAY >= 10 THEN #date.Day := RIGHT_STRING(IN := #date.Day, L := 2); ELSE #date.Day := RIGHT_STRING(IN := #date.Day, L := 1); END_IF; #concat."Date" := CONCAT(IN1 := #concat."Date", IN2 := #date.Day); #concat."Date" := CONCAT(IN1 := #concat."Date", IN2 := '/'); #concat."Date" := CONCAT(IN1 := #concat."Date", IN2 := #date.Month); #concat."Date" := CONCAT(IN1 := #concat."Date", IN2 := '/'); #concat."Date" := CONCAT(IN1 := #concat."Date", IN2 := #date.Year); #concat."Date" := CONCAT(IN1 := #concat."Date", IN2 := '-'); // get time and convert to string // #time.Hour := UINT_TO_STRING(#DTL.HOUR); IF #DTL.HOUR >= 10 THEN #time.Hour := RIGHT_STRING(IN := #time.Hour, L := 2); ELSE #time.Hour := DELETE(IN := #time.Hour, L := 1, P := 1); #time.Hour := CONCAT(IN1 := '0', IN2 := #time.Hour); END_IF; #time.Min := USINT_TO_STRING(#DTL.MINUTE); IF #DTL.MINUTE >= 10 THEN #time.Min := RIGHT_STRING(IN := #time.Min, L := 2); ELSE #time.Min := DELETE(IN := #time.Min, L := 1, P := 1); #time.Min := CONCAT(IN1 := '0', IN2 := #time.Min); END_IF; #time.Sec := USINT_TO_STRING(#DTL.SECOND); IF #DTL.SECOND >= 10 THEN #time.Sec := RIGHT_STRING(IN := #time.Sec, L := 2); ELSE #time.Sec := DELETE(IN := #time.Sec, L := 1, P := 1); #time.Sec := CONCAT(IN1 := '0', IN2 := #time.Sec); END_IF; #concat."time" := CONCAT(IN1 := #concat."time", IN2 := #time.Hour); #concat."time" := CONCAT(IN1 := #concat."time", IN2 := ':'); #concat."time" := CONCAT(IN1 := #concat."time", IN2 := #time.Min); #concat."time" := CONCAT(IN1 := #concat."time", IN2 := ':'); #concat."time" := CONCAT(IN1 := #concat."time", IN2 := #time.Sec); #concat.collect := CONCAT(IN1 := #concat."Date", IN2 := '-'); #concat.collect := CONCAT(IN1 := #concat."Date", IN2 := #concat."time"); #stringDTL := #concat.collect;

Suggestion To thank Quote Answer

10/29/2020 5:18 PM	Rate (1)
0_Einstein Diamond Expert Joined: 7/7/2010 Last visit: 1/27/2023 Posts: 13080 Rating: (2123)	A less wordy solution for S7-1200/1500's might work, with some assumptions. DTL->String output format is fixed (not configurable) Does not consider regional date/time standards With those assumptions, an approach I have used for HMI "formatted" date/time stamp: In single instance FB (same DB for every call), create Static string[20] tag as Temp, named timestamp Assign default value to timestamp: 'DD/MM/YYYY-hh:mm:ss' During first run of the FB, save today's date as a static tag using call to local time and set the time to 00:00:00. Each run of the FB, after it has been initialized (run once), compare using TIME_DIFF(local time, saved date). If >= 24 hrs, update saved date, and update timestamp date with new date using After converting DTL data to individual string data // -->> convert DD MM YYYY DTL components to string data first, using // code in previous post // Then use them to update template static tag, #timestamp #timestamp := REPLACE(IN1 := #timestamp, IN2 := #DDString2, L := 2, P := 1); #timestamp := REPLACE(IN1 := #timestamp, IN2 := #MMString2, L := 2, P := 4); #timestamp := REPLACE(IN1 := #timestamp, IN2 := #YYYYString4, L := 4, P := 7); //Now convert DTL time components to individual string data // using code from previous post // use them to update timestamp with current time of day #timestamp := REPLACE(IN1 := #timestamp, IN2 := #hhString2, L := 2, P := 12); #timestamp := REPLACE(IN1 := #timestamp, IN2 := #mmString2, L := 2, P := 15); #timestamp := REPLACE(IN1 := #timestamp, IN2 := #ssString2, L := 2, P := 18); Copy #timestamp to output string tag of FB Instead of a bunch of CONCATs every call, only replace date portion if required. This approach also has the benefit of accounting for daylight savings / holiday time because it references midnight against the current time-of-day before overwriting the date portions. I think it is also easier to understand. One thing I do is insert a comment like this: // 1 // 1234567890123456789 // DD/MM/YYYY-hh:mm:ss Makes finding string positions quickly, greatly reduces errors, and helps visualize the source of the magic numbers in the REPLACE statements. Your solution should work, but if this gets called a lot, this will save a lot of CPU cycles. EliasTokhi-etoMatic Convert from DTL to String ... #stringDTL := #concat.collect;
	science guy
Suggestion To thank Quote Answer

10/26/2022 3:18 PM	Rate (1)
miks Advanced Member Joined: 9/22/2010 Last visit: 1/25/2023 Posts: 2 Rating: (1)	Maybe something like this: FUNCTION "DTL_TO_STRING" : String { S7_Optimized_Access := 'TRUE' } VERSION : 0.1 VAR_INPUT DTL {InstructionName := 'DTL'; LibVersion := '1.0'} : DTL; END_VAR VAR_TEMP year : UInt; chars : Array[0..16] of Char; END_VAR BEGIN // Output format is DD/MM/YY HH:MM:SS #chars[0] := (#DTL.DAY / USINT#10) + 48; #chars[1] := #DTL.DAY MOD USINT#10 + 48; #chars[2] := '/'; #chars[3] := (#DTL.MONTH / USINT#10) + 48; #chars[4] := #DTL.MONTH MOD USINT#10 + 48; #chars[5] := '/'; #year := #DTL.YEAR MOD UINT#100; #chars[6] := UINT_TO_USINT(#year / UINT#10) + 48; #chars[7] := UINT_TO_USINT(#year MOD UINT#10) + 48; #chars[8] := ' '; #chars[9] := (#DTL.HOUR / USINT#10) + 48; #chars[10] := #DTL.HOUR MOD USINT#10 + 48; #chars[11] := ':'; #chars[12] := (#DTL.MINUTE / USINT#10) + 48; #chars[13] := #DTL.MINUTE MOD USINT#10 + 48; #chars[14] := ':'; #chars[15] := (#DTL.SECOND / USINT#10) + 48; #chars[16] := #DTL.SECOND MOD USINT#10 + 48; Chars_TO_Strg(Chars := #chars, pChars := 0, Cnt := 0, Strg => #DTL_TO_STRING); END_FUNCTION

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users anders9000

|

Share this page:

Share this page on...

Follow us on