السلام عليكم
اريد تحول هذه القيمة E007051A الى 26 - 04 -2016
يعني تحويل قيمة من الهكي الى تاريخ
وشكرا
هلا
E007051A هذه لا تعني تاريخ
هذا شرح بسيط
1A=26
05=5
E007=2016
[size=small]وعند جمع الناتج نتحصل على [/size]
[size=small]26 5 2016[/size]
صورة توصيحية
![[صورة: 1472030473071.png]](http://store1.up-00.com/2016-08/1472030473071.png)
وعليكم السلام
هذا حل سريع... بقي عليك التحقق من صحة النص المدخل
كود :
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;
ممكن مثال بسيط يحتوي على:
edit1.text
edit2.text
button
(24-08-2016, 11:52 AM)salah07230 كتب : [ -> ]ممكن مثال بسيط يحتوي على:
edit1.text
edit2.text
button
السلام عليكم ورحمة الله وبركاته.
مثال بسيط في المرفقات.
بارك الله فيكما اخواي Unprogramme و B.M.AbdelAziZ
الف شكر لكما