[RESOLVED] calculating dates

[skaswani]

Dear Friends,

i am using Vb 6

and i have 2 text box on a form and both are dates

and the code is :

Public date1 As Date
Public date2 As Date

Private Sub Form_Load()


Text1.Text = Format(Date, "dd-mmm-yy")
Text2.Text = Format(Date + 2, "dd-mmm-yy")

End Sub

Private Sub Text1_LostFocus()
date2 = Format(date1, "dd-mmm-yy") + 2
Text2.Text = date2
   
End Sub

actully what i want is, that IF Text1Box change the date Text2Box should add 1 day into it!

thanks

[LaVolpe]

Convert the date in Text1 by using the CDate function (i.e., date2=CDate(Text1.Text). Then add 2 to that. Note: CDate will fail if the data in text1 is not a valid date format.

[leinad31]

Use a datepicker control instead of a textbox

[skaswani]

thanks
how?? datepicker

can u pls upload any sample file?

regards,

[Siddharth Rout]

actully what i want is, that IF Text1Box change the date Text2Box should add 1 day into it!

thanks

This is one way of doing it...

Private Sub Text1_AfterUpdate()
    Dim TEMP As String
    TEMP = Format(Text1.Text, "dd-mmm-yy")
    Text2.Text = Format((Val(Left(TEMP, 2)) + 1), "00") & Mid(TEMP, 3, Len(TEMP) - 2)
End Sub

[skaswani]

thank you dears
but i think its really better to use date picker..
can anyone upload sample file

thanks

[si_the_geek]

They are simple, you shouldn't need a sample file - you should be able to do what you need from the article What controls can I use to input a date/time? from our Classic VB FAQs (in the FAQ forum, which is shown near the top of our home page)

[skaswani]

thank you!