PP makro: automatické počítání dnů bez nehody

Najjednoduchšie je prirátať +1 pri zmene dátumu.
Na toto zamestnávate jeden počítač + licenciu na MS office a windows ? To ste pracháči.

Ano, toto obstarává jeden AiO počítač. Licence office, jak jsem již psal, není jeho součástí a ani nebude, což je nyní celkem zřejmé. Na netu jsem nalezl pár skriptů, ale ani jeden zcela nefungoval. Proto se také obracím na Vás, zdá se totiž, že to nebude taková hračka, jak jsem čekal.

Př.1:

Sub DaysSinceIncident()
    Dim currentDate As String
    Dim lastDate As String
    Dim currentDays As Long
    lastDate = "04/10/2014"
    currentDays = InputBox("365")
    While True
        currentDate = Date
        If currentDate <> lastDate Then
            currrentDays = currentDays + 1
            lastDate = currentDate
            ActivePresentation.Slides(1).Shapes("Number of Days").TextFrame.TextRange.Text = currentDays
        End If
        DoEvents
    Wend
End Sub

Př.2:

Dim lastDate As String
    Dim injfree As Integer
    Dim BnrMsg As String
Sub UpdateBannerText()
    injdate = InputBox("mm/dd/yyyy")
    lastDate = injdate
    injfree = DateDiff("d", injdate, Now)
    BnrMsg = injfree
    ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Text = BnrMsg
End Sub
Sub ResetDate()
    injfree = DateDiff("d", lastDate, Now)
    BnrMsg = injfree
    ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Text = BnrMsg
End Sub

Namiesto cyklu použí Application.OnTime. Nebudeš tak zbytočne vyťažovať CPU.

Ja by som na to použil radšej HTML a JavaScript. Nemusel by som tak riešiť Office ani Windows.