consts.bas

来自「电气控制仿真软件」· BAS 代码 · 共 30 行

'这是Visual Graph启动时候运行的脚本，在这里定义的变量，可以被各个视图共享。
Days=Array(12)
Weeks=Array(7)
'以下定义从一月到十二月的天数数组
days[11]=31
days[0]=31
days[1]=28
if mod(Year(),4)=0
  days[1]=days[1]+1
end if
days[2]=31
days[3]=30
days[4]=31
days[5]=30
days[6]=31
days[7]=31
days[8]=30
days[9]=31
days[10]=30
'以下定义星期名

Weeks[6]='星期六'
Weeks[0]='星期日'
Weeks[1]='星期一'
Weeks[2]='星期二'
Weeks[3]='星期三'
Weeks[4]='星期四'
Weeks[5]='星期五'