該程序將知道時間跨度如果其他vb.net

-1

我不知道它是如何稱爲多數民衆贊成爲什麼我稱之爲時間跨度。我沒有任何想法，但如何代碼，但這個就是我想要做的該程序將知道時間跨度如果其他vb.net

Dim sy as String 

If (June 2015) to (March 2016) Then 

sy = "2015-2016" 

End if

我知道這很簡單，但我不知道如何在2015年編寫月至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時，它顯示「2016-2015」

來源

2017-02-16 Hawiie13

使用兩個'Date'變量或把它們放入一個新類與'StartTime'和'EndTime'財產。 –

...或使用此庫：https://www.codeproject.com/Articles/168662/Time-Period-Library-for-NET –

你可以給我示例代碼我還沒有任何想法關於那 – Hawiie13

因此，我使用4個文本框來提供所需的數據作爲變量。 2年和2個月。你還需要考慮葉子中剩下多少飛蛾，並添加下一年的月份數。如果你跨度超過一年，你也必須考慮到這一點。 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

來源

2017-02-16 16:12:53 minimalist

該程序將知道時間跨度如果其他vb.net

回答

相關問題