Count Down Days - Solved

[Beyond Me]

I've setup a user form but am having one problem. I want to add a label so that it counts down the number of days.

Example today is the 26th August and I would like the label to show the number of days between today and the 1st September. When the file is opened tomorrow it will be 1 day less and so on.

This is what I've done so far but it does not show the result as days

Label1.Caption = #1/9/2006# - Now()

Can anyone assist?

 

[indiantrix]

Not code, but try this in a cell: =IF(ISERROR(DATEDIF(TODAY(),"9/1/2006","d")),"Past Due",DATEDIF(TODAY(),"9/1/2006","d")) The words "Past Due" may be altered to suit your needs. /s/ Larry

 

[Beyond Me]

Thanks, this is what I eventually used:

Label1.Caption = #12/31/2006# - Date

 

[VoG]

Try

UserForm1.Label1.Caption = #9/1/2006# - Date

Note - I had to use the American m/d/yyyy to get this to work.

Edit: Doh - too late as usual!

 

[buffyiscool]

Hi there

this is a bit long winded but it will allow you to enter UK date formats

Dim date1 As Date, futdate As Date
date1 = Format(Now, "[$809]dd mmmm yyyy")
futdate = Format("01-09-2006", "[$809]dd mmmm yyyy")
Me.Label1.Caption = futdate - date1 & " days remaining until " & futdate

If getting the date from a spreadsheet cell just change the first part of the futdate Format, where I've got the date as 1st sept to the address of the cell containing the date.

Regards
Colin