Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(Test.ServerTime.FormattedDate)

    End Sub

End Module

​

Public Class ServerDateTime

    Private Function GetCurrentDateTime As DateTime

        'Get the server time using the RestTestClient instead of using DateTime.Now which is the client time

        'See accountancy assemblies

        Return DateTime.Now

    End Function

​

    Public ReadOnly Property Now As DateTime

        Get

            Return GetCurrentDateTime

        End Get

    End Property

    Public ReadOnly Property FormattedDate As String

        Get

            Return GetCurrentDateTime.ToString("dd-MM-yyyy")

        End Get

    End Property

End Class

​

Public Class Test

    Public Shared ServerTime As ServerDateTime = new ServerDateTime()

End Class