Countdown timer to a specific date

Hi everyone,

I need some help doing a countdown timer ( DD:HH:MM:SS) for a power-point presentation. It needs to countdown from the current time until a specific date ( November 7th, 2018) . I am assuming this can be done with VBA. Can someone please help me?

Count down number of Days from now to 07/11/2018?

Count down number of Seconds from now to 07/11/2018 00:00:01?

Quote:

---

Originally Posted by SamT

Count down number of Days from now to 07/11/2018?

Count down number of Seconds from now to 07/11/2018 00:00:01?

---

Thank you for your reply! I would like a Countdown of days, hours, minutes and seconds in the format (DDD:HH:MM:SS). The countdown is from now until 07/11/2018 00:00:01.

.
Here is one way :

Code:

---

Option Explicit


Sub Countdown()
Dim thedate As Date
Dim daycount As Long


'change to suit
thedate = "07/11/2018 00:00:01"


daycount = DateDiff("d", Now, thedate)


    Select Case daycount
        Case Is > 1
            Sheets("Sheet1").Range("A1").Value = daycount & " Days to go!"
        Case Is = 1
            Sheets("Sheet1").Range("A1").Value = daycount & " Day to go!"
        Case Else
            Sheets("Sheet1").Range("A1").Value = "It's here!"
    End Select
   
End Sub

---

Quote:

---

Originally Posted by Logit

.
Here is one way :

Code:

---

Option Explicit


Sub Countdown()
Dim thedate As Date
Dim daycount As Long


'change to suit
thedate = "07/11/2018 00:00:01"


daycount = DateDiff("d", Now, thedate)


    Select Case daycount
        Case Is > 1
            Sheets("Sheet1").Range("A1").Value = daycount & " Days to go!"
        Case Is = 1
            Sheets("Sheet1").Range("A1").Value = daycount & " Day to go!"
        Case Else
            Sheets("Sheet1").Range("A1").Value = "It's here!"
    End Select
   
End Sub

---

---

Thank you but I was looking to implement this in powerpoint! Also I only see the day count ;/

Place this code in a Standard Module

Code:

---

Public Function CountDown()
Dim Later As Date

  Application.Volatile
  Later = CDate("07/11/2018 00:00:01")
CountDown = Format(Later - Now, "d:h:mm:ss")
End Function

---

To use it, in any Cell use the formula

Code:

---

=Countown

---

To be able to change the count down to date, place this Function in a standard Module

Code:

---

Option Explicit

Public Function CountDown(ToTime As Variant)
Dim Later As Date

  Application.Volatile
  Later = CDate(ToTime)
CountDown = FormatLater - Now, "d:h:mm:ss")
End Function

---

You can use two cell formulas with it

Code:

---

=CountDown("07/11/2018 00:00:01")

---

Or

Code:

---

=CountDown(A1) 'Where the new date/time is in Cell A1

---

Quote:

---

Originally Posted by SamT

Place this code in a Standard Module

Code:

---

Public Function CountDown()
Dim Later As Date

  Application.Volatile
  Later = CDate("07/11/2018 00:00:01")
CountDown = Format(Later - Now, "d:h:mm:ss")
End Function

---

To use it, in any Cell use the formula

Code:

---

=Countown

---

To be able to change the count down to date, place this Function in a standard Module

Code:

---

Option Explicit

Public Function CountDown(ToTime As Variant)
Dim Later As Date

  Application.Volatile
  Later = CDate(ToTime)
CountDown = FormatLater - Now, "d:h:mm:ss")
End Function

---

You can use two cell formulas with it

Code:

---

=CountDown("07/11/2018 00:00:01")

---

Or

Code:

---

=CountDown(A1) 'Where the new date/time is in Cell A1

---

---

Hi, I know this has been a while but I could not get this to work. Applicaton.volatile does not seem to be recognized in power point VBA? Also do I have to run this in a cell inside the powerpoint slide?

Thank you

I'm sorry. I don't 'speak' PowerPoint. I am afraid that it's up to you to refactor that Excel Code to PowerPoint.

Or wait a bit and see if a PP Guru shows up to help you.