• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 356
  • Last Modified:

Issues with Date Range Picker

I am working on Date Range Picker where a user can pick specific date and according to the date range (parameter passed) he will be displayed the report. Right now everything works fine untill a user chooses his start date and end date as the same day. eg start date 10/06/2008 and enddate 10/06/2008, the report then errors out.

I want to insert a logic below, if the SelectedBeginDate = SelectedEndDate. I want SelectedEndDate added by a day. Say a user chooses start date 10/06/2008 and enddate 10/06/2008 ..the end date should be converted as 10/07/2008..I have been trying this for couple of hours but in vain...How do i do this?..please advice
Private Function DateRangeIsValid(ByVal dateRange As DateRangePicker) As Boolean
        If (IsNothing(dateRange.SelectedBeginDate) And IsNothing(dateRange.SelectedEndDate)) Then
            Return True
        Else
            If (IsNothing(dateRange.SelectedBeginDate) And Not IsNothing(dateRange.SelectedEndDate)) Or _
               (Not IsNothing(dateRange.SelectedBeginDate) And IsNothing(dateRange.SelectedEndDate)) Then
                Return False
            End If
 
        End If
        Return dateRange.SelectedEndDate.Value.Date >= dateRange.SelectedBeginDate.Value.Date
    End Function
 
End Class

Open in new window

0
Kerau
Asked:
Kerau
  • 6
  • 4
  • 3
  • +1
3 Solutions
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
I've never used your control so I don't know if this will work:
(at the very least you can simplify your logic in the beginning like this)

    Private Function DateRangeIsValid(ByVal dateRange As DateRangePicker) As Boolean
        If IsNothing(dateRange.SelectedBeginDate) AndAlso IsNothing(dateRange.SelectedEndDate) Then
            Return True ' Both are Nothing
        ElseIf IsNothing(dateRange.SelectedBeginDate) OrElse IsNothing(dateRange.SelectedEndDate) Then
            Return False ' Only one is Nothing
        End If

        If dateRange.SelectedEndDate.Value.Date = dateRange.SelectedBeginDate.Value.Date Then
            dateRange.SelectedEndDate.Value = dateRange.SelectedEndDate.Value.AddDays(1)
        End If

        Return dateRange.SelectedEndDate.Value.Date >= dateRange.SelectedBeginDate.Value.Date
    End Function
0
 
KerauAuthor Commented:
Thanks to both of you IDLE_MIND and ASPSQLSERVERCOM. I will check this and get back to you asap
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
KerauAuthor Commented:
'dateRange.SelectedEndDate.Value = dateRange.SelectedEndDate.Value.AddDays(1)  ' It says expression is a value and therefore can't be the target of an assignment
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Can you do it this way?

        If dateRange.SelectedEndDate.Value.Date = dateRange.SelectedBeginDate.Value.Date Then
            Dim dt As Date = dateRange.SelectedEndDate.Value.AddDays(1)
            dateRange.SelectedEndDate.Value = New Date(dt.Year, dt.Month, dt.Day)
        End If
0
 
ASPSQLServerCOMCommented:
use
Dim dtDate As Date
        dtDate = DateTime.Parse(stDate, Globalization.CultureInfo.CreateSpecificCulture("en-CA"))
        dtDate = dtDate.AddDays(1)
0
 
KerauAuthor Commented:
Idle MInd its showing up the same error

.....says expression is a value and therefore can't be the target of an assignment
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
I'm not sure how to fix it then sorry...
0
 
KerauAuthor Commented:
Should i write something on the btn_submit event ...what would you suggest?????
   Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        If Page.IsValid Then
            Dim urlString As String = ""
            Select Case Me.ddlReports.SelectedValue
                Case "abc.aspx"
                    urlString = String.Format("abc.aspx?dteBegin={0}&dteEnd={1}", Me.drpReportDates.SelectedBeginDate.Value.ToShortDateString, Me.drpReportDates.SelectedEndDate.Value.ToShortDateString)
                Case "bcd.aspx"
                    urlString = String.Format("bcd.aspx?dteBegin={0}&dteEnd={1}", Me.drpReportDates.SelectedBeginDate.Value.ToShortDateString, Me.drpReportDates.SelectedEndDate.Value.ToShortDateString)
            End Select
            Dim scriptString As New StringBuilder
            scriptString.Append("<script language=JavaScript>")
            scriptString.Append("window.open('" + urlString + "')")
            scriptString.Append("</script>")
            If (Not ClientScript.IsStartupScriptRegistered("Startup")) Then
                ClientScript.RegisterStartupScript(GetType(Page), "Startup", scriptString.ToString)
            End If
        End If
    End Sub

Open in new window

0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
I don't write web stuff so I'm not sure what the best approach is...

Can't you leave the Function like this?

    Private Function DateRangeIsValid(ByVal dateRange As DateRangePicker) As Boolean
        If IsNothing(dateRange.SelectedBeginDate) AndAlso IsNothing(dateRange.SelectedEndDate) Then
            Return True ' Both are Nothing
        ElseIf IsNothing(dateRange.SelectedBeginDate) OrElse IsNothing(dateRange.SelectedEndDate) Then
            Return False ' Only one is Nothing
        End If

        Return dateRange.SelectedEndDate.Value.Date >= dateRange.SelectedBeginDate.Value.Date
    End Function

Then adjust the dates AFTER you call the function?

    ' ...from where ever you call DateRangeIsValid() above...
    If DateRangeIsValid(someDateRange) Then
        Dim beginDate As Date = dateRange.SelectedBeginDate.Value.Date
        Dim endDate as Date = dateRange.SelectedEndDate.Value.Date
        endDate = IIf(endDate = beginDate, endDate.AddDays(1),  endDate)

        ' ...do something with "beginDate" and "endDate"...

    End If

But again, I don't do web stuff and I haven't used this control before so I may not be making any sense...apologies if this is the case.  =)
0
 
ASPSQLServerCOMCommented:
 Private Function DateRangeIsValid(ByVal dateRange As DateRangePicker) As Boolean
Dim dtDate As Date
       
        If IsNothing(dateRange.SelectedBeginDate) AndAlso IsNothing(dateRange.SelectedEndDate) Then
            Return True ' Both are Nothing
        ElseIf IsNothing(dateRange.SelectedBeginDate) OrElse IsNothing(dateRange.SelectedEndDate) Then
            Return False ' Only one is Nothing
        End If

        If dateRange.SelectedEndDate.Value.Date = dateRange.SelectedBeginDate.Value.Date Then
 dtDate = DateTime.Parse(dateRange.SelectedEndDate.Value, Globalization.CultureInfo.CreateSpecificCulture("en-CA"))
        dtDate = dtDate.AddDays(1)

            dateRange.SelectedEndDate.Value = dtDate.ToString
        End If

        Return dateRange.SelectedEndDate.Value.Date >= dateRange.SelectedBeginDate.Value.Date
    End Function

Or could you please tell us exactly what is the programming logic you want to implement
0
 
KerauAuthor Commented:
.....says expression is a value and therefore can't be the target of an assignment.

Now if you are looking for an exact logic, please refer to my comment on ID:22653992 for codes. Here is the issue, if the selected case is abc.aspx, i don't have to add any date and it works fine with date params as 10/07/2008 to 10/07/2008.  But if the selected case is bcd.aspx, the report errors out stating "Failed to retrieve data from the database. Error in File C:\WINDOWS\TEMP\{864593B4-3C48-485A-8E24-B40C9BEDE6AE}.rpt".

Right now What i did on the statement: "Return dateRange.SelectedEndDate.Value.Date >= dateRange.SelectedBeginDate.Value.Date" removed "=" (without the quotes) from the statement and it works fine. But it doesn't allow user to choose/validate the same day on DateRangePicker, which again is kinda workaround :). But the requirement suggests that we need to be able to pass same date on the DateRangePicker. Any ideas....
0
 
KerauAuthor Commented:
Thanks All
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 6
  • 4
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now