Convertir pwdLastSet en date. [Résolu]

Messages postés
77
Date d'inscription
vendredi 31 décembre 2004
Dernière intervention
6 septembre 2010
- 27 juil. 2009 à 10:31 - Dernière réponse :
Messages postés
77
Date d'inscription
vendredi 31 décembre 2004
Dernière intervention
6 septembre 2010
- 27 juil. 2009 à 16:26
Bonjour a tous.

Je cherche a convertir la variable pwdLastSet récuperer dans l'AD en VB mais impossible d'y arriver.
Le programme me retourne quelquechose comme 1233265525251 que je voudrais convertir en date ou en string. Quelqu'un à une idée ??

Merci d'avance.

DeWaRs
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
- 27 juil. 2009 à 16:00
3
Merci
Salut
Si pwdLastSet est bien dimensionné en Currency :

Private 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

Private Declare Function FileTimeToLocalFileTime Lib "kernel32" ( _
    lpFileTime As Currency, _
    lpLocalFileTime As Currency) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" ( _
    lpFileTime As Currency, _
    lpSystemTime As SYSTEMTIME) As Long


    Dim maDate As SYSTEMTIME
    FileTimeToLocalFileTime pwdLastSet, pwdLastSet
    FileTimeToSystemTime pwdLastSet, maDate
    
    With maDate
        Debug.Print CStr(.wHour) + ":" + CStr(.wMinute) + "." + CStr(.wSecond) + ", le " + _
                    CStr(.wMonth) + "/" + CStr(.wDay) + "/" + CStr(.wYear) & ")"
    End With


Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de cs_Jack
Messages postés
77
Date d'inscription
vendredi 31 décembre 2004
Dernière intervention
6 septembre 2010
- 27 juil. 2009 à 16:26
0
Merci
Merci bcp !
Commenter la réponse de cs_DeWaRs

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.