[SCADA] [스크립트] Timestr 함수를 이용하여 요일을 숫자로 바꿔 출력할 수 있습니다.
2014.07.04

안녕하세요.

CIMON입니다.

 

스크립트를 통하여 요일을 숫자로 출력할 수 있습니다.

다음 예제를 참조하여 주시기 바랍니다.

 

[적용 방법]

1. 데이터베이스에서 아날로그 태그 ‘요일’을 생성합니다.

2. [도구]-[스크립트]에 진입하여 다음과 같이 스크립트를 작성합니다.

* TimeStr 함수를 이용하여 요일 문자열을 aaa변수로 가져옵니다.

If 문으로 비교하여 태그값에 숫자를 저장합니다.

 

Sub Getdate()

Dim aaa as string                 ‘aaa를 문자열로 선언

 

aaa=Timestr(63)            ‘월~일 을 aaa로 변수선언

 

if aaa=”일” then                ‘aaa 값이 일 이면 요일 태그에 1값을 저장합니다.

settagval”요일”,1

 

elseif aaa=”월” then

settagval”요일”,2

 

elseif aaa=”화” then

settagval”요일”,3

 

elseif aaa=”수” then

settagval”요일”,4

 

elseif aaa=”목” then

settagval”요일”,5

 

elseif aaa=”금” then

settagval”요일”,6

 

elseif aaa=”토” then

settagval”요일”,7

 

end if

 

end sub

===========================================

아래 그림과 같이 스크립트를 등록합니다.

3. 버튼 오브젝트를 생성합니다. [버튼정의]-[동작정의]에서 ‘명령식’ 동작을 선택하고 스크립트 실행 명령식을 입력합니다.

RunScript(“Getdate”)

4. CimonX를 실행합니다.

버튼을 눌러 스크립트를 동작시키면 PC의 시간에 따라 금일의 요일이 숫자로 출력됩니다.

 

언제나 고객을 먼저 생각하는 CIMON이 되겠습니다.

감사합니다.