[hsab]

(19-03-19, 06:06 PM)sendbad100 كتب : وعليكم السلام 
حسب ما فهمت وعلى عجل

PHP كود :

Function Fun_VCF(DEN15 As Double, DEGC As Double) As String

e = 2.71828182846
  dT = DEGC - 15
If DEN15 <= 770 Then
K0 = 346.42278
K1 = 0.43884
ElseIf DEN15 >= 778 And DEN15 < 839 Then
K0 = 594.5418
K1 = 0
ElseIf DEN15 >= 839 Then
K0 = 186.9696
K1 = 0.48618
 ALPHA = (K0 + K1 * DEN15) / DEN15 ^ 2
vcf = e ^ (-ALPHA * dT * (1 + 0.8 * ALPHA * dT))
Fun_VCF = VBA.FormatNumber(vcf, 4)

End If

End Function 


طريقة استدعائة

PHP كود :

Private Sub Command1_Click()
Text1.Text = Fun_VCF(Format$(Trim(Combo1.Text), "0"), Trim(Combo2.Text))
End Sub 


بالتوفيق

l

تشكر كتير هو نفس المطلوب ولكن عند التنفيذ يعطى رسالة خطأ لم يقرأ محتوى combo1   ولا  combo2
أرجو إذا تكرمت مراجعته
هو نفس المطلوب وأريد أن أضعه فى موديول لأننى أحتاجه فى أكثر من ثلاث شاشات