دخول

salah07230 · 23-08-2016, 11:14 PM

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

GENNARO · 24-08-2016, 08:22 AM

هلا

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

salah07230 · 24-08-2016, 09:14 AM

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

salah07230 · 24-08-2016, 10:24 AM

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

***محمد عبد العزيز*** · 24-08-2016, 11:34 AM

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

كود :
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;

salah07230 · 24-08-2016, 11:52 AM

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

**أبو معاذ** · 24-08-2016, 10:00 PM

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

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

salah07230 · 24-08-2016, 10:32 PM

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة