Click here to Skip to main content
15,442,578 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
I have a date in database . And I want to have a timer which will show the number of years, months, days, hours, minutes, and seconds from the current system datetime .
How to do it

What I have tried:

I have tried this in a label and it works fine . But need to show it in a timer and it increases with every tick

Dim correslink = (From d In Mainfrm.db.ReferrerToClaims Where d.InjuryID = injuryid).FirstOrDefault

           Dim dtStart = Convert.ToDateTime(correslink.ClawbackRefDate)
           Dim dtEnd = System.DateTime.Now
           Dim dts As DateTimeSpan = DateTimeSpan.DateSpan(dtEnd, dtStart)
           lblClawbackTimer.Text = dts.Years.ToString & " Years " & dts.Months.ToString & " Months " & dts.Days.ToString & " Days" & dts.Hours.ToString() & " Hours " & dts.Minutes.ToString() & " Minutes " & dts.Seconds.ToString() & " Seconds"

Public Structure DateTimeSpan

        Private _Years As Integer
        Public ReadOnly Property Years As Integer
            Get
                Return _Years
            End Get
        End Property

        Private _Months As Integer
        Public ReadOnly Property Months As Integer
            Get
                Return _Months
            End Get
        End Property

        Private _Days As Integer
        Public ReadOnly Property Days As Integer
            Get
                Return _Days
            End Get
        End Property

        Private _Hours As Integer
        Public ReadOnly Property Hours As Integer
            Get
                Return _Hours
            End Get
        End Property

        Private _Minutes As Integer
        Public ReadOnly Property Minutes As Integer
            Get
                Return _Minutes
            End Get
        End Property

        Private _Seconds As Integer
        Public ReadOnly Property Seconds As Integer
            Get
                Return _Seconds
            End Get
        End Property

        Private _MilliSeconds As Integer
        Public ReadOnly Property MilliSeconds As Integer
            Get
                Return _MilliSeconds
            End Get
        End Property

        ' the ctor for the result
        Private Sub New(y As Integer, mm As Integer, d As Integer,
                        h As Integer, m As Integer, s As Integer,
                        ms As Integer)
            _Years = y
            _Months = mm
            _Days = d
            _Hours = h
            _Minutes = m
            _Seconds = Seconds
            _MilliSeconds = ms
        End Sub

        ' private time unit tracker when counting
        Private Enum Unit
            Year
            Month
            Day
            Hour
            Minute
            Second
            Complete
        End Enum

        Public Shared Function DateSpan(dt1 As DateTime,
                                        dt2 As DateTime) As DateTimeSpan
            ' we dont do negatives
            If dt2 < dt1 Then
                Dim tmp = dt1
                dt1 = dt2
                dt2 = tmp
            End If

            Dim thisDT As DateTime = dt1
            Dim years As Integer = 0
            Dim months As Integer = 0
            Dim days As Integer = 0

            Dim level As Unit = Unit.Year
            Dim span As New DateTimeSpan()

            While level <> Unit.Complete
                Select Case level
                    ' add a year until it is larger;
                    ' then change the "level" to month
                    Case Unit.Year
                        If thisDT.AddYears(years + 1) > dt2 Then
                            level = Unit.Month
                            thisDT = thisDT.AddYears(years)
                        Else
                            years += 1
                        End If

                    Case Unit.Month
                        If thisDT.AddMonths(months + 1) > dt2 Then
                            level = Unit.Day
                            thisDT = thisDT.AddMonths(months)
                        Else
                            months += 1
                        End If

                    Case Unit.Day
                        If thisDT.AddDays(days + 1) > dt2 Then
                            thisDT = thisDT.AddDays(days)
                            Dim thisTS = dt2 - thisDT
                            ' create a new DTS from the values caluclated
                            span = New DateTimeSpan(years, months, days, thisTS.Hours,
                                                    thisTS.Minutes, thisTS.Seconds,
                                        thisTS.Milliseconds)
                            level = Unit.Complete
                        Else
                            days += 1
                        End If
                End Select
            End While

            Return span

        End Function

    End Structure
Posted
Updated 13-Apr-21 0:08am

1 solution

So do: add add a Timer, set the Interval to 500 (half a second), handle the Tick event, and start the timer.

In the handler method, call your code above.
The only change I'd make is to remove the continual DB access, and store the start DateTime in a class level variable - DB access can be slow, and you don't want to block the UI thread for too long as it can make your app "jerky" and difficult to use.
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900