Script for Days until

[Kyham]

Looking for something to set a HS variable to the number of days between current and some future holiday such as Christmas or New Years.

Any suggestions?

[Malarcy]

Something based around this bit of vbs should do

msgbox (datediff ("d",Now(),"4/7/2006"))

(Note - the date format appears to follow locale settings - so for me the above date string is the 4th of July not the 7th of April)

HTH

Malarcy

[rmasonjr]

sub main()
dim daysTillXmas

daysTillXmas = DateDiff("d", Now , "24-Dec")
hs.speak "There are " & daysTillXmas & " days until christmas. Ho ho ho."

end sub

[Shawn]

Last year someone wanted a script to announce New Years. The attached script might give you some ideas.

[Kyham]

Thanks to all

Got some good ones. They all do excactly what I wanted.

I found another one in JAVA that also works in an ASP page.

Don

[MeSteve]

http://board.homeseer.com/showthread.php?t=114057

[Rupp]

Don this will set a VD text to the number of days till the date entered.

sub main()
 iNumDays = datediff("d",Now,"12/25/2006")
 hs.setDeviceString "A1", iNumDays
end sub 

[Kyham]

Thanks

Another one to add to my collection. All work great.

[jacobegan]

sub main()
dim daysTillXmas

daysTillXmas = DateDiff("d", Now , "24-Dec")
hs.speak "There are " & daysTillXmas & " days until christmas. Ho ho ho."

end sub

Where do you put this in the event to speak the values? When I copy and paste the text above, the system reads the values as literal text.

[jon00]

Place the attached file in your scripts directory and then create an event to run the script xmas.txt.

[rmasonjr]

Where do you put this in the event to speak the values? When I copy and paste the text above, the system reads the values as literal text.

Thats an older script, so let's bring it up to date with this:

Create an Event called "Days Until Xmas"
The trigger can be anything like, the time as at 7:00p
Run a Script or Script Command
Click the Edit button
Where you select a script file, just add DaysUntil.vb to the end of the path - this will create a new script called DaysUntil.vb


Now, in the script body, make it look like this:




Here is the text version of the script to paste:

Sub Main(parm as object)
dim daysTillXmas as Integer

daysTillXmas = DateDiff("d", Now , "24-Dec")
hs.speak("There are " & daysTillXmas & " days until christmas. Ho ho ho.")
End Sub

[jacobegan]

Thank you both. That got it.

[rmasonjr]

Thank you both. That got it.

Thanks for bringing up this old post. I had forgotten how much my kids loved hearing this during christmas time. They are older now and I miss that

[jon00]

Thanks for bringing up this old post. I had forgotten how much my kids loved hearing this during christmas time. They are older now and I miss that

Over 13 years it would appear. They must be grown up!

[rmasonjr]

Over 13 years it would appear. They must be grown up!

Yeah, this post made me realize how older they are.