DIM Years AS INTEGER;
DIM Months AS INTEGER;
DIM Days AS INTEGER;
FOR Years=1970 TO Find_Year - 1 STEP 1
IF (Years MOD 4 == 0 AND Years MOD 100 <> 0) OR Years MOD 400 == 0 THEN
Days = Days+366;
ELSE
Days =Days+365;
ENDIF;
NEXT;
FOR Months=1 TO Find_Month - 1 STEP 1
IF Months==1 THEN
Days = Days+31;
ENDIF;
IF Months==2 THEN
IF (Years MOD 4 == 0 AND Years MOD 100 <> 0) OR Years MOD 400 == 0 THEN
Days = Days+29;
ELSE
Days =Days+28;
ENDIF;
ENDIF;
IF Months==3 THEN
Days = Days+31;
ENDIF;
IF Months==4 THEN
Days = Days+30;
ENDIF;
IF Months==5 THEN
Days = Days+31;
ENDIF;
IF Months==6 THEN
Days = Days+30;
ENDIF;
IF Months==7 THEN
Days = Days+31;
ENDIF;
IF Months==8 THEN
Days = Days+31;
ENDIF;
IF Months==9 THEN
Days = Days+30;
ENDIF;
IF Months==10 THEN
Days = Days+31;
ENDIF;
IF Months==11 THEN
Days = Days+30;
ENDIF;
IF Months==12 THEN
Days = Days+31;
ENDIF;
NEXT;
Days = Days+Find_Day - 1;
IF days >= $Date THEN
HTUpdateToCurrentTime( HistTrend.Name );
ELSE
HTUpdateToCurrentTime( HistTrend.Name );
HistTrend.ChartStart = HistTrend.ChartStart - ($Date - Days)*86400;
ENDIF;
'HMI > InTouch 10.1' 카테고리의 다른 글
DAServer 설정 (0) | 2013.08.09 |
---|---|
새 윈도우 만들기 (0) | 2013.03.29 |
태그이름 사전(Tagname Dictionary) (0) | 2013.03.29 |
InTouch 처음실행 하기 (0) | 2013.03.25 |