How To Count Time , If Only One Day Left From Db .??

In the below condition , i need to run the time in decreasing order untill the date becomes equal..

5:35:00 left
5:34:30 left

0:29:00 left


ElseIf countdate = 1 Then
label1.text = "timecount should be viewed"
End If





currentdate = Date.Now.ToString("MM/dd/yyyy")
Dim diffdbdate As DateTime = dr.Item("date")
Dim diffdate As Integer
diffdate = DateDiff("d", currentdate, diffdbdate)
Dim countdate As String = Replace(diffdate, "-", "")
If currentdate > diffdbdate Then
Label1.text = countdate & "days Before"
ElseIf countdate = 1 Then
i need to run the the time , in the decreasing order
End If
<div id="refHTML"></div>