%Function LeftStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=StrLen Then
LeftStr=left(Str,i)&"..."
Exit For
Else
LeftStr=Str
End If
Next
End Function
%>
| 作者: 管理员 来源:网络收集 时间:07月15日 17:03 提交:sztjq 访问: |
由于长期下雨,严重影响本中心的教学进度,经过研究决定取消莲花山、南山、龙华、皇岗等教学点的一切教学进程,同时决定上梅林辅导中心每天 上午9:00--11:00;下午3:30--5:30;晚上7:30--9:30为正常教学时间.
请大家相互转告为谢!
深圳市太极人文化传播有限公司,深圳市武术协会陈氏太极拳辅导(培训)中心。 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |