تحوبل حدول اوقات من 24 الى 12 (فورمات)

أرجو أن يفيدك الكود

procedure TForm1.Button1Click(Sender: TObject);
var
  t : string ;
begin
  adotable1.First ;
  while adotable1.Eof = false do
  begin
    t := formatdatetime('hh:mm:ss am/pm',adotable1.fieldbyname('before').Asdatetime) ;
    adotable1.Edit ;
    adotable1.FieldByName('after').AsString := t ;
    adotable1.Post ;
    adotable1.Next ;
  end ;
end;

إن لم توضح الفكرة قد يوفي المثال المرفق بالمطلوب

أرجو الأستفادة :blush:

Test.rar

السلام عليكم

اخى روبر بارك الله فيك, الكود كان فعالا لكن على اساس ان الحقل من نوع نص

اعتقد انى قد اكتفيت بالكود لأداء العملية ولكن اعطنى فرصة فسأعود اليك بعد ان اكمل العمل, فربما احتاج لمساعدة ما

جزاكم الله خيرا

c_vita كتب:

لكن على اساس ان الحقل من نوع نص

أخي الكريم

لن يكون الأختلاف في الكود كبيرا في حال كان نوع الحقل غير النص

بإنتظار عودتك

أرجو الأستفادة

rober كتب:

لن يكون الأختلاف في الكود كبيرا في حال كان نوع الحقل غير النص

السلام عليكم

اخى روبر ما عنيته اننى قد غيرت نوع الحقل الى نص

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

لأسباب تتعلق بالشخص صاحب العمل

السلام عليكم

الموضوع باختصار شديد هو كالتالى

قال لى اخ ان احد اقاربه داهب الى الصين ليأتى بشاشات عرض متعددة الاستخدامات من احد المصانع هناك

وهو يريد ان يستخدم ميزة فى الشاشات وهى انه يمكن عرض اى software على الشاشة شرط ان لا يكون ديناميكيا

ولكن يمكن تحديد بعض خياراته عن طريق remote control وهدا ال software يتم وضعه فى المصنع

وهو يريد برنامج صغير لمواقيت الصلاة بتم تحديد المدينة واليوم والشهر بنائا على بيانات مخزنة وقد اعطانى المواقيت فى ملفات Excel

دون ان اطيل

ما فكرت فيه هو ما فى المرفقات - حسب خبرتى الشخصية - لكن انا احتاج الى مساعدة ربما بها بسهل الامر او ان احدكم يشير على بشئ معين

ملاحظة : ارجو من جميع الاخوة ان بفيدونى فى العمل الحالى و لا تجنحوا بى الى عمل جديد

بوجد 2 bitbutton وللعلم فلا مكان لهما بعد اكتمال العمل

جزاكم الله خيرا

ملحقا المواقيت

Sala Times Screen.rar

مواقيت.rar