Delphi Trick 009 - Decode Date Time

AR : كيفية فك تشفير التاريخ والوقت بالتفصيل
FR : Comment décoder la date et l'heure en détail
EN : How to decode the date and time in detail
ES : Cómo decodificar la fecha y la hora en detalle
RS : Как подробно декодировать дату и время
AL : So dekodieren Sie Datum und Uhrzeit im Detail

Rad Studio Delphi DecodeDate DecodeTime Pascal Lazarus

Code :

var Y,M,D,H,MN,S,MS:word;
begin
Memo1.Clear;
DecodeDate(Now,Y,M,D);
DecodeTime(Now,H,MN,S,MS);
Memo1.Lines.Add('Year : '+inttostr(Y));
Memo1.Lines.Add('Month : '+inttostr(M));
Memo1.Lines.Add('Day : '+inttostr(D));

Memo1.Lines.Add('Hour : '+inttostr(H));
Memo1.Lines.Add('Min : '+inttostr(MN));
Memo1.Lines.Add('Sec : '+inttostr(s));
Memo1.Lines.Add('Mi Sec : '+inttostr(MS));

[dirtycow]

thank you bro <3
i watch always ur new vids !!

[bikaymeisnam]

Very nice yeah.👍..How can I convert message seen from time to 1 minute ago like that .plz show us also..

[cryptodeveloper]

كيف جلب معلومات عن pc مثلا MAC او اسم جهاز وسريال HDD ودمجهم مع ليظهر كود رقمي متكون 20 رقم ، وبعد اضافة عليه عدد ثم تشفيره وكيف يمكنني فك تشفيره

[alexis]

How do i declare milliseconds in case i want to insert a certain time? Cause i've been trying i don't find the answer... For example: '12:34:53( ?) ' How do i put it in ?

[belgacemdliouah]

Merci, SVP je veux afficher seulement l'année et le mois, sur une BD ?