إستخراج التاريخ و الوقت من سلسلة نصية

[لؤي]

السلام عليكم

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

كود :

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 تقوم بذلك يدويا!
بالتوفيق

[Agmcz]

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

كود :

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;

بالتوفيق

[لؤي]

بالتوفيق

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

كود :

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;