none
Rotina envolvendo datas RRS feed

  • Pergunta

  • Olá, essa rotina está correta, não dá erro, só que ela deveria alterar a data do sistema do PC para a data oficial de Brasília. Pelo menos eu acho que ela deveria fazer isso. Por exemplo: Altero a data do meu PC, coloco uma data qualquer diferente da data atual correta, penso que ao rodar essa rotina, ela deveria alterar a data do PC para a data correta.

    Alguém pode me dar uma força sobre o que devo fazer para ela funcionar assim, o que está faltando para ela fazer essa alteração no meu PC.

    Public Class Form1

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            'Pega TimeZone de Brasilia
            Dim timeZoneBrasilia As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("E. South America Standard Time")

            'Converte a data do seu sistema para o horario de Brasilia
            Dim dataAtual As DateTime = TimeZoneInfo.ConvertTimeFromUtc(DateTime.UtcNow, timeZoneBrasilia)

            Dim dataLim As DateTime

            Dim diasUso As TimeSpan

            dataLim = New Date(2019, 10, 10)

            diasUso = dataLim.Subtract(dataAtual)

            If dataAtual < dataLim Then

                MessageBox.Show("Este aplicativo ainda tem " + diasUso.Days.ToString() & " dias de uso.")

            Else

                diasUso = dataAtual.Subtract(dataLim)

                MessageBox.Show("Este aplicativo já venceu seu prazo de uso há " + diasUso.Days.ToString() & " dias e será encerrado.")

                End

            End If

        End Sub

    End Class

    quinta-feira, 3 de outubro de 2019 20:26