RE: Re: DateTimePicker

Steve

I really appreciate your comprehensive response to my problem and I also appreciate the advice I have been given by other members of the group.

Regarding your envisaged scenario, which I greatly value:

In my proposed scenario I have the two DTP controls to enable the user to enter a starting date and a finishing date.

I also have a small text box which I hope can be used to accept the returned value that I need.

On reflection, I now consider that what I am really looking for, is a returned value which should show 3,  i.e. if date one is 18/03/2007 and date two is 21/03/2007 I would be hoping 3 would be returned to the text box. I realise that this is not the inclusive return I originally thought I would need and apologise to every one who has responded to me.

From the Internet I downloaded the following code sample and wonder if it would do the job. Could I double click the text box in design view and use/amend this code to pick up the start/finish dates and return the required value to the text box in a numerical format? If possible I do not want to have another command button on the form.

I think I am pretty ambitious here for a beginner, but I would hope to be able to  use the text box value in a second form (the only other one, discounting a LogIn form)̷0;….From other reading material, I think that means the date variables in the code sample would have to be declared as Public. Are you able to verify this?

Here is the code (I changed the font for readability) which I hope you will consider:

Dim Date1 As Date
     Dim Date2 As Date
     Dim Difference As String

     Date1 = Date
     Date2 = 12 / 31 / 2030
     Difference = DateDiff("d";, Date2, Date1)

     MsgBox Difference

You have given me plenty to think about as I did not consider validation of user entry in connection with dates entered etc., and I can see more questions emerging once I attempt to do this. I looked into the web site vb-helper.com that you recommended and was quite impressed. I had never heard of it before.

In concluding, I feel that I really must reiterate my thanks for your assistance.

Sincere regards

Eddie Farrell

Hi Eddie,

Taking a look at your code…;why did you declare the Difference as a String?

If I recall correctly, the DateDiff function returns a Long value. I’m going to take a guess that you’re not turning on Option Strict or Option Explicit because code of this type would have cause it to squawk at you.

As for not wanting a command button on your form, you can trigger the event with a change in the DateTimePicker control. Here’;s a little sample that I knocked together:

Option Strict On

Public Class Form1

    Dim date1 As Date

    Dim date2 As Date

    Dim difference As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DateTimePicker1.Value = Now

        DateTimePicker2.Value = Now

    End Sub

    Private Sub TimeValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged

        date1 = DateTimePicker1.Value

        date2 = DateTimePicker2.Value

        difference = CStr(DateDiff("d", date2, date1))

        MessageBox.Show(difference)       ‘here is where you could use this string value and send it to a textbox

    End Sub

  

End Class

Notice that I left the difference as a string, but in calculating it we used the CStr conversion.

You will also see that I’ve created my own event handler that handles both the DTP1 and DTP2 changed function. Each time that the value changes we calculate the difference and show the message box.

Is that more like what you had envisioned?

/tr

Hi Timothy and All the other Guys  who have tried to help me.

I tried to run the code that you sent me Timothy by entering it into the main form of my project and received a message indicating that there were 43 errors. The first one said that an “end of statement was expected”

I have seen this message before when I tried to do something but have never been able to find out what it meant.

This, in spite of looking at the Help file and on the Internet. It may be that I did not understand the content  I did find.

Thinking I was quite clever I declared some  constants (after reading about them in a book) and these now all have a wavy blue line beneath them with an error message which reads: “statement is not valid in a namespace”

Again, I have no idea what this means.

I would really appreciate some help with these problems and I am including a copy of the code as I entered it at the top of my Forms̵7; code window:

Public Class Form1

    Dim date1 As Date

    Dim date2 As Date

    Dim difference As Long

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DateTimePicker1.Value = Now

        DateTimePicker2.Value = Now

    End Sub

    Private Sub TimeValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged

        date1 = DateTimePicker1.Value

        date2 = DateTimePicker2.Value

        difference = DateDiff("d", date2, date1))

        MessageBox.Show(difference)       'here is where you could use this string value and send it to a textbox

    End Sub

End Class