以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何获取下60个交易日的信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153115)
--  作者：ufo20085
--  发布时间：2020/7/31 14:20:00
--  [求助]如何获取下60个交易日的信息

基础数据是通过爬虫获取到的股票K线交易信息。

 

其中日期字段是文本格式的如   20200102，20200103

那么我如何获取到某天之后的第60个交易日的对应的   datarow  ？因为有周末，节假日等，不能直接在原有日期上加60，
--  作者：有点蓝
--  发布时间：2020/7/31 14:31:00
--  
节假日需要专门建一个表手工录入保存下来。周末做个遍历即可，比如：

Dim dn As Integer = 60
Dim sd As Date = #07/01/2020# ‘开始日期’
Dim dr As DataRow
Do While dn > 0 
    If sd.DayOfWeek > 0 And sd.DayOfWeek < 6 Then 不是周末
        If DataTables("节假日表").Find("日期 = \'" & sd & "\'") Is Nothing Then 不是节假日
            dn = dn - 1
        End If
    End If
    sd = sd.AddDays(1)
Loop
sd = sd.AddDays(-1)
msgbox(sd)