## COMO ALTERAR A DATA DO WINDOWS VIA VB6? ##

Uma api simples pra isto

inclua uma combo, um ComandButton e um Label, em seu projeto para fazer o teste

Option Explicit

Private Const LOCALE_SSHORTDATE = &H1F
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean

Private Sub Command1_Click()
Dim lngLocale As Long
lngLocale = GetSystemDefaultLCID()
If SetLocaleInfo(lngLocale, LOCALE_SSHORTDATE, Combo1.Text) = False Then
Label1.Caption = "Houve um erro ao definir o formato de data !"
Else
Label1.Caption = "Formato de data atualizado para " & Combo1.Text & " com sucesso !"
End If
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "[Selecione um formato]"
.AddItem "MM/dd/yyyy"
.AddItem "dd/MM/yyyy"
.AddItem "MM-dd-yyyy"
.AddItem "dd-MM-yyyy"
.ListIndex = 0
End With
Label1.Caption = ""
End Sub

Desculpe o código acima vai alterar o formato da data, e não a data, porém vou deixa-lo para os colegas, agora para mudar a data é mais simples veja:

coloque m um botão

date = format("02/12/1988", "dd/MM/yyyy")
time = format("00:00:00", "HH:mm:ss")

simples né todo mundo acha que o date e o time serve somente para exibir a data e o hora do windows e não ele também altera.