delphi4arab منتديات دلفي للعرب

السلام عليكم

كيف أركب وظيفة تقوم بإستخراج التاريخ والوقت من سلسلة نصية على الشكل التالي:

كود :
Mar 24 2012 12:00AM
Mar 24 2012 12:02AM
Apr  6 2012 12:01AM
Apr  6 2012 12:01PM
Apr  6 2012 3:01AM
Apr  6 2012 3:01PM

مع أني جربت تحويل الوقت بإستعمال Formatdatetime بكل خواصها بدون جدوى

وعليكم السلام ورحمة الله
جرب استخدام VarToDateTime أو برمج Function تقوم بذلك يدويا!
بالتوفيق

وعليكم السلام ورحمة الله وبركاته

كود :
function DateTime: string;
var
  m: string;
  u: string[1];
begin
  Result := '';
  m := FormatDateTime('mmm', Now);
  m := Copy(m, 0, 3);
  u := UpperCase(m);
  Delete(m, 1, 1);
  insert(u, m,1);
  Result := m + FormatDateTime(' d yyyy hh:mmAM/PM', Now);
end;

بالتوفيق

ghost-dz كتب :بالتوفيق

بارك الله فيك أخي على الكود سأستعملها غدا و أتحقق من النتيجة تعديل بسيط على الكود:

كود :
function DateTime: string;
var
  m: string;
  u: string[1];
begin
  Result := '';
  m := FormatDateTime('mmm', Now);
  m := Copy(m, 0, 3);
  u := UpperCase(m);
  Delete(m, 1, 1);
  insert(u, m,1);
  Result := m + FormatDateTime(' d yyyy[color=Red] h:mm[/color]AM/PM', Now);
end;

لؤي

محمد عبد العزيز

Agmcz

لؤي