تحويل من الهكس الى تاريخ - نسخة قابلة للطباعة

تحويل من الهكس الى تاريخ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل من الهكس الى تاريخ (/showthread.php?tid=8108)

تحويل من الهكس الى تاريخ - salah07230 - 23-08-2016

السلام عليكم
اريد تحول هذه القيمة E007051A الى 26 - 04 -2016
يعني تحويل قيمة من الهكي الى تاريخ
وشكرا

RE: تحويل من الهكس الى تاريخ - GENNARO - 24-08-2016

هلا

E007051A هذه لا تعني تاريخ

RE: تحويل من الهكس الى تاريخ - salah07230 - 24-08-2016

هذا شرح بسيط
1A=26
05=5
E007=2016
[size=small]وعند جمع الناتج نتحصل على [/size]
[size=small]26 5 2016[/size]

RE: تحويل من الهكس الى تاريخ - salah07230 - 24-08-2016

صورة توصيحية
[صورة: 1472030473071.png]

RE: تحويل من الهكس الى تاريخ - محمد عبد العزيز - 24-08-2016

وعليكم السلام
هذا حل سريع... بقي عليك التحقق من صحة النص المدخل

كود :
function HexToDate(HexStr : AnsiString) : TDateTime;
var
  yy, mm, dd : word;
begin
   yy:= StrToInt('$' +copy(HexStr,3,2)+copy(HexStr,1,2));
   mm:= StrToInt('$' +copy(HexStr,5,2));
   dd:= StrToInt('$' +copy(HexStr,7,2));

   Result := EncodeDate(yy, mm, dd);
end;

RE: تحويل من الهكس الى تاريخ - salah07230 - 24-08-2016

ممكن مثال بسيط يحتوي على:
edit1.text
edit2.text
button

RE: تحويل من الهكس الى تاريخ - أبو معاذ - 24-08-2016

(24-08-2016, 11:52 AM)salah07230 كتب : ممكن مثال بسيط يحتوي على:
edit1.text
edit2.text
button

السلام عليكم ورحمة الله وبركاته.
مثال بسيط في المرفقات.

RE: تحويل من الهكس الى تاريخ - salah07230 - 24-08-2016

بارك الله فيكما اخواي Unprogramme و B.M.AbdelAziZ
الف شكر لكما