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

Soyez le premier à donner votre avis sur cette source.

Vue 8 617 fois - Téléchargée 1 724 fois

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 :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Willi
Messages postés
2376
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
17
Aucune ! c'est vrai j'aurais pu faire avec :(
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19
C'est quoi la différence avec la commande 'Now' ?
cs_Willi
Messages postés
2376
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
17
Dans l'intro je me suis planté mon code permet de trouver l'UTC en s'appuyant sur l'heure de votre pc

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.