codesys鎸囦护琛�

admin

CoDeSys V2.3鑷�瀹氫箟鍔熻兘鍧楋紙鏃堕棿锛� VAR_OUTPUT

CUR_Y:REAL; (*褰撳墠骞�*)

CUR_M:REAL;(*褰撳墠鏈�*)

CUR_D:REAL;(*褰撳墠鏃�*)

CUR_H:REAL;(*褰撳墠鏃�*)

CUR_Min:REAL;(*褰撳墠鍒�*)

CUR_S:REAL;(*褰撳墠绉�*)

CUR_mS:REAL;(*褰撳墠姣�绉�*)

END_VAR

VAR

DAY_C: DWORD;

AAA: HSRTC;(*鏃堕棿鍔熻兘鍧�*)

BBB: DWORD;(*鎬诲ぉ鏁�*)

CCC: DWORD;(*鑷�1970骞撮棸骞存暟*)

DAY_H: DWORD;

MX: ARRAY [0..12] OF DWORD:=0,31,28,31,30,31,30,2(31),30,31,30,31;(*姣忎釜鏈堢殑澶╂暟*) AX: ARRAY [0..12] OF DWORD;(*鑷虫煇鏈堢殑澶╂暟*)

I1:INT;

END_VAR

----------------------------------------------

-----------------------------------------------

AAA();

BBB:=AAA.ss/86400;

CCC:=(BBB+365)/(4*365);

DAY_H:=(AAA.ss)MOD(86400);

(*褰撳墠骞�*)

CUR_Y:=DWORD_TO_REAL((BBB-CCC)/365+1970);

DAY_C:=(BBB-CCC)MOD(365);

IF (REAL_TO_DWORD(CUR_Y))MOD(4)=0 THEN

MX[2]:=29;

ELSE

MX[2]:=28;

END_IF

AX[0]:=0;

MX[0]:=0;

FOR I1:=1 TO 12 BY 1 DO

AX[I1]:=MX[I1]+AX[I1-1];

(*褰撳墠鏈�,褰撳墠鏃�*)

IF DAY_C>=AX[I1-1] AND DAY_C<AX[I1] THEN

CUR_M:=I1;

CUR_D:=DAY_C-AX[I1-1]+1; ELSE

CUR_M:=CUR_M;

CUR_D:=CUR_D;

END_IF

END_FOR;

(*褰撳墠鏃�*)

CUR_H:=DAY_H/3600;

(*褰撳墠鍒�*)

CUR_Min:=DAY_H/60-CUR_H*60; (*褰撳墠绉�*)

CUR_S:=DAY_H-CUR_H*3600-CUR_Min*60; (*褰撳墠姣�绉�*)

CUR_mS:=AAA.ms;

灏忎笐鍏�鎬猙uku

鐨�     鎯�12313