Question

我不知道它是如何被称为那就是为什么我称它为时间跨度。我还没有任何想法如何编码它，但这就是我想做的事情

Dim sy as String

If (June 2015) to (March 2016) Then

sy = "2015-2016"

End if

我知道这很简单，但我不知道如何编写2015年6月至2016年的代码

提前感谢您的帮助

编辑：现在我得到了这段代码

我用来做这个

Dim value as DateTime = New DateTime(2017, 4, 1)
Dim value1 as DateTime = New DateTime(2018, 4, 1)

    Dim sy as String
    If my.computer.clock.localtime <= value then
    sy = "2016-2017"
    ElseIf my.computer.clock.localtime <= value1 then
    sy = "2017-2018"
    Else
    msgbox("Check your current date")
    End if

但是当计算机的时间改为2015年时，它显示了＆＃34; 2016-2015＆＃34;

Answer 1

所以我使用4个文本框来提供您需要的数据作为变量。 2年，2月。您还需要考虑在yeae中留下多少飞蛾并添加下一年的月份数。如果你跨越一年以上，你也必须考虑到这一点。这里的O.K是在按钮事件中没有错误检查的片段：

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Dim firstÝear As Integer = CInt(TextBox3.Text)
    Dim secondYear As Integer = CInt(TextBox4.Text)
    Dim firstmonthnumber As Integer = CInt(TextBox5.Text) 'months number in first year
    Dim secondmonthnumber As Integer = CInt(TextBox6.Text)
    Dim d1 As DateTime = New DateTime(firstÝear, firstmonthnumber, 1)
    Debug.Print(d1.ToString)
    Dim d2 As DateTime = New DateTime(secondYear, secondmonthnumber, 1)
    Debug.Print(d2.ToString)
    Dim M As Integer = Math.Abs((d1.Year - d2.Year)) - 1
    Debug.Print(M.ToString)
    Dim myYear As Integer = 12 - firstmonthnumber 'month left to the end of first year
    Dim months As Integer = ((M * 12) + Math.Abs((d1.Month - d2.Month))) + myYear
    Debug.Print(months.ToString)
End Sub

该程序将知道时间跨度if else vb.net

1 个答案: