Solved

Issues with Date Range Picker

Posted on 2008-10-06
14
325 Views
Last Modified: 2010-04-21
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
Comment
Question by:Kerau
  • 6
  • 4
  • 3
  • +1
14 Comments
 
LVL 7

Expert Comment

by:ASPSQLServerCOM
Comment Utility
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
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
 

Author Comment

by:Kerau
Comment Utility
Thanks to both of you IDLE_MIND and ASPSQLSERVERCOM. I will check this and get back to you asap
0
 

Author Comment

by:Kerau
Comment Utility
'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
 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
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
 
LVL 7

Expert Comment

by:ASPSQLServerCOM
Comment Utility
use
Dim dtDate As Date
        dtDate = DateTime.Parse(stDate, Globalization.CultureInfo.CreateSpecificCulture("en-CA"))
        dtDate = dtDate.AddDays(1)
0
 

Author Comment

by:Kerau
Comment Utility
Idle MInd its showing up the same error

.....says expression is a value and therefore can't be the target of an assignment
0
Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
I'm not sure how to fix it then sorry...
0
 

Author Comment

by:Kerau
Comment Utility
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
 
LVL 85

Assisted Solution

by:Mike Tomlinson
Mike Tomlinson earned 50 total points
Comment Utility
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
 
LVL 7

Assisted Solution

by:ASPSQLServerCOM
ASPSQLServerCOM earned 50 total points
Comment Utility
 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
 

Author Comment

by:Kerau
Comment Utility
.....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
 
LVL 18

Accepted Solution

by:
David Robitaille earned 400 total points
Comment Utility
0
 

Author Closing Comment

by:Kerau
Comment Utility
Thanks All
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Just a quick little trick I learned recently.  Now that I'm using jQuery with abandon in my asp.net applications, I have grown tired of the following syntax:      (CODE) I suppose it just offends my sense of decency to put inline VBScript on a…
Introduction Hi all and welcome to my first article on Experts Exchange. A while ago, someone asked me if i could do some tutorials on object oriented programming. I decided to do them on C#. Now you may ask me, why's that? Well, one of the re…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now