Displaying a TIME_OF_DAY variable in a WinCC I/O Field

Unfortunately I don't think it is that easy Ikkezelf...

That's what you gotta do, Thanasis:

1. Create a "Unsigend 32-bit value" tag (adress it to your controller's TIME_OF_DAY memory area)

2. Include these project functions:

char* TimeOfDay_Extract(unsigned long TOD, char* Format)
{
struct tm *ptr;
time_t CTime;
char* Display = SysMalloc(49);
long Fuso = 10800; // seconds to ajust your time zone (e.g. 60x60x3)
long DaySeconds = 86400; // seconds in one day (60x60x24)

if(TOD < (DaySeconds * 1000))
{
// convert the miliseconds after "00:00:00:000" to seconds after "01/01/1970 00:00:00"
CTime = (TOD / 1000) + Fuso;
ptr = localtime(&CTime);
strftime(Display, 25, Format, ptr);
return Display;
}
return "overflow";
}

unsigned int TimeOfDay_Make(unsigned short Hours, unsigned short Minutes, unsigned short Seconds)
{
struct tm t;
time_t NormalDate;
unsigned int Shift = 10800; // number of seconds to shift from "31/12/1969 16:00:00" to "01/01/1970 00:00:00"

// number of seconds between "31/12/1969 16:00:00" and "01/01/1970 + Hours:Minutes:Seconds"
t.tm_mday = 1;
t.tm_mon = 0;
t.tm_year = 1970 - 1900;
t.tm_hour = Hours;
t.tm_min = Minutes;
t.tm_sec = Seconds;
t.tm_isdst = 0;
NormalDate = mktime(&t);

// number of miliSeconds between "01/01/1970 00:00:00" and "01/01/1970 + Hours:Minutes:Seconds"
return ((NormalDate - Shift) * 1000);
}

Obs: Pay attention to your time zone. Ajust it in the 4th line of the first script...

3. Make an IOField like the one attached

If you have doubts, let us know...
Best Regards,
Dimitri.

This is another way to do it

TOD is the number of ms since 00:00:00.000

so in VB.. create a function or a subroutine that convert it from a "number" to a string

Than use string in the IO field

This is how i have done it..

Sub TodToString(Byref strTime,Byval data)
Dim hr,min,sec
Dim timeString
Dim temp
Dim totSec

' TOD is defined as number of milliseconds since 00:00:00
' to 23:59:59.999

totSec = data/1000

hr = CInt(totSec / 3600)
temp = CInt(totSec Mod 3600)
min = CInt(temp / 60)
sec = CInt(temp Mod 60)

timeString = hr & ":" & min & ":" & sec

timeString = FormatDateTime(timeString,3)

strTime = timeString
End Sub

New question published by Davebrat is split to a separate thread with the subject How to adjust time as per time zone?.

Best regards
Jen_Moderator