%
Function Digital ( counter )
Dim i, MyStr, sCounter
sCounter = CStr(counter)
For i = 1 To 4 - Len(sCounter)
MyStr = MyStr & "
"
Next
For i = 1 To Len(sCounter)
MyStr = MyStr & ""
Next
Digital = MyStr
End Function
Application.Lock
Application("Counter") = Application("Counter") + 1
Application.UnLock
%>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
臺灣電容器製造廠股份有限公司 版權所有 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||