关于variant to db_any

Variant To DB_Any参考论坛连接：

http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1303281&b_id=50&s_id=0&num=9#anch

也可以参考我下面的程序。
FUNCTION_BLOCK "DB_ANY_TEST"
{ S7_Optimized_Access := ''TRUE'' }
VERSION : 0.1
   VAR_INPUT 
      Input_1 : DB_ANY;
   END_VAR

   VAR_IN_OUT 
      InOut_1 : Byte;
      InOut_2 : Int;
      InOut_3 : Real;
   END_VAR

   VAR 
      error : Int;
      recipe : "recipe";
      error2 : Int;
      Static_1 : DB_ANY;
      Static_2 : Array[0..10] of Byte;
      Static_3 : Array[0..10] of Byte;
      i : Int;
      j : Int;
      result : Bool;
   END_VAR

   VAR_TEMP 
      a : Variant;
      v : Variant;
   END_VAR

BEGIN
 #a := DB_ANY_TO_VARIANT(in :=#Input_1, err => #error);
 #v := DB_ANY_TO_VARIANT(in := #Input_1, err => #error);
 
 VariantGet(SRC:=#a,
            DST=>#recipe);
 
 #InOut_2 := #recipe.Element_3;
 #InOut_1 := #recipe.Element_2;
 #InOut_3 := #recipe.Element_4;
 
 
 VariantPut(SRC:=#recipe,
            DST:=#v);
 
 #Static_1:= VARIANT_TO_DB_ANY(in:=#v, err=>#error2);
 
 FOR #i := 0 TO 10 DO
     IF #Static_2[#i] = #Static_3[#i] THEN
         
         #result := TRUE;
         
         ELSE
             #result := FALSE;
         // Statement section IF
             ;
     END_IF;
     ;
 END_FOR;
 "Tag_184" := 1;
 "Tag_185" := 1;
 "Tag_186" := 1;
END_FUNCTION_BLOCK