Dates are Evil! HELP!

[labelle]

I have an event listing on my website that is pulling from SQL.
Unfortunately, the listing is displaying all events, especially those
that are even 2 years old. I want to get rid of them and only display
events that are today or in the future. I need help!

Dim tmpEvents As Events
tmpEvents = New EventsMapper(). GetEvents()
Dim tmpEvent As New [Event]
Dim tmpEventListing As String
For Each tmpEvent In tmpEvents
tmpEventListing += "<font style='font-family: Verdana;
font-size: 10px;'>" & tmpEvent.StartD ate & "</font>" & " <br> " &
"<font style='font-family: Verdana; font-weight: bold; font-size:
10px;'>" & "<A href=javascript :openpopup3(" & tmpEvent.ID.ToS tring &
")>" & tmpEvent.Title & "</a>" & "</font>" & "<br><br>"

If tmpEvent.StartD ate <= Date.Now.ToShor tDateString
Then
Label2.Text = tmpEventListing
Else
Label2.Enabled = False
End If
Next

This displays all the events, but does nothing for events in the past.
Can you help?

[Jon]

Wouldn't it be easier to simply change your sql to pull events with
"eventdate >= GETDATE()"
<la*****@gmail. com> wrote in message
news:11******** **************@ z34g2000cwc.goo glegroups.com.. .

I have an event listing on my website that is pulling from SQL.
Unfortunately, the listing is displaying all events, especially those
that are even 2 years old. I want to get rid of them and only display
events that are today or in the future. I need help!

Dim tmpEvents As Events
tmpEvents = New EventsMapper(). GetEvents()
Dim tmpEvent As New [Event]
Dim tmpEventListing As String
For Each tmpEvent In tmpEvents
tmpEventListing += "<font style='font-family: Verdana;
font-size: 10px;'>" & tmpEvent.StartD ate & "</font>" & " <br> " &
"<font style='font-family: Verdana; font-weight: bold; font-size:
10px;'>" & "<A href=javascript :openpopup3(" & tmpEvent.ID.ToS tring &
")>" & tmpEvent.Title & "</a>" & "</font>" & "<br><br>"

If tmpEvent.StartD ate <= Date.Now.ToShor tDateString
Then
Label2.Text = tmpEventListing
Else
Label2.Enabled = False
End If
Next

This displays all the events, but does nothing for events in the past.
Can you help?

[labelle]

You'd think so, but no...because the same view is used to display
events on another table in the site that is accessed by users that
actually need to see past events to schedule future events.

I just figured it would be easy to put a "if the event date is equal to
or less than today, display it" addition to my code. Unfortunately
now, for some reason it does not seem that easy. Unless I am missing
something obvious?

[Patrice]

Make sure you are actually working on "real" dates. Here you are comparing a
date (or perhaps text ?) with text.

For example here in France the 13 of January we'll have :

13/01/2006 < 20/01/1980 as text but of course 20/01/1980 < 13/01/2006 as a
date...
--
Patrice

<la*****@gmail. com> a écrit dans le message de
news:11******** **************@ z34g2000cwc.goo glegroups.com.. .

I have an event listing on my website that is pulling from SQL.
Unfortunately, the listing is displaying all events, especially those
that are even 2 years old. I want to get rid of them and only display
events that are today or in the future. I need help!

Dim tmpEvents As Events
tmpEvents = New EventsMapper(). GetEvents()
Dim tmpEvent As New [Event]
Dim tmpEventListing As String
For Each tmpEvent In tmpEvents
tmpEventListing += "<font style='font-family: Verdana;
font-size: 10px;'>" & tmpEvent.StartD ate & "</font>" & " <br> " &
"<font style='font-family: Verdana; font-weight: bold; font-size:
10px;'>" & "<A href=javascript :openpopup3(" & tmpEvent.ID.ToS tring &
")>" & tmpEvent.Title & "</a>" & "</font>" & "<br><br>"

If tmpEvent.StartD ate <= Date.Now.ToShor tDateString
Then
Label2.Text = tmpEventListing
Else
Label2.Enabled = False
End If
Next

This displays all the events, but does nothing for events in the past.
Can you help?

[labelle]

The dates being posted in the database are being entered as 1/1/1900
and i know Date.Now.ToShor tDateString gives a day that says # 3/3/2006
#

Are those hash signs messing me up? I just don't understand what's
going on. I set a breakpoint and it clearly shows tmpEvent.StartD ate
as 1/1/2006 and Date.Now as today's date.

[Homer J Simpson]

<la*****@gmail. com> wrote in message
news:11******** **************@ z34g2000cwc.goo glegroups.com.. .

If tmpEvent.StartD ate <= Date.Now.ToShor tDateString

This looks very wrong. You should compare the internal date representations
as this will prevent problems with different formats etc.

[Homer J Simpson]

<la*****@gmail. com> wrote in message
news:11******** **************@ p10g2000cwp.goo glegroups.com.. .

The dates being posted in the database are being entered as 1/1/1900
and i know Date.Now.ToShor tDateString gives a day that says # 3/3/2006#

Are those hash signs messing me up? I just don't understand what's
going on. I set a breakpoint and it clearly shows tmpEvent.StartD ate
as 1/1/2006 and Date.Now as today's date.

It isn't the hash signs. Apples == Apples. Apples != Oranges. You are
comparing Apples to Oranges. What you see at a breakpoint is not what is
being compared. You should compare a date formatted DB field to Date.Now

[Armin Zingler]

<la*****@gmail. com> schrieb

If tmpEvent.StartD ate <= Date.Now.ToShor tDateString
Then

What's the data type of the StartDate property? If it' isn't String, you
should enable Option Strict.
Armin

[Cor Ligthert [MVP]]

Labelle,

As result from the answers from the others,

Try this one
\\\
If CDate(tmpEvent. StartDate) <= Date.Now 'This converts any right date in
your local setting to an internal date, which is in 100 nanoseconds ticsk
starting at ISO date 1-1-1 00:00:00
///
I hope this helps,

Cor

<la*****@gmail. com> schreef in bericht
news:11******** **************@ z34g2000cwc.goo glegroups.com.. .

I have an event listing on my website that is pulling from SQL.
Unfortunately, the listing is displaying all events, especially those
that are even 2 years old. I want to get rid of them and only display
events that are today or in the future. I need help!

Dim tmpEvents As Events
tmpEvents = New EventsMapper(). GetEvents()
Dim tmpEvent As New [Event]
Dim tmpEventListing As String
For Each tmpEvent In tmpEvents
tmpEventListing += "<font style='font-family: Verdana;
font-size: 10px;'>" & tmpEvent.StartD ate & "</font>" & " <br> " &
"<font style='font-family: Verdana; font-weight: bold; font-size:
10px;'>" & "<A href=javascript :openpopup3(" & tmpEvent.ID.ToS tring &
")>" & tmpEvent.Title & "</a>" & "</font>" & "<br><br>"

If tmpEvent.StartD ate <= Date.Now.ToShor tDateString
Then
Label2.Text = tmpEventListing
Else
Label2.Enabled = False
End If
Next

This displays all the events, but does nothing for events in the past.
Can you help?

[Patrice]

Are you sure ? IMO the date is not enclosed in # but anyway
ToShortDateStri ng returns a *string*. You shouldn't use this at all to
compare "real" dates and not strings :
If tmpEvent.StartD ate <= Date.Now Then

Also keep in mind that the date is not "entered as 1/1/1900" in the database
(assuming you have used the appropriate data type). Dates are always stored
the same internally. How they are printed depends on regional settings but a
given date has always the same internal representation.

Just make sure to compare dates to dates (and not dates to strings) so that
you compare their intela representation and not how they "look like" as text
in a particular language.

--
Patrice

<la*****@gmail. com> a écrit dans le message de
news:11******** **************@ p10g2000cwp.goo glegroups.com.. .

The dates being posted in the database are being entered as 1/1/1900
and i know Date.Now.ToShor tDateString gives a day that says # 3/3/2006
#

Are those hash signs messing me up? I just don't understand what's
going on. I set a breakpoint and it clearly shows tmpEvent.StartD ate
as 1/1/2006 and Date.Now as today's date.