Date/Time Picker Questions

[addicdid2003]

OK, I am fairly new to Vb, and I am doing a project for school... Does anyone know how to calculate a date, based on the date selected in the Date/Time Picker, and have it display in another text box?

[hariharanmca]

OK, I am fairly new to Vb, and I am doing a project for school... Does anyone know how to calculate a date, based on the date selected in the Date/Time Picker, and have it display in another text box?

What you are calculating ?
How you are calculating?

Specify

[addicdid2003]

What you are calculating ?
How you are calculating?

Specify

ok, i have a date time picker where you set it to the date that a movie is checked out, then in another box it tells you how many days the movie is allowed to be checked out, this is set automatically based on what kind of movie is checked out, With this information I am supposed to show the date due back in another text box. That is what i can not figure out. How to write the code for the due date.

[Killer42]

i have a date time picker where you set it to the date that a movie is checked out, then in another box it tells you how many days the movie is allowed to be checked out, this is set automatically based on what kind of movie is checked out, With this information I am supposed to show the date due back in another text box.

Use the DateAdd() function.

[addicdid2003]

Use the DateAdd() function.

'ok, here is my problem, can anyone help me fill in the blanks to make this function work?
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateDue.TextChanged
Dim TextBox4 As xxxxx
TextBox4.xxxxx = DateAdd(DateInterval.Day, 3, xxxxx!DateTimePicker1.Value)
End Sub

[Killer42]

'ok, here is my problem, can anyone help me fill in the blanks to make this function work?

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateDue.TextChanged
    Dim TextBox4 As xxxxx
    TextBox4.xxxxx = DateAdd(DateInterval.Day, 3, xxxxx!DateTimePicker1.Value)
End Sub

You didn't actually tell us what the problem is with this code.

I do see one potential problem, though. I would have expected TextBox4 to be already on your form, not created here in your code. Unless things have changed drastically since VB6, any object that you create within this routine will cease to exist as soon as you enter the routine.

[addicdid2003]

You didn't actually tell us what the problem is with this code.

I do see one potential problem, though. I would have expected TextBox4 to be already on your form, not created here in your code. Unless things have changed drastically since VB6, any object that you create within this routine will cease to exist as soon as you enter the routine.

OK, I have changed this code, but I do not know how to use the DateAdd () function yet, so I am having a problem because I do not know how to declare the parameters... can you help? You suggested I use this function, do you know how to code it?

[addicdid2003]

OK, I have changed this code, but I do not know how to use the DateAdd () function yet, so I am having a problem because I do not know how to declare the parameters... can you help? You suggested I use this function, do you know how to code it?

OOPS forgot to put the code in here...

[code] Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
'Dim "Parameters" as "What?"
TextBox1.Text = DateAdd(DateInterval.Day, +3, Parameters!DateTimePicker1.Value)
End Sub [code]

[Killer42]

OOPS forgot to put the code in here...

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  'Dim "Parameters" as "What?"
  TextBox1.Text = DateAdd(DateInterval.Day, +3, Parameters!DateTimePicker1.Value)
End Sub 

Well, what you want to do is feed in a date (from your dtpicker), a unit (days) and the number to add (3). You already have those, so there is no need to create any new "parameter variable" in this routine.

Also, it looks to me as though you may be a little confused on how to use events to drive your code. Most likely, you would code this in the Change or Click event of the DTPicker (or whatever the equivalent is in your version of VB). The code would be something like

TextBox1.Text = DateAdd(DateInterval.Day, 3, DateTimePicker1.Value)

Oh, and just to set the record straight, in my earlier post I meant that locally created variables would disappear as soon as you exit the routine, not enter. :o

P.S. To close the CODE tag, you have to use [/CODE]

[addicdid2003]

OK, first I want to say thank you for all of your help, and for being patient with me. I have changed the code to reflect the changes you suggested, and it does not give me any errors, however, it does not show the date in the textbox... this is so frustrating. I know it is probably somethign simple I am forgetting, I just can't figure it out!!

I have tried a couple of different ways. I re-created the text box and entered the code by clicking on the textbox in the design view. I tried writing the code in two different ways, and both do exactly the same thing. No errors, and no date in the text box. Here is the code I have now...

 Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim Result As Date
 
        If NewReleaseButton.Checked = True Then
            Result = DateAdd(DateInterval.Day, +1, DateTimePicker1.Value)
            DateDue.Text = Result
        End If
    End Sub 

The other way that I tried was this...

 Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        DateDue.Text = DateAdd(DateInterval.Day, +1, DateTimePicker1.Value)
    End Sub 

I just don't know what else to try. You mentioned something about coding it in the DateTimePicker event... what do you mean?

Again, thank you for your help!

Well, what you want to do is feed in a date (from your dtpicker), a unit (days) and the number to add (3). You already have those, so there is no need to create any new "parameter variable" in this routine.

Also, it looks to me as though you may be a little confused on how to use events to drive your code. Most likely, you would code this in the Change or Click event of the DTPicker (or whatever the equivalent is in your version of VB). The code would be something like

TextBox1.Text = DateAdd(DateInterval.Day, 3, DateTimePicker1.Value)

Oh, and just to set the record straight, in my earlier post I meant that locally created variables would disappear as soon as you exit the routine, not enter. :o

P.S. To close the CODE tag, you have to use [/CODE]

[addicdid2003]

I just noticed something, i tried this in both the datetimepicker area and the textbox area... so technically this is only 2 of the ways i tried... the others are as follows...

 Private Sub DateDue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateDue.TextChanged
        Dim Result As Date
 
        If NewReleaseButton.Checked = True Then
            Result = DateAdd(DateInterval.Day, +1, DateTimePicker1.Value)
            DateDue.Text = Result
        End If
    End Sub 

and...

 Private Sub DateDue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateDue.TextChanged
         DateDue.Text = DateAdd(DateInterval.Day, +1, DateTimePicker1.Value)
     End Sub 

OK, first I want to say thank you for all of your help, and for being patient with me. I have changed the code to reflect the changes you suggested, and it does not give me any errors, however, it does not show the date in the textbox... this is so frustrating. I know it is probably somethign simple I am forgetting, I just can't figure it out!!

I have tried a couple of different ways. I re-created the text box and entered the code by clicking on the textbox in the design view. I tried writing the code in two different ways, and both do exactly the same thing. No errors, and no date in the text box. Here is the code I have now...

 Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim Result As Date
 
        If NewReleaseButton.Checked = True Then
            Result = DateAdd(DateInterval.Day, +1, DateTimePicker1.Value)
            DateDue.Text = Result
        End If
    End Sub 

The other way that I tried was this...

 Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        DateDue.Text = DateAdd(DateInterval.Day, +1, DateTimePicker1.Value)
    End Sub 

I just don't know what else to try. You mentioned something about coding it in the DateTimePicker event... what do you mean?

Again, thank you for your help!

[Killer42]

Unfortunately, you're getting into the technical details of your specific version of VB now, and I'm not familiar with it.

The basic idea, though, is that you want the event which fires when you change the value in the DatePicker. It might be the ValueChanged event, which you have already tried, or it might be something like a Click event. A good way to test is to put a breakpoint in your code to make sure it is being executed, and to allow you to verify the values being used. In other words, when the date is changed in the datetime picker, we want to update the textbox. That's the way you work with events - when this happens, do that.

In VB6, I always recommend setting the option which forces you to explicitly declare all variables, rather than allowing them to be created by default. Does your version have such an option? It can prevent a lot of obscure problems.

It may be that you need to use something like the Format() function to format the date field and place it in the text box. Here's my best guess at the code. It assumes the datetimepicker is called DateTimePicker1, and the text box is called DateDue.

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
  Dim Result As Date
  If NewReleaseButton.Checked = True Then
    Result = DateAdd(DateInterval.Day, 3, DateTimePicker1.Value)
    DateDue.Text = Format(Result,"short date")
  End If
End Sub

[addicdid2003]

Thank you, I will give that a try.

Unfortunately, you're getting into the technical details of your specific version of VB now, and I'm not familiar with it.

The basic idea, though, is that you want the event which fires when you change the value in the DatePicker. It might be the ValueChanged event, which you have already tried, or it might be something like a Click event. A good way to test is to put a breakpoint in your code to make sure it is being executed, and to allow you to verify the values being used. In other words, when the date is changed in the datetime picker, we want to update the textbox. That's the way you work with events - when this happens, do that.

In VB6, I always recommend setting the option which forces you to explicitly declare all variables, rather than allowing them to be created by default. Does your version have such an option? It can prevent a lot of obscure problems.

It may be that you need to use something like the Format() function to format the date field and place it in the text box. Here's my best guess at the code. It assumes the datetimepicker is called DateTimePicker1, and the text box is called DateDue.

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
  Dim Result As Date
  If NewReleaseButton.Checked = True Then
    Result = DateAdd(DateInterval.Day, 3, DateTimePicker1.Value)
    DateDue.Text = Format(Result,"short date")
  End If
End Sub