如何根据当前日期时间发现财政年度+；asp.net

财政年度从4月1日开始，至明年3月底结束。所以我只需要在新的财政年度插入数据，否则只需更新数据。 以下是我的源代码：

 Dim nowYear As Integer
    nowYear = Date.Now.Year
    Dim nowMonth As Integer
    nowMonth = Date.Now.Month
    Dim NEWYEAR As Integer
    Dim reccount As Integer = 0
    If nowMonth >= 4 Then
        NEWYEAR = nowYear + 1
    End If


    cmd = New SqlCommand
    cmd.CommandText = "SELECT COUNT(*) FROM ScanningData WHERE ASSET_NUMBER=" & AssetTxt.Text & " AND LOC_DEPT=" & DeptCodeTxt.Text & " and UPDATE_DATE='" & NEWYEAR & "';"
  cmd.Connection = Conn
    rdmysql = cmd.ExecuteReader
    If rdmysql.Read = True Then
        reccount = Val(rdmysql.GetInt32(0))
    End If
    cmd.Dispose()
    rdmysql.Close()

    If reccount = 0 Then
        strsql = "INSERT INTO ScanningData"
        strsql += "(ASSET_NUMBER,LOC_DEPT,DEPT_DESCRIPTION,MAJOR_CATEGORY,DATE_PLACED_IN_SERVICE,LOC_AREA,TAG_NUMBER,CURRENT_UNITS,DESCRIPTION,MYR_COST_BY_UNIT,COST_BY_UNIT,DEPRN_RESERVE_BY_UNIT,DATE_RETIRED,UPDATE_DATE,UPDATE_BY) VALUES "
        strsql += "(@ID, @CODE, @DEPT, @CATEGORY, @SERVICEDATE, @AREA, @TAG, @UNIT, @DESCRIPTION, @MYRCOST, @USDCOST, @DEPR, @RETIREDDATE, @UPDATEDATE, @NAME);"
        cmd = New SqlCommand
        cmd.Connection = Conn

        cmd.Parameters.AddWithValue("@ID", AssetTxt.Text)
        cmd.Parameters.AddWithValue("@CODE", DeptCodeTxt.Text)
        cmd.Parameters.AddWithValue("@DEPT", DeptTxt.Text)
        cmd.Parameters.AddWithValue("@CATEGORY", CategoryTxt.Text)
        cmd.Parameters.AddWithValue("@SERVICEDATE", ServiceTxt.Text)
        cmd.Parameters.AddWithValue("@AREA", LocTxt.Text)
        cmd.Parameters.AddWithValue("@TAG", TagTxt.Text)
        Dim unit As Decimal = Decimal.Parse(UnitTxt.Text)
        cmd.Parameters.AddWithValue("@UNIT", unit)
        cmd.Parameters.AddWithValue("@DESCRIPTION", DescTxt.Text)
        Dim MYRCost As Decimal = Decimal.Parse(CostMYRTxt.Text)
        cmd.Parameters.AddWithValue("@MYRCOST", MYRCost)
        Dim USDCost As Decimal = Decimal.Parse(CostUSDTxt.Text)
        cmd.Parameters.AddWithValue("@USDCOST", USDCost)
       Dim Depr As Decimal = Decimal.Parse(DeprTxt.Text)
        cmd.Parameters.AddWithValue("@DEPR", Depr)
         cmd.Parameters.AddWithValue("@RETIREDDATE", RetiredDateTxt.Text)
        cmd.Parameters.AddWithValue("@UPDATEDATE", ServerDate)
        cmd.Parameters.AddWithValue("@NAME", UserIDLabel.Text)
        cmd.CommandText = strsql
        cmd.ExecuteNonQuery()

    End If

---

目前，我的代码总是插入，尽管它在同一财政年度。只有在同一财政年度，我看不出所有日期的意义时，才应该更新。如果存在具有复合主键的记录，则必须对其进行更新。如果它不存在，则必须将其插入。这是真的，没有规定日期

Private Sub UpateOrInsertAssets()
        Dim strsql As String
        Dim cn As New SqlConnection("Your connection string")
        Dim cmd As New SqlCommand("SELECT COUNT(*) FROM ScanningData WHERE ASSET_NUMBER= @Asset AND LOC_DEPT= @Dept;", cn)
        cmd.Parameters.AddWithValue("@Asset", AssetTxt.Text)
        cmd.Parameters.AddWithValue("@Dept", DeptCodeTxt.Text)
        cn.Open()
        Dim reccount As Integer = CInt(cmd.ExecuteScalar)
        cn.Close()
        cmd.Dispose()
        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.Parameters.AddWithValue("@ID", AssetTxt.Text)
        cmd.Parameters.AddWithValue("@CODE", DeptCodeTxt.Text)
        cmd.Parameters.AddWithValue("@DEPT", DeptTxt.Text)
        cmd.Parameters.AddWithValue("@CATEGORY", CategoryTxt.Text)
        cmd.Parameters.AddWithValue("@SERVICEDATE", ServiceTxt.Text)
        cmd.Parameters.AddWithValue("@AREA", LocTxt.Text)
        cmd.Parameters.AddWithValue("@TAG", TagTxt.Text)
        Dim unit As Decimal = Decimal.Parse(UnitTxt.Text)
        cmd.Parameters.AddWithValue("@UNIT", unit)
        cmd.Parameters.AddWithValue("@DESCRIPTION", DescTxt.Text)
        Dim MYRCost As Decimal = Decimal.Parse(CostMYRTxt.Text)
        cmd.Parameters.AddWithValue("@MYRCOST", MYRCost)
        Dim USDCost As Decimal = Decimal.Parse(CostUSDTxt.Text)
        cmd.Parameters.AddWithValue("@USDCOST", USDCost)
        Dim Depr As Decimal = Decimal.Parse(DeprTxt.Text)
        cmd.Parameters.AddWithValue("@DEPR", Depr)
        cmd.Parameters.AddWithValue("@RETIREDDATE", RetiredDateTxt.Text)
        cmd.Parameters.AddWithValue("@UPDATEDATE", ServerDate)
        cmd.Parameters.AddWithValue("@NAME", UserIDLabel.Text)
        If reccount = 0 Then 'The record doesn't exist
            strsql = "INSERT INTO ScanningData"
            strsql += "(ASSET_NUMBER,LOC_DEPT,DEPT_DESCRIPTION,MAJOR_CATEGORY,DATE_PLACED_IN_SERVICE,LOC_AREA,TAG_NUMBER,CURRENT_UNITS,DESCRIPTION,MYR_COST_BY_UNIT,COST_BY_UNIT,DEPRN_RESERVE_BY_UNIT,DATE_RETIRED,UPDATE_DATE,UPDATE_BY) VALUES "
            strsql += "(@ID, @CODE, @DEPT, @CATEGORY, @SERVICEDATE, @AREA, @TAG, @UNIT, @DESCRIPTION, @MYRCOST, @USDCOST, @DEPR, @RETIREDDATE, @UPDATEDATE, @NAME);"
            cmd.CommandText = strsql
            cn.Open()
            cmd.ExecuteNonQuery()
            cn.Close()
        ElseIf reccount = 1 Then 'The record exists
            cmd.CommandText = "Update ScanningData Set ASSET_NUMBER = @ID,LOC_DEPT = @CODE,DEPT_DESCRIPTION = @DEPT,
            MAJOR_CATEGORY = @CATEGORY,DATE_PLACED_IN_SERVICE = @SERVICEDATE,LOC_AREA = @AREA,TAG_NUMBER = @TAG,
            CURRENT_UNITS = @UNIT,DESCRIPTION = @DESCRIPTION,MYR_COST_BY_UNIT = @MYRCOST, COST_BY_UNIT = @USDCOST,
            DEPRN_RESERVE_BY_UNIT = @DEPR, DATE_RETIRED = @RETIREDDATE, UPDATE_DATE = @UPDATEDATE,UPDATE_BY = @NAME;"
            cn.Open()
            cmd.ExecuteNonQuery()
            cn.Close()
        End If
End Sub

---

您需要添加适当的Using语句和/或尝试Catch Finally，以确保即使在发生错误的情况下也关闭和释放对象。

ASSET\u NUMBER是主键吗？标识字段（自动编号）@Mary ASSET\u number+LOC\u DEPT是主键如果nowMonth

Val

在这里是多余的：

Val（rdmysql.GetInt32（0））

reccount=rdmysql.GetInt32（0）

就足够了，因为

reccount

是

Integer

并且

GetInt32（0）

返回

Integer

日期是必需的。因为我只想每个财政年度只保存一次数据。