begin process at 2012 02 15 03:17:41
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

API

 > 

convert long en Date


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

convert long en Date

vendredi 31 mai 2002 à 12:57:04 | convert long en Date

sygale

dimanche 22 décembre 2002 à 16:46:42 | Re : convert long en Date

childr3n

salut ...
j'ai exactement le meme pb
j'essai de recuperer la derniere date de modif d'un fichier dispo sur FTP

je recupere comme toi un long (ds le format FILETIME)
mais je n'arrive pas a le reconvertir en date + time

alors que le premier qui trouve une solution previenne l'autre
Courage,

A+, Nico.



-------------------------------
Réponse au message :
-------------------------------

> Sygale
> Bonjour j'utilise en ce moment les APIs
> Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
> (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
> Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
> (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
> Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
>
> '---Les types---
> Public Type FILETIME
> dwLowDateTime As Long
> dwHighDateTime As Long
> End Type
>
> Public Type WIN32_FIND_DATA
> dwFileAttributes As Long
> ftCreationTime As FILETIME
> ftLastAccessTime As FILETIME
> ftLastWriteTime As FILETIME
> nFileSizeHigh As Long
> nFileSizeLow As Long
> dwReserved0 As Long
> dwReserved1 As Long
> cFileName As String * MAX_PATH
> cAlternate As String * 14
> End Type
>
> Dans le Format FILETIME nous avons des dates/heures en type long comment fait on pour les converir en as Date ???????
>
> Merci d'avance
lundi 23 décembre 2002 à 09:46:18 | Re : convert long en Date

sygale

Putain ca fait super longtemps que j'ai posté ca !! enfin utilisae ca c'est tres bien
Bon courage

Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

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 Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Sygale


-------------------------------
Réponse au message :
-------------------------------

> salut ...
> j'ai exactement le meme pb
> j'essai de recuperer la derniere date de modif d'un fichier dispo sur FTP
>
> je recupere comme toi un long (ds le format FILETIME)
> mais je n'arrive pas a le reconvertir en date + time
>
> alors que le premier qui trouve une solution previenne l'autre
> Courage,
>
> A+, Nico.
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Sygale
> > Bonjour j'utilise en ce moment les APIs
> > Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
> > (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
> > Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
> > (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
> > Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
> >
> > '---Les types---
> > Public Type FILETIME
> > dwLowDateTime As Long
> > dwHighDateTime As Long
> > End Type
> >
> > Public Type WIN32_FIND_DATA
> > dwFileAttributes As Long
> > ftCreationTime As FILETIME
> > ftLastAccessTime As FILETIME
> > ftLastWriteTime As FILETIME
> > nFileSizeHigh As Long
> > nFileSizeLow As Long
> > dwReserved0 As Long
> > dwReserved1 As Long
> > cFileName As String * MAX_PATH
> > cAlternate As String * 14
> > End Type
> >
> > Dans le Format FILETIME nous avons des dates/heures en type long comment fait on pour les converir en as Date ???????
> >
> > Merci d'avance
>
lundi 23 décembre 2002 à 14:03:30 | Re : convert long en Date

childr3n


nickel merci !
en effet ca faisait un bail que t'avais posé la question (comme quoi tu es plus reactif que les autres : )), j'avais meme pas fait gaffe ...

En tt cas tu m'a bien aidé, parce qu'a par trouvé qu'un FILETIME etait le nombre de secondes écoulés depuis le 1/1/1601 (!!) je n'avais pas trouvé grd chose d'autre

Je me voyai deja bon pr coder la fonction de conversion ...

Bref ! Merci bien

Ciao, Nico.


-------------------------------
Réponse au message :
-------------------------------

> Putain ca fait super longtemps que j'ai posté ca !! enfin utilisae ca c'est tres bien
> Bon courage
>
> Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
>
> 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 Type FILETIME
> dwLowDateTime As Long
> dwHighDateTime As Long
> End Type
>
> Sygale
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > salut ...
> > j'ai exactement le meme pb
> > j'essai de recuperer la derniere date de modif d'un fichier dispo sur FTP
> >
> > je recupere comme toi un long (ds le format FILETIME)
> > mais je n'arrive pas a le reconvertir en date + time
> >
> > alors que le premier qui trouve une solution previenne l'autre
> > Courage,
> >
> > A+, Nico.
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Sygale
> > > Bonjour j'utilise en ce moment les APIs
> > > Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
> > > (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
> > > Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
> > > (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
> > > Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
> > >
> > > '---Les types---
> > > Public Type FILETIME
> > > dwLowDateTime As Long
> > > dwHighDateTime As Long
> > > End Type
> > >
> > > Public Type WIN32_FIND_DATA
> > > dwFileAttributes As Long
> > > ftCreationTime As FILETIME
> > > ftLastAccessTime As FILETIME
> > > ftLastWriteTime As FILETIME
> > > nFileSizeHigh As Long
> > > nFileSizeLow As Long
> > > dwReserved0 As Long
> > > dwReserved1 As Long
> > > cFileName As String * MAX_PATH
> > > cAlternate As String * 14
> > > End Type
> > >
> > > Dans le Format FILETIME nous avons des dates/heures en type long comment fait on pour les converir en as Date ???????
> > >
> > > Merci d'avance
> >
>
vendredi 1 juillet 2005 à 15:10:53 | Re : convert long en Date

nicowana

Salut à tous,
j'utilise ta methose etj'ai remarqué un bugue !
Quand la date de derniere modification est égale à la date du jour, il retire 1 an à l'année !!!
pouvez vous me dire pkoi ? et comment faire pour corriger le bugue
merci


Cette discussion est classée dans : date, long, convert


Répondre à ce message

Sujets en rapport avec ce message

Convert date/heure 20030108120512.000000+060 [ par aour ] Bonjour et bonne année,J'utilise WMI pour retruover certaines infos sur mon serveur mais toutes les dates sont retournées sous cette forme :2003010812 Lancer un fichier .vbs à partir d'une date [ par Warter ] Je cherche à lancer un fichier en .vbs à partir d'une date, pour faire un sorte de date de validité à un logiciel. Le logiciel ce lance à chaque démar vbs démarrage à partir d'une date [ par Traftor ] Je cherche à lancer un fichier en .vbs à partir d'une date, pour faire un sorte de date de validité à un logiciel. Le logiciel ce lance à chaque démar Fonction UTF-8 [ par gribouillex ] Bonjour, J'aimerais assembler une fonction à une macro existante, il s'agit d'enregistrer un fichier txt en UTF-8. J'ai la fonction et j'ai le module Afficher les deux derniers enregistrement [ par kammegg ] SalutJ'ai une table nommée "Reproduction" qui contient un champ nommé "Code_animal" qui correspond au code de l'animal et un champ "<f Imagelist long à charger [ par Ulala2 ] Bonjour, J'ai un imagelist qui a 224 images dedans, qui représentent des logos de marques. Chaque images fait en moyenne 4 Ko, le composant prend alo Tester une valeur "Date [ par loxo ] Bonjourje dois faire une condition sur une valeur de date qui se trouve dans une table accessj'aimerai tester si ce champe est vide If Me![Date_fin] = CheckBox [ par gon_ak ] Bonjour à tous!! Il fait beau!! le temps est splendide!! (enfin là où je suis) et les oiseaux chantent. Mais j'ai un énorme souci: J'ai un checkbox diviser un champ en deux dans une table [ par Spawn3107 ] Bonjour tout le monde,lorsque j'importe un fichier avec access,j'obtiens bien les différents champs que je veux mais un champ contient à la fois le te rapport type [ par biquet76 ] Salut à tous, Petite précision pour commencer, je travaille avev VB6 en autodidacte depuis peu. Pour le système qualité de mon boulot, je veux réa


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,137 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales