DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

DatePicker Problem

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Oct 2009

Posts: 4

Reputation: nareshkumar131 is an unknown quantity at this point

Solved Threads: 0

nareshkumar131 nareshkumar131 is offline

Offline

Newbie Poster

DatePicker Problem

Nov 1st, 2009

Hello,
I have a DatePicker and text box on my Form and When I try to show the choosen date of DatePicker in the TextBox. It Shows the date and time. But I want to show only date. Plz help me.

Code:
text1.text=DatePicker1.value

•

Join Date: Feb 2007

Posts: 2,122

Reputation: debasisdas will become famous soon enough

Solved Threads: 129

debasisdas debasisdas is offline

Offline

Postaholic

Nov 2nd, 2009

you need to format the value of DTPicker.

Share your Knowledge.

•

Join Date: Jan 2008

Posts: 255

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 37

AndreRet

Offline

Posting Whiz in Training

Nov 2nd, 2009

try and use something like -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Text1.Text = dtPicker1,Value
Text1.Text = Format(Text1.Text, "dd,mm,yy")
Text1.Text = dtPicker1,Value
Text1.Text = Format(Text1.Text, "dd,mm,yy")

Hope this helps...

Please mark questions as answered when done.

Be the ONE!!!

•

Join Date: Jul 2008

Posts: 476

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

Nov 2nd, 2009

some little change

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Text1.Text = dtPicker1.ValueText1.Text = Format(Text1.Text, "dd,mm,yy")
Text1.Text = dtPicker1.ValueText1.Text = Format(Text1.Text, "dd,mm,yy")

I like sword. Attack or Defense.

•

Join Date: Jul 2008

Posts: 476

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

Nov 2nd, 2009

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Text1.Text = dtPicker1.Value
Text1.Text = Format(Text1.Text, "dd,mm,yy")
Text1.Text = dtPicker1.Value
Text1.Text = Format(Text1.Text, "dd,mm,yy")

Last edited by abu taher; Nov 2nd, 2009 at 10:57 pm.

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 255

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 37

AndreRet

Offline

Posting Whiz in Training

Nov 3rd, 2009

Must have been the wine.... comma in place of point. LOL

Some more dtPicker help for you all -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub DTPicker1_Click()
Text1.Text = DTPicker1.Value 'To get the date
Text2.Text = DTPicker1.Day 'To get the Day
Text3.Text = DTPicker1.Month 'To get the Month
Text4.Text = DTPicker1.Year ' To get the Year
Text5.Text = DTPicker1.DayOfWeek ' To get the Day of the Week
Text6.Text = Format(DTPicker1.Value, "DD-MM-YYYY", vbSunday,
vbFirstFullWeek) 'To set the date format as required
Text7.Text = DateAdd("d", 10, "01/02/2001") ' To add 10 days to the given date
Text8.Text = DateAdd("m", 10, "01/02/2001") 'To add 10 months to the given date
Text9.Text = DateAdd("yyyy", 10, "01/02/2001") 'To add 10 years to the given date
Text10.Text = DateDiff("d", "01/05/2001", "01/30/2001") 'To find the
number of days between any two dates
End Sub
Private Sub DTPicker1_Click()
Text1.Text = DTPicker1.Value 'To get the date
Text2.Text = DTPicker1.Day 'To get the Day
Text3.Text = DTPicker1.Month 'To get the Month
Text4.Text = DTPicker1.Year ' To get the Year
Text5.Text = DTPicker1.DayOfWeek ' To get the Day of the Week
Text6.Text = Format(DTPicker1.Value, "DD-MM-YYYY", vbSunday,
vbFirstFullWeek) 'To set the date format as required
Text7.Text = DateAdd("d", 10, "01/02/2001") ' To add 10 days to the given date
Text8.Text = DateAdd("m", 10, "01/02/2001") 'To add 10 months to the given date
Text9.Text = DateAdd("yyyy", 10, "01/02/2001") 'To add 10 years to the given date
Text10.Text = DateDiff("d", "01/05/2001", "01/30/2001") 'To find the
number of days between any two dates
End Sub