APC AP9606 Specifications download pdf (Page 90)

82 Implementing UPS Configurations with Microsoft Cluster Server

StopSeconds:=Second + DelaySeconds;

Temp := 0;

if StopSeconds >= 60 then

begin

StopSeconds := Stopseconds - 60;

Temp := 1;

end;

StopMinute:=Minute + DelayMinute + Temp;

Temp := 0;

if StopMinute >= 60 then

begin

StopMinute := StopMinute - 60;

Temp := 1;

end;

StopHour:=Hour + DelayHour + Temp;

Temp := 0;

if StopHour >= 24 then

begin

StopHour := StopHour - 24;

Temp := 1;

end;

str(Hour,strHour);

str(Minute,strMinute);

str(Second,strSeconds);

strTime:=strHour+ strMinute+ strSeconds;

str(StopHour,strStopHour);

str(StopMinute,strStopMinute);

str(StopSeconds,strStopSeconds);

strStopTime:=strStopHour+ strStopMinute+ strStopSeconds;

while (strTime <> strStopTime) do

begin

GetTime(Hour, Minute, Second, Sec100);

if OldSecond <> Second then write('.');

OldSecond := Second;

str(Hour,strHour);

str(Minute,strMinute);

str(Second,strSeconds);

strTime:=strHour+ strMinute+ strSeconds;

end;

donewincrt;

end

else

begin

writeln('*******************************************************************************');

writeln('* Written by Hendrik Ernst *');

writeln('* Version 2000040703 *');

writeln('* C 2000-04-07 *');

writeln('*******************************************************************************');

writeln('* No or too many parameters! *');

writeln('* *');

writeln('* Please use the following syntax: *');

writeln('* delay xxx *');

1 2 ... 85 86 87 88 89 90 91 92 93 94 95 96

Comments to this Manuals

No comments

APC AP9606 Specifications Page 90

Comments to this Manuals

Related products and manuals for Servers APC AP9606