Modifier la date système


Commenter

Contenu du snippet 

#Region "déclarations SetSystemTime"
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure SYSTEMTIME
        Dim wYear As Short
        Dim wMonth As Short
        Dim wDayOfWeek As Short
        Dim wDay As Short
        Dim wHour As Short
        Dim wMinute As Short
        Dim wSecond As Short
        Dim wMilliseconds As Short
    End Structure
    <DllImportAttribute("kernel32.dll", SetLastError:=True)> _
    Private Function SetSystemTime(<[In]()> ByRef lpSystemTime As SYSTEMTIME) As Boolean
    End Function
#End Region

    Public Function SetDateTime(ByVal DTime As System.DateTime) As Boolean
        'NB : DATE UTC, tenir compte du décalage horaire désiré
        Dim lpSystemTime As SYSTEMTIME
        lpSystemTime.wYear = Convert.ToUInt16(DTime.Year)
        lpSystemTime.wMonth = Convert.ToUInt16(DTime.Month)
        lpSystemTime.wDay = Convert.ToUInt16(DTime.Day)
        lpSystemTime.wHour = Convert.ToUInt16(DTime.Hour)
        lpSystemTime.wMinute = Convert.ToUInt16(DTime.Minute)
        lpSystemTime.wSecond = Convert.ToUInt16(DTime.Second)
        Return SetSystemTime(lpSystemTime)
    End Function

Compatibilité : VB 2008

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)