(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

إقتباس :Command3_Click()

إقتباس :Function