VB Functions for mm/dd/yyyy

Private Function getMonth(tmpDate As String) As Integer

    Dim tmpMonth As String

    Dim tmpMonthLoc As Integer

    tmpMonthLoc = InStr(1, tmpDate, "/")

    getMonth = Mid(tmpDate, 1, tmpMonthLoc - 1)

End Function

Private Function getDay(tmpDate As String) As Integer

    Dim tmpDay As String

    Dim tmpDayLoc As Integer

    tmpDayLoc = InStr(1, tmpDate, "/")

    getDay = Mid(tmpDate, tmpDayLoc + 1, Len(tmpDate) - 5 - tmpDayLoc)

End Function

Private Function getYear(tmpDate As String) As Integer

    getYear = Right$(tmpDate, 4)

End Function

Multi-Vitamin

I bought the Target brand Children's Gummy Multi-Vitamin.  They are delicious and $8 for 190.  I heart them.  My only struggle is not eating too many.

Rust Stain in Pool

I forgot to take the garden hose out of my pool and after about a week my pull had a orangish tint to it.  I told the pool guy and said to buy chewable Vitamin C tablets from Wal-mart and rub it on the stain.  If it works then it is a rust stain.  He was right!  I rubbed it on the stain and the first wipe it was clean as could be.  I dropped a tablets in the pool and they left 2ft clean circles.  I ended up buying 2lbs of some magic stuff to the whole pool instead of random spots.  I thought that was rather impressive.

Files still open on the Server

Disconnect sessions from a given machine

From the command prompt (Run->cmd)

NET SESSION \\ComputerName /DELETE