지난 일수 계산

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;