月周，年月，年答案

【问题标题】：Week of month, month of year,year月周，年月，年
【发布时间】：2018-06-15 05:12:10
【问题描述】：

我想查看月份的周数、年份的月份和年份，但我对月份的星期有疑问这是代码：

Public Class BMW
    Public Shared Function GetWeekNumber() As Integer
        Threading.Thread.Sleep(2000)

        Dim span As TimeSpan = DateTime.Now - New Date(DateTime.Now.Year, 1, 1)
        Return (CInt(span.TotalDays) \ 7) + 1

        If span.TotalDays = 1 Then

            SendKeys.Send("{1}")
            MsgBox(span.TotalDays)

        Else
            MsgBox("chybi1")
end if
end function

【问题讨论】：

使用 datetime.dayofweek()。将日期值设置为每月的第一天，并检查第一天是星期几。然后你就可以弄清楚第二周该怎么做

标签： vb.net datetime dayofweek weekday

【解决方案1】：

Google 是你的朋友：

Private Function GetWeekNumber() As Integer
    Dim span As TimeSpan = DateTime.Now - New Date(DateTime.Now.Year, 1, 1)
    Return (CInt(span.TotalDays) \ 7) + 1
End Function

我什至不确定这就是你要找的东西..

【讨论】：

好的，但是当我检测到 mont 周是第一个，然后检测到发送一个密钥，例如第二周 od 月发送密钥 B 和下一个密钥是可能的？
我不明白
Alessandro 我如何调用此函数，如何从中获取号码。？谢谢
Dim a as integer = GetWeekNumber()

【解决方案2】：

Public Shared Function GetWeekNumber(ByVal datum As Date) As Integer

    Dim weeknumber = Math.Floor(datum.Day / 7 + +1)

    SendKeys.Send(weeknumber)
    Return weeknumber

End Function

【讨论】：