StartTime and Endtime

hello everybody, i wantto ask

i have a two variable date starttime and end time.

when i create a post set that show time and end time

so can i use this code set it ? on frontend

If ((dt.Rows(i).Item("DisplaySDate") <= DateTime.Now) && (dt.Rows(i).Item("DisplayEDate") >= DateTime.Now) Then

Me.Visible = True

ElseIf dt.Rows(i).Item("DisplayEDate") < DateTime.Now Then

Me.Visible = True

Else

Me.Visible = False

End If

Try like below:

If ((dt.Rows(i).Item("DisplaySDate") <= DateTime.Now) And (dt.Rows(i).Item("DisplayEDate") >= DateTime.Now)) Then

Me.Visible = True

ELSE

Me.Visible = False

End If

solved !

Dim startTime As DateTime = DateTime.Parse(dt.Rows(i).Item("DisplaySDate").ToString())

Dim endTime As DateTime = DateTime.Parse(dt.Rows(i).Item("DisplayEDate").ToString())

If ((now.CompareTo(startTime) > 0) And (now.CompareTo(endTime) < 0)) Then

Me.Visible = True

Else

Me.Visible = False

End If

Manas & Ram Hi

Also not working,

there is my all code can u check for me ?

thanks a lot

Protected Sub BindData(dt As Data.DataTable, SiteID As Long)

If dt.Rows.Count > 0 Then

litList.Text = ""

For i As Integer = 0 To dt.Rows.Count - 1

Dim Title As String = dt.Rows(i).Item("Title").ToString

Dim Targets As String = ""

Dim Targetsdes As String = ""

Dim ImgURL As String = ""

Dim ImgURLs As String = ""

Dim now As DateTime = DateTime.Now

Dim startTime As DateTime = dt.Rows(i).Item("DisplaySDate").ToString()

Dim endTime As DateTime = dt.Rows(i).Item("DisplayEDate").ToString()

If ((startTime <= DateTime.Now) And (endTime >= DateTime.Now)) Then

Me.Visible = True

Else

Me.Visible = False

End If

Dim URL As String = dt.Rows(i).Item("URL").ToString

If URL = "" Then

URL = "#"

Else

If dt.Rows(i).Item("Targets").ToString = True Then

Targets = " target=""_blank"" "

Targetsdes = Resources.RsAll.OpenNW

End If

If dt.Rows(i).Item("Files").ToString <> "" Then

ImgURL = ViewState("Roots") & "WebTools/Thumbnail.ashx?Siteid=" & SiteID & "&MmmID=99&fd=Benner_Files&NW=696&NW=249&Pname=" & dt.Rows(i).Item("Files").ToString

End If

litList.Text &= "

'==================================

litLists.Text &= "

If dt.Rows(i).Item("Files").ToString <> "" Then

ImgURLs = ViewState("Roots") & "WebTools/Thumbnail.ashx?Siteid=" & SiteID & "&MmmID=99&fd=Benner_Files&NW=71&NW=71&Pname=" & dt.Rows(i).Item("Filess").ToString

End If

litLists.Text &= ""

litLists.Text &= "

" & dt.Rows(i).Item("contents").ToString & "

litLists.Text &= "

If ((dt.Rows(i).Item("DisplaySDate") <= DateTime.Now) && (dt.Rows(i).Item("DisplayEDate") >= DateTime.Now) Then

Me.Visible = True

ELSE

Me.Visible = False

End If

so that now you can see only that contain which is between the start and end date.

just i mean i have a one post then i wantto set for this post displaydate and display off date

from backend when i create post for ex title photos content displaystartdate and displayenddate input then save it

displaystartdate : 2015/10/2

displaystartdate : 2015/10/5

and front end when date 2015/10/2 my post automatically show up and when date is 2015/10/5 my post automatically off

Could you please provide more information. Are you getting any kind of exception when you are writing above code?

6 Replies

Know the answer? Post it — somebody with the same question will find it here.

Manas Mohapatra11y ago
Accepted answer
Try like below:

If ((dt.Rows(i).Item("DisplaySDate") <= DateTime.Now) And (dt.Rows(i).Item("DisplayEDate") >= DateTime.Now)) Then
Me.Visible = True
ELSE
Me.Visible = False
End If
+1
Ekrem Tapan11y ago
solved !

Dim startTime As DateTime = DateTime.Parse(dt.Rows(i).Item("DisplaySDate").ToString())

Dim endTime As DateTime = DateTime.Parse(dt.Rows(i).Item("DisplayEDate").ToString())

If ((now.CompareTo(startTime) > 0) And (now.CompareTo(endTime) < 0)) Then

Me.Visible = True

Else

Me.Visible = False

End If

+1
Ekrem Tapan11y ago
Manas & Ram Hi

Also not working,
there is my all code can u check for me ?
thanks a lot

Protected Sub BindData(dt As Data.DataTable, SiteID As Long)
If dt.Rows.Count > 0 Then
litList.Text = ""
For i As Integer = 0 To dt.Rows.Count - 1
Dim Title As String = dt.Rows(i).Item("Title").ToString
Dim Targets As String = ""
Dim Targetsdes As String = ""
Dim ImgURL As String = ""
Dim ImgURLs As String = ""
Dim now As DateTime = DateTime.Now
Dim startTime As DateTime = dt.Rows(i).Item("DisplaySDate").ToString()
Dim endTime As DateTime = dt.Rows(i).Item("DisplayEDate").ToString()
If ((startTime <= DateTime.Now) And (endTime >= DateTime.Now)) Then
Me.Visible = True
Else
Me.Visible = False
End If
Dim URL As String = dt.Rows(i).Item("URL").ToString
If URL = "" Then
URL = "#"
Else
If dt.Rows(i).Item("Targets").ToString = True Then
Targets = " target=""_blank"" "
Targetsdes = Resources.RsAll.OpenNW
End If
End If
If dt.Rows(i).Item("Files").ToString <> "" Then
ImgURL = ViewState("Roots") & "WebTools/Thumbnail.ashx?Siteid=" & SiteID & "&MmmID=99&fd=Benner_Files&NW=696&NW=249&Pname=" & dt.Rows(i).Item("Files").ToString
End If
litList.Text &= "
"
'==================================
litLists.Text &= "
"
litLists.Text &= "
"
If dt.Rows(i).Item("Files").ToString <> "" Then
ImgURLs = ViewState("Roots") & "WebTools/Thumbnail.ashx?Siteid=" & SiteID & "&MmmID=99&fd=Benner_Files&NW=71&NW=71&Pname=" & dt.Rows(i).Item("Filess").ToString
End If
litLists.Text &= ""
litLists.Text &= "
" & dt.Rows(i).Item("contents").ToString & "
"
litLists.Text &= "
"
litLists.Text &= "