Re: How To Get A Date To Advance In A TextBox

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: mudraker (mudraker.1ei99y_at_excelforum-nospam.com)
Date: 10/22/04 

Date: Thu, 21 Oct 2004 20:58:55 -0500

You have not said were the text box is on a *** or a dilaog box

for a ***

this gives todays date
Sheets(1).TextBox1.Text = Format(Now(), "dd/mm/yyyy")

this adds 1 to the date in the text box
Sheets(1).TextBox1.Text = Format(DateValue(Sheets(1). _
TextBox1.Text) + 1, "dd/mm/yyyy") 

-- 
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=2473
View this thread: http://www.excelforum.com/showthread.php?threadid=271408
Quantcast