Discussion :

[Laurent Dardenne]

Salut,
j'essaie de convertie une chaine de caractéres représentant une date
('20050820151418.734375-000') mais je ne sais pas quel fonction appeller. J'ai utilisé un objet SWbemDateTime mais sans résultat.

J'ai trouvé ceci :
"La date et l'heure dans WMI sont représentées dans le format datetime DMTF."
Sous .NET les fonctions de conversion existe mais pas sous Win32.

Qq à une idée pour convertir cette date dans un format reconnu par Win32 ?

Delphi Win32, Xp Pro.

[David.Schris]

Je ne sais pas si j'ai bien compris le problème (car la solution me semble relativement simple), mais je me lance quand même :
1) tu découpes la chaîne pour en extraire ses éléments constitutifs (cf. CIM_DATETIME) ;
2) tu remplis une structure SYSTEMTIME avec les éléments extraits.

Il y aura peut-être une subtilité pour "compenser" le décalage par rapport à l'heure UTC exprimée dans la chaîne (3 derniers caractères), mais sinon...

Euh...J'ai bon ?

[Laurent Dardenne]

Je ne sais pas si j'ai bien compris le problème (car la solution me semble relativement simple), mais je me lance quand même :

Oui mais hier je n'ai pas 'vue' la structure CIM_DATETIME au début, ensuite j'ai persisté dans une impasse
Mais après des heures de recherche, une nuit de sommeil et ton post pour confirmer cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   If WmiProperty.name='CreationTime'
     then
       With WmiDateTime do
       begin
         CreationTime:=WmiProperty.Get_Value;
         UTCSpecified:=True;
         Year:=StrToInt(Copy(CreationTime,1,4));
         Month:=StrToInt(Copy(CreationTime,5,2));
         Day:=StrToInt(Copy(CreationTime,7,2));
         Hours:=StrToInt(Copy(CreationTime,9,2));
         Minutes:=StrToInt(Copy(CreationTime,11,2));
         Seconds:=StrToInt(Copy(CreationTime,13,2));
         Microseconds:=StrToInt(Copy(CreationTime,16,6));
         Utc:=StrToInt(Copy(CreationTime,22,4));
         Write('Date : ',DateTimeToStr(GetVarDate(True)));
       end;

1) tu découpes la chaîne pour en extraire ses éléments constitutifs

Le paradoxe, à mon sens, c'est que WMI permet de faciliter les appels système mais de l'autre ne permet pas de manipuler 'correctement' le type de données DATE.

Il y aura peut-être une subtilité pour "compenser" le décalage par rapport à l'heure UTC exprimée dans la chaîne (3 derniers caractères), mais sinon...

Pour la gestion du fuseau horaire (UTC) je n'ai pas trouvé d'API Win32.

Euh...J'ai bon ?

Trés bon même.
MERCI