Problem with Dates in Excel 2

[turps]

Hi

I have a form that allows the use to click on a button to input the date and time. This then needs to be added to a worksheet and need to display the date and the time within the same cell. Using the code

ActiveSheet.Range("A1").Value = DateValue(txtDate.Text)

this works with the date but displays it as 00:00 for the time. The time I need to use is the time that the user inputs not the time on the PC. How can I add the time function to this line of code?


Regards

David

 

[SkipVought]

Hi,

Try also using the TimeValue function.

Skip,

_{[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment...
Pinot More!}

 

[turps]

Hi

I have got it to work by

deadlinetime = Right(txtDeadline, 5)
    Cells(srow, 5) = DateValue(frmCheckers.txtDeadline.Text) & " " & deadlinetime

Regards

David

 

[SkipVought]

You could add the DateValue and the TimeValue to be more consistent.

Did you read...

Why do Dates and Times seem to be so much trouble? faq68-5827

Skip,

_{[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment...
Pinot More!}

 

[xlbo]

...and why not:

ActiveSheet.Range("A1").Value = DateValue(txtDate.Text) + TimeValue(txtDate.Text)

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[SkipVought]

EXACTLY!

Skip,

_{[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment and urethric relief...
Pinot More!}

 

[xlbo]

...well - if you only pick up the Date Value, you can hardly be surprised when you get nothing for the time ;-)

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[turps]

Thank you all for your help

[Thumbsup]

Regards

David