+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إستخراج التاريخ و الوقت من سلسلة نصية (/showthread.php?tid=4075)
إستخراج التاريخ و الوقت من سلسلة نصية - لؤي - 06-04-2012
السلام عليكم
كيف أركب وظيفة تقوم بإستخراج التاريخ والوقت من سلسلة نصية على الشكل التالي:
كود :
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 بكل خواصها بدون جدوى
إستخراج التاريخ و الوقت من سلسلة نصية - محمد عبد العزيز - 06-04-2012
وعليكم السلام ورحمة الله
جرب استخدام VarToDateTime أو برمج Function تقوم بذلك يدويا!
بالتوفيق
إستخراج التاريخ و الوقت من سلسلة نصية - Agmcz - 06-04-2012
وعليكم السلام ورحمة الله وبركاته
كود :
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;إستخراج التاريخ و الوقت من سلسلة نصية - لؤي - 07-04-2012
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;