求vb代碼 用來倒計時今年還剩多少天的代碼 並且做解釋 相關的語句讓我看懂 vb初學者請見諒

datesub = DateDiff("s", Now, #7/28/2012 3:12:00 AM#)

dd = Fix(datesub / 60 / 60 / 24)

HH = Fix((datesub - dd * 60 * 60 * 24) / (60 * 60))

MM = Fix((datesub - dd * 60 * 60 * 24 - HH * 60 * 60) / 60)

SS = Fix(datesub - dd * 60 * 60 * 24 - HH * 60 * 60 - MM * 60)

strtip = "距2012年7月28日03時12分00秒倫敦奧運會 還有: "

strtip = strtip + CStr(dd) + "天"

strtip = strtip + CStr(HH) + "小時"

strtip = strtip + CStr(MM) + "分鐘"

strtip = strtip + CStr(SS) + "秒"

Label1.Caption = strtip

End Sub

哪句不懂請追問，要源代碼留QQ