l0sth34d2
Messages postés76Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention13 novembre 2008
-
18 oct. 2007 à 23:19
l0sth34d2
Messages postés76Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention13 novembre 2008
-
20 oct. 2007 à 15:00
Bonjour! :P
J'ai chercher sur google et ici pour une function Delphi mais je n'arrive pas a la trouver.. Y a-t-il une function qui permet de retourner " l'asctime " ?
Par exemple, j'aimerais que '1192671766' retourne la date Wed Oct 17 21:42:46 2007 (peut importe le format)
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 20 oct. 2007 à 14:54
J'ai une course à faire, là, mais voilà pour patienter (le code est fonctionnel et quasiment définitif) :
function Asctime(Value: Integer; const Adjust: Boolean = False): string;
var
D, H, M, S: LongWord;
function GMTLag: Integer;
const
KName = 'SYSTEM\CurrentControlSet\Control\TimeZoneInformation';
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(KName, False) then
try
Result := - ReadInteger('ActiveTimeBias');
finally
CloseKey;
end;
finally
Free;
end;
end;
begin
if Adjust then
Inc(Value, GMTLag * 60);
M := Value div 60;
S := Value mod 60;
H := M div 60;
M := M mod 60;
D := H div 24;
H := H mod 24;
Result := DateTimeToStr(25569 + D + EncodeTime(H, M, S, 0));
end;
Si tu passes True en paramètre Lag, le décalage horaire est calculé d'après la valeur stockée dans la base de registres.
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 19 oct. 2007 à 17:41
Salut,
Forcément, asctime c'est propre à Linux
En Delphi sous Windows, tu as la fonction :
FileAge()
qui te retourne un entier.
Tu peux convertir cet entier en TDateTime avec :
FileDateToDateTime()
Enfin, avoir l'âge du fichier sous forme de string genre '17/10/07 21:42:46' :
DateTimeToStr()
l0sth34d2
Messages postés76Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention13 novembre 20081 19 oct. 2007 à 22:02
Hum, je suis entrain de faire un client IRC et le server m'envoi comme information que le Topic du canal à été modifier le 1192671766...
Avec mIRC, si on utilise $asctime(1192671766), cela nous donne Wed Oct 17 21:42:46 2007
J'ai tester avec certains programmmes et c'est le meme resultat
Selon la RFC, le temps donné doit etre converti par asctime...
l0sth34d2
Messages postés76Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention13 novembre 20081 20 oct. 2007 à 01:06
Non ce n'est pas ça .. bien essayé par contre
J'ai trouver a un endroit que AscTime est, en fait, le contraire de ctime
Si par exemple on fait ctime(Fri Oct 19 18:59:38 2007) .. cela donne 1192834778
et si on fait asctime(1192834778) .. cela donne Fri Oct 19 18:59:38 2007
Mais bon! Cela ne m'avance pas vraiment
A mon avis il doit y avoir un calcul a faire avec l'heure local..
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 20 oct. 2007 à 10:43
Moi, ce que j'ai compris de la fonction asctime utilisée par d'autres langages, c'est qu'elle prend en paramètre une structure ou un pointeur sur cette structure.
Donc si tu ne disposes pas d'une de ces données, comment coder une fonction qui décoderait chaque élément de la structure ?
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 20 oct. 2007 à 14:48
Vu dans Wikipedia:
UTC-5 (EST ou ET)
EST, Eastern Standard Time (heure standard de l'Est de l'amérique du nord)
HNE, Heure normale de l'Est (au Canada)
Canada* :
Québec* (ouest)
Ontario* (est)
UTC-4 (AST)
AST, Atlantic Standard Time (heure standard de l'Atlantique)
HNA, Heure normale de l'Atlantique (au Canada)
Canada :
Labrador* (sauf la pointe sud-est)
Nouveau-Brunswick*
Nouvelle-Écosse*
Île du Prince-Édouard*
Québec* (est)
Mais t'es mieux placé que nous pour le savoir, l0sth34d2