vb.net - vb.netで年と月を日数に変換する

Question

年と月を日数に変換します。最初に年と月に変換し直し、次に日数に変換します。コードは次のようになります。

if len >366
len1 = cstr (math.floor(len/365))
len = len mod 365
len1 = len * 365

前もって感謝します

Answer 1

DateTime.DaysInMonth メソッド

Dim July as integer = 7
' daysInJuly gets 31. 
Dim daysInJuly as integer = System.DateTime.DaysInMonth(2001, July);

次に、Days In Year を取得します。

Private Function GetDaysInAYear(year As Integer) As Integer
    Dim days As Integer = 0
    Dim i As Integer = 1
    While i <= 13
        days += DateTime.DaysInMonth(year, i)
        i++
    End While
    Return days
End Function

Answer 2

1 年の日数を取得するには、次のようにします。

Dim year As Integer = 2012  ' Set year here
Dim totalDaysInYear As Integer = New Date(year, 12, 31).Subtract(New Date(year, 1, 1)).Days

または: (わかりやすい)

Dim year As Integer = 2012    ' Set year here
Dim d1 As New Date(year, 1, 1)
Dim d2 As New Date(year, 12, 31)
Dim totalDaysInYear As Integer = d2.Subtract(d1).Days

月の日数を取得するには:

Dim year As Integer = 2012
Dim DaysInMonth As Integer = Date.DaysInMonth(year, 11)  ' Evaluates Nov 2012

Answer 3

days = years * 365.25
years = days / 365.25