help with time.....

Expand Post »

hi, i'm currently doin a booking system...i have a problem regarding with the booking date...

Ok, lets say i'm booking a table on the 7th of october at 7.00pm which is 2 days from today...once i book the table it is booking from today...the timer runs from now until the 7th of october at 7.00pm...i want the timer to run at 6.00pm on 7th of october any idea how to solve this problem...here is my code

the reservation confirm button

VB.NET Syntax (Toggle Plain Text)
 
Private Sub ButtonA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBButton1.Click
        Rpanel1.Hide()
        Dim time1 As DateTime
        time559 = FormatDateTime("5:00:00 PM", DateFormat.LongTime)
        time1001 = FormatDateTime("10:01:00 PM", DateFormat.LongTime)
        time1 = FormatDateTime(Hour(Btime1.Value) & ":" & Minute(Btime1.Value))
        If time1 < time559 Or time1 > time1001 Then
            MsgBox("Booking Time is only available from 6.00 PM to 10.00 PM ")
            Rpanel1.Show()
        ElseIf Bdate1.Value < Today Then
            MsgBox("Error date is a past date, Enter again")
            Rpanel1.Show()
        Else
            PListBox1.Items.Add("Customer Name" & ControlChars.Tab & _
            ControlChars.Tab & "Booking Date" & ControlChars.Tab & _
            ControlChars.Tab & "Booking Time")
            status1 = "Booked"
            Table1.BackColor = Color.Khaki
            PListBox1.Items.Add(Bcusname1.Text & ControlChars.Tab & _
            ControlChars.Tab & ControlChars.Tab & Bdate1.Value & ControlChars.Tab & _
            ControlChars.Tab & FormatDateTime(Btime1.Value, DateFormat.LongTime))
        End If
Private Sub ButtonA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBButton1.Click
        Rpanel1.Hide()
        Dim time1 As DateTime
        time559 = FormatDateTime("5:00:00 PM", DateFormat.LongTime)
        time1001 = FormatDateTime("10:01:00 PM", DateFormat.LongTime)
        time1 = FormatDateTime(Hour(Btime1.Value) & ":" & Minute(Btime1.Value))
        If time1 < time559 Or time1 > time1001 Then
            MsgBox("Booking Time is only available from 6.00 PM to 10.00 PM ")
            Rpanel1.Show()
        ElseIf Bdate1.Value < Today Then
            MsgBox("Error date is a past date, Enter again")
            Rpanel1.Show()
        Else
            PListBox1.Items.Add("Customer Name" & ControlChars.Tab & _
            ControlChars.Tab & "Booking Date" & ControlChars.Tab & _
            ControlChars.Tab & "Booking Time")
            status1 = "Booked"
            Table1.BackColor = Color.Khaki
            PListBox1.Items.Add(Bcusname1.Text & ControlChars.Tab & _
            ControlChars.Tab & ControlChars.Tab & Bdate1.Value & ControlChars.Tab & _
            ControlChars.Tab & FormatDateTime(Btime1.Value, DateFormat.LongTime))
        End If

the timer code...

VB.NET Syntax (Toggle Plain Text)
 
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim btimeA As DateTime
        Dim bdateA As DateTime
        bdateA = FormatDateTime(Bdate1.Value, DateFormat.ShortDate)
        btimeA = FormatDateTime(Btime1.Value, DateFormat.LongTime)
        If FormatDateTime(TimeOfDay, DateFormat.LongTime) = btimeA.AddMinutes(20) And FormatDateTime(Today, DateFormat.ShortDate) = bdateA Then
            MsgBox("Booking Time up Mr/Miss " & Bcusname1.Text & " is late,reservation canceled")
            Table1.BackColor = Color.PaleGreen
            status2 = "Available"
        End If
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim btimeA As DateTime
        Dim bdateA As DateTime
        bdateA = FormatDateTime(Bdate1.Value, DateFormat.ShortDate)
        btimeA = FormatDateTime(Btime1.Value, DateFormat.LongTime)
        If FormatDateTime(TimeOfDay, DateFormat.LongTime) = btimeA.AddMinutes(20) And FormatDateTime(Today, DateFormat.ShortDate) = bdateA Then
            MsgBox("Booking Time up Mr/Miss " & Bcusname1.Text & " is late,reservation canceled")
            Table1.BackColor = Color.PaleGreen
            status2 = "Available"
        End If

thank u for ur help....

Similar Threads

Favorite All Time Games in Geeks' Lounge
mIRC or Real Time Message Boards...in Linux in Linux Applications and Software
cts time out in Windows NT / 2000 / XP
Slowed Boot Time and Internet Connection Time. in Windows NT / 2000 / XP
Time out web pages w/text or drop boxes in Networking

gopi17

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

39 posts
since Sep 2008

Permalink

Oct 5th, 2008

Re: help with time.....

you need to decode the booking time .
findout the time 1 hr before that and book accordingly.

debasisdas

Featured Poster

Reputation Points: 665

Solved Threads: 427

Posting Genius

Offline

6,406 posts
since Feb 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: using generic procedures

Next Thread in VB.NET Forum Timeline: Will any one plz help me ??

DaniWeb Message

Cancel Changes

User Name
Password