量学论坛 › 周末讲座 › 量柱擒涨停十步之法

潮起潮落太阳升 发表于 2012-11-25 21:14

学习学习...

赵明廉 发表于 2012-11-25 21:21

Function Custom_GL(NUMBER) 'Custom_GL表示软件要调用的函数名,这个不可改变
Custom_GL = False 'False表示NUMBER不会被过滤,首先初始化设置号码不被过滤

BW = CInt(Left(NUMBER, 1)) 'BW表示号码的百位
SW = CInt(Mid(NUMBER, 2, 1)) 'SW表示号码的十位
GW = CInt(Right(NUMBER, 1)) 'GW表示号码的个位

If BW < SW Then
    S = BW
    BW = SW
    SW = S
End If

If BW < GW Then
    S = BW
    BW = GW
    GW = S
End If

If SW < GW Then
    S = SW
    SW = GW
    GW = S
End If

S = SW 'S是中间数了


T = "%条件%"

If InStr("," & T & ",", "," & S & ",") <> 0 Then
    Custom_GL = True '如果满足上面条件的就是true,也就是号码就会被过滤掉
Else
    Custom_GL = False
End If


''''''''''''''''''
''''''''''''''''''
End Function '这是语法的结尾,请不要删了~~
''''''''''''''''''
''''''''''''''''''

神奇的手 发表于 2012-11-26 10:32

楼主辛苦了

证券先锋 发表于 2012-11-26 22:48

:loveliness:

农夫喜黄牛 发表于 2012-11-27 17:00

好好学习天天向上

狐狸糊涂 发表于 2012-11-27 21:45

学习中

孙开杰 发表于 2012-11-28 07:00

好好学习天天向上

一根筋 发表于 2012-11-28 09:04

谢谢分析啊

真的假的？？ 发表于 2012-11-29 08:02

http://116.255.201.174/att/album/201211/27/152448mz78llwomtgkoxmw.gif
http://116.255.201.174/att/album/201211/27/1524443vfwwz66nnmuqg6q.gif
http://116.255.201.174/att/album/201211/27/152500752u5ix82io2f0q8.gif
http://116.255.201.174/att/album/201211/27/152147d48t74id8oi6k8mr.gif

非常名 发表于 2012-11-29 08:31

谢谢分享。。。。。

一根筋 发表于 2012-11-29 09:20

谢谢分析啊

妙善 发表于 2012-11-29 10:42

谢谢分享，

超低碳 发表于 2012-11-29 15:35

学习学习学习

西征将军 发表于 2012-11-29 15:47

请输入关键字

寻燕长老 发表于 2012-11-29 21:09

谢谢分享，学习

查看完整版本: 量柱擒涨停十步之法