Hallo vanDyk,

ich habe mal ein kleines Programm geschrieben.

DATA_BLOCK DB1
STRUCT
zeit_1 : S5TIME;
zeit_2 : S5TIME;
zeit_3 : S5TIME;
END_STRUCT
BEGIN

END_DATA_BLOCK

FUNCTION FC1 : S5TIME
VAR_INPUT
dbn : INT;
dbw : INT;
END_VAR
VAR_TEMP
x : WORD;
t AT x : S5TIME;
END_VAR
BEGIN
x := WORD_TO_BLOCK_DB (INT_TO_WORD (dbn)).dw[dbw];

FC1 := t;
END_FUNCTION

ORGANIZATION_BLOCK OB1
VAR_TEMP
OB1_EV_CLASS : BYTE ; //Bits 0-3 = 1 (Coming event), Bits 4-7 = 1 (Event class 1)
OB1_SCAN_1 : BYTE ; //1 (Cold restart scan 1 of OB 1), 3 (Scan 2-n of OB 1)
OB1_PRIORITY : BYTE ; //Priority of OB Execution
OB1_OB_NUMBR : BYTE ; //1 (Organization block 1, OB1)
OB1_RESERVED_1 : BYTE ; //Reserved for system
OB1_RESERVED_2 : BYTE ; //Reserved for system
OB1_PREV_CYCLE : INT ; //Cycle time of previous OB1 scan (milliseconds)
OB1_MIN_CYCLE : INT ; //Minimum cycle time of OB1 (milliseconds)
OB1_MAX_CYCLE : INT ; //Maximum cycle time of OB1 (milliseconds)
OB1_DATE_TIME : DATE_AND_TIME ; //Date and time OB1 started
END_VAR
VAR_TEMP
t : S5TIME;
BEGIN
t := FC1 (dbn := 1, dbw := 0);
t := FC1 (dbn := 1, dbw := 2);
t := FC1 (dbn := 1, dbw := 4);

END_ORGANIZATION_BLOCK

ORGANIZATION_BLOCK OB100
VAR_TEMP
OB1_EV_CLASS : BYTE ; //Bits 0-3 = 1 (Coming event), Bits 4-7 = 1 (Event class 1)
OB1_SCAN_1 : BYTE ; //1 (Cold restart scan 1 of OB 1), 3 (Scan 2-n of OB 1)
OB1_PRIORITY : BYTE ; //Priority of OB Execution
OB1_OB_NUMBR : BYTE ; //1 (Organization block 1, OB1)
OB1_RESERVED_1 : BYTE ; //Reserved for system
OB1_RESERVED_2 : BYTE ; //Reserved for system
OB1_PREV_CYCLE : INT ; //Cycle time of previous OB1 scan (milliseconds)
OB1_MIN_CYCLE : INT ; //Minimum cycle time of OB1 (milliseconds)
OB1_MAX_CYCLE : INT ; //Maximum cycle time of OB1 (milliseconds)
OB1_DATE_TIME : DATE_AND_TIME ; //Date and time OB1 started
END_VAR
BEGIN
db1.zeit_1 := T#0h_1m_9s_996ms;
db1.zeit_2 := t#1h_0m_0s_0ms;
db1.zeit_3 := t#2h_10m_10s_0ms;

END_ORGANIZATION_BLOCK

Der OB100 dient nur dazu, den Datenbaustein auszufüllen. Als ich die Variablen direkt ausfüllen wollte, habe ich immer einen Typkonflikt bekommen und mich nicht weiter damit auseinandergesetzt.

Im OB1 wird der FC1 aufgerufen. Diesen kann man die DB-Nummer und das Datenwort der S5Time-Variable geben und er gibt dann die S5-Time zurück.

Der Trick im FC1 ist die temporäre Variable vom Typ WORD, die aus dem DB gelesen wird und die at-Deklaration der S5TIME auf diese Variable.

So kannst Du ein WORD aus dem DB laden und dann ohne Typkonflikt als S5TIME an das Funktionsergebnis übertragen.

War das das, was Du gesucht hast?

Viele Grüße
Thomas