Hawiii
-
Posts
209 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
Hawiii's post in حساب عدد ايام العمل لكل شهر was marked as the answer
جرب محاولتي ، نقر مزدوج على حقول أي سجل سيفتح لك نموذج آخر بالتفاصيل.
تم تبديل المرفق حيث كان يخفق في الحساب حينما يكون شهر النهاية هو نفسه شهر البداية.
VacationDetails_Hawiii_02.accdb
-
Hawiii's post in تقريب الكسور العشرية بحقل بالاكسس was marked as the answer
جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round
Function myRound(Number As Double) As Double If Number - Fix(Number) = 0.5 Then myRound = Number Else myRound = Round(Number, 0) End If End Function
-
Hawiii's post in تحويل التاريخ الهجري الى ميلادي was marked as the answer
تم تحجيم حقل التاريخ1 إلى طول 8 حروف/أرقام
تم وضع قناع إدخال للحقل نفسه
المخالفات المرورية_Hawiii.rar
-
Hawiii's post in تعديل كود الدالة DateADD was marked as the answer
Private Sub dat2_AfterUpdate() Me.dat3 = DateSerial(Year(dat1) + 1, Month(dat1) - Me.dat2, Day(dat1)) End Sub
-
Hawiii's post in تعديل كود الدالة DateADD was marked as the answer
Private Sub dat2_AfterUpdate() Me.dat3 = DateSerial(Year(dat1) + 1, Month(dat1) - Me.dat2, Day(dat1)) End Sub
-
Hawiii's post in تعديل كود الدالة DateADD was marked as the answer
Private Sub dat2_AfterUpdate() Me.dat3 = DateSerial(Year(dat1) + 1, Month(dat1) - Me.dat2, Day(dat1)) End Sub
-
Hawiii's post in الفرق بين التاريخين باليوم حسب المدة المحددة was marked as the answer
حسب ما فهمت :
Private Sub Command33_Click() Dim d3 As Date Dim nm As Byte 'NextMonth d3 = Me.PaymentDate nm = IIf(Day(d1) >= Day(d3), 1, 0) If Me.XFrame = 1 Then Me.d2 = DateSerial(Year(d1), Month(d1) + nm, Day(d3)) Else Me.d2 = DateSerial(Year(d1), Month(d1) + 1, Day(d1)) End If Me.n1 = d2 - d1 End Sub
-
Hawiii's post in تبديل الفاصلة العشرية was marked as the answer
استخدم دالة Replace مرتين ، مرة لإزالة "." والأخرى لتبيدل "," بـ "."
Num = Replace(Num, ".", "") Num = Replace(Num, ",", ".") وتستطيع جمعهما في سطر واحد:
Num = Replace(Replace(Num, ".", ""), ",", ".")
-
Hawiii's post in تبديل الفاصلة العشرية was marked as the answer
استخدم دالة Replace مرتين ، مرة لإزالة "." والأخرى لتبيدل "," بـ "."
Num = Replace(Num, ".", "") Num = Replace(Num, ",", ".") وتستطيع جمعهما في سطر واحد:
Num = Replace(Replace(Num, ".", ""), ",", ".")
-
Hawiii's post in تبديل الفاصلة العشرية was marked as the answer
استخدم دالة Replace مرتين ، مرة لإزالة "." والأخرى لتبيدل "," بـ "."
Num = Replace(Num, ".", "") Num = Replace(Num, ",", ".") وتستطيع جمعهما في سطر واحد:
Num = Replace(Replace(Num, ".", ""), ",", ".")
-