Trouver l'utc en se basant sur la date et l'heure de votre pc

Télécharger le projet
Commenter

Description

Bon niveau code il n'y a rien d'extraordiaire
Cette source permet simplement de trouver l'UTC en s'appuyant sur la date et l'heure de votre pc.
Pour ceux qui ne savent pas ce qu'est l'UTC" voici une petite définition http://www.bipm.org/fr/practical_info/time_server.html

Source / Exemple : 


Voici les fonctions et api utilisées à mettre dans un module

8<----------------------------------------------------------
Public Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Public Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Public Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long

Public Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Public Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Public Function Conv_DateToSYSTEMTIME(Date1 As Date) As SYSTEMTIME

    'Conversion d'un type date en type SYSTEMTIME
    
    Dim Systemtime1 As SYSTEMTIME
    
    With Systemtime1
        .wYear = Year(Date1)
        .wMonth = Month(Date1)
        .wDay = Day(Date1)
        .wHour = Hour(Date1)
        .wMinute = Minute(Date1)
        .wSecond = Second(Date1)
    End With
    
    Conv_DateToSYSTEMTIME = Systemtime1
    
End Function

Public Function Conv_SYSTEMTIMEToDate(Systemtime1 As SYSTEMTIME) As Date

    'Conversion d'un type SYSTEMTIME en type date

    Dim Date1 As Date
    
    With Systemtime1
        Date1 = CDate(Format$(.wMonth) & "/" & Format$(.wDay) & "/" & Format$(.wYear) & " " & Format$(.wHour) & ":" & Format$(.wMinute, "00") & ":" & Format$(.wSecond, "00"))
    End With
    
    Conv_SYSTEMTIMEToDate = Date1
    
End Function

---------------------------------------------------------->8

Conclusion :


Voila j'ai mis un exemple d'utilisation dans le fichier zip
Cette source servira peut etre à un d'entre vous :)
Télécharger le projet

Codes Sources

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 (cs_Willi)