主题：求助！导入EXCEL表数据全部为文本

已经导入的日期怎么判断这个日期是否是周六或周日，求代码

 

循环每一行，读取每一行的日期值，判断

 

http://www.foxtable.com/webhelp/topics/0229.htm

 

我只要挑出是周六或周日的,有好的代码不

 

必须循环每一行，判断是否周六周日，如果是，给一列辅佐列赋值。

 

以后筛选的时候，直接根据辅佐列挑选。

求查找周六，周日代码，已增加列，表达式不能解决问题

 

参考代码

 

For Each r As Row In Tables("表A").rows
    If cdate(r("日期")).DayOfWeek = 0 OrElse cdate(r("日期")).DayOfWeek = 6 Then
        r("第二列") = cdate(r("日期")).DayOfWeek
    End If
Next

已增加周六周日判断列，并在导入自动计算出，是否周六周日，新增了调休表，按通知输入调为休假的或工作日的，怎么写代码将二者排查后得出是节假日的记录，均在调休后那个列显示。非常感谢！项目文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试项目.table

参考代码

 

For Each r As Row In Tables("明细表").rows
    r("周六周日") = Nothing
    If cdate(r("交易时间")).DayOfWeek = 0 OrElse cdate(r("交易时间")).DayOfWeek = 6 Then
        r("周六周日") = cdate(r("交易时间")).DayOfWeek
        For Each dr As DataRow In DataTables("调休表").Select("")
            For i As Integer = 1 To 4
                Dim cname As String = "调为工作日" & i
                If dr(cname) <> Nothing AndAlso cdate(r("交易时间")).Date = dr(cname) Then
                    r("周六周日") = Nothing
                    goto label2
                End If
            Next
        Next
        label2:
    Else
        For Each dr As DataRow In DataTables("调休表").Select("")
            For i As Integer = 1 To 7
                Dim cname As String = "调为休假日" & i
                If dr(cname) <> Nothing AndAlso cdate(r("交易时间")).Date = dr(cname) Then
                    r("周六周日") = dr("调休原因")
                    goto label1
                End If
            Next
        Next
        label1:
    End If
Next

 

1、之前列出的周六周日列显示的是英文，周六周日，可直接显示为中文的“星期六、星期天”吗？

1、msgbox(format(date.today, "dddd"))

 

2、

 

For Each kh As String In DataTables("明细表").GetValues("卡号")
    Dim drs = DataTables("明细表").Select("卡号='" & kh & "'", "交易时间")
    For i As Integer = 1 To drs.count-1
        Dim sp As TimeSpan = drs(i)("交易时间") - drs(i-1)("交易时间")
        If sp.TotalHours <= 1 Then
            drs(i)("一小时内") = True
            drs(i)("三小时内") = Nothing
            drs(i)("一天内") = Nothing
        ElseIf sp.TotalHours <= 3 Then
            drs(i)("一小时内") = Nothing
            drs(i)("三小时内") = True
            drs(i)("一天内") = Nothing
        ElseIf sp.TotalHours <= 24 Then
            drs(i)("一小时内") = Nothing
            drs(i)("三小时内") = Nothing
            drs(i)("一天内") = True
        End If
    Next
Next