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
