我听劝

代码如下：

FUNCTION "SizeOf" : UDInt

{ S7_Optimized_Access := 'TRUE' }

VERSION : 0.1

   VAR_INPUT

      Data : Variant;

   END_VAR

   VAR_IN_OUT

      BUFFER : Array[*] of Byte;

   END_VAR

   VAR_TEMP

      Pos : DInt;

      ret : Int;

   END_VAR

BEGIN

       #Pos := 0;

       #ret := Serialize(SRC_VARIABLE := #Data, DEST_ARRAY => #BUFFER, POS := #Pos);

       IF #ret = 0 THEN

           #SizeOf := #Pos;

       ELSE

           #SizeOf := 0;

       END_IF;       

END_FUNCTION

除了上述代码外，还需要一个数据块的辅助