منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في عمل تذكير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في عمل تذكير (/showthread.php?tid=50336)



مشكلة في عمل تذكير - altoki939 - 24-09-24

مشكلة في عمل تذكير في اخر وقت لصلاة مثلا
صلاة فجر ساعة 4:30 اريد تذكير لما تكون ساعة 4:29 بالعد تنازلي ؟

وايضا كيف حسب وقت لصلاة التالية مثلاً صلاة الظهر ساعة 12:30 كيف احتساب وقت المتبقي لصلاة


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


تم اضافة رابط مع توقيت لكل يوم  بحسب التاريخ في ملف text 

مطلوب احتساب الوقت لكل اذان من ملف text  الاقامة تكون بعد الاذان ب20 دقيقة .
اخر دقيقة للاقامة تكون بالعد التنازلي وايضنا لكل اذان .
بعد انتهاء من صلاة الفجر يبداء العد تلقائي لاذان صلاة ظهر .

ملف بالمرفق


RE: مشكلة في عمل تذكير - justforit - 24-09-24

(24-09-24, 06:48 PM)altoki939 كتب : مشكلة في عمل تذكير في اخر وقت لصلاة مثلا
صلاة فجر ساعة 4:30 اريد تذكير لما تكون ساعة 4:29 بالعد تنازلي ؟

وايضا كيف حسب وقت لصلاة التالية مثلاً صلاة الظهر ساعة 12:30 كيف احتساب وقت المتبقي لصلاة


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

لو رفعت مشروعك حيكون افضل لمعرفة المطلوب بشكل اكبر.
لكن الفنكشن التالية تعيد الوقت بين تاريخين فقط عدل على بنيتها لتلبي المطلوب لان الترتيب الموجودة عليها  الان لا تعيد الساعات و الدقائق والثواني
PHP كود :
Public Shared Function GetDateSpanText(fromDate As DateTimeOptional toDate As DateTime Nothing) As String
        Try
            Dim years 
As Integer 0months As Integer 0days As Integer 0
            If toDate 
Nothing Then toDate DateTime.Now

            Do Until toDate
.AddYears(-1) < fromDate
                years 
+= 1
                toDate 
toDate.AddYears(-1)
 
           Loop

            Do Until toDate
.AddMonths(-1) < fromDate
                months 
+= 1
                toDate 
toDate.AddMonths(-1)
 
           Loop

            Do Until toDate
.AddDays(-1) < fromDate
                days 
+= 1
                toDate 
toDate.AddDays(-1)
 
           Loop

            Return String
.Format("{0} Years {1} Months {2} Days"yearsmonthsdays)
 
       Catch ex As Exception
            Return 
"Error"
 
       End Try
 
   End Function 

انظر للرابط التالي:
[مشروع] لا جديد باقي عن رمضان



RE: مشكلة في عمل تذكير - altoki939 - 21-10-24

تم اضافة رابط بالمرفق ارجاء فحص ملف