Pershendetje Cuna,
Kam disa funksione\module te cilat jane te kombinuara bashke si nje excel add-in.
Ketyre moduleve\funksioneve dua ti shtoj edhe nje funksion\modul tjeter me synimin per te bere nje llogaritje te thjeshte.
Formula qe perdoret per llogaritje quhet "PET_GAS_COMPRESS_Cg" dhe eshte si vijon: Cg = 1/P -((1/Z)*(deltaZ/deltaP)
ku deltaZ = Zi - Zi-1
dhe deltaP = Pi - Pi-1
vlerat e "P" dhe te "Z" jane ne forme kollonash ne worksheet (jo ne ndonje kollone te caktuar, une dua qe te klikoj dhe ta zgjedh vete fillimin e kollones)
Kodi qe kam shkruar deri tani eshte:
Function Pet_GAS_COMPRESS_Cg(P, Z)
Rem File Petroleum Functions (.xls & .xla)
Rem Gas Compressibility (Not to be confussed with "Z" factor)
Rem P = Pressure, kPa
Rem Z = Gas Deviation Factor
Rem Written by: Patrioti
Rem Test for Errors
If IsNumeric(P) = False Or IsMissing(P) = True Then GoTo perr:
If IsNumeric(Z) = False Or IsMissing(Z) = True Then GoTo zerr:
If P < 0 Then GoTo perr:
If Z <= 0 Then GoTo zerr:
GoTo starthere:
perr: Pet_GAS_COMPRESS_Cg = "**Problem: P Outside Range": GoTo hereend:
zerr: Pet_GAS_COMPRESS_Cg = "**Problem: Z Outside Range": GoTo hereend:
starthere:
If Z(i - 1) < 0 or emty Then Cg = 1 / P(i)
deltaZ = Z(i) - Z(i - 1)
deltaP = P(i) - P(i - 1)
Cg = 1 / P - ((1 / Z) * deltaZ / deltaP)
hereend: End Function
Problemi qendron ne 6 rjeshtat e fundit. Funksioni me nxjer resultat zero aty ku duhet te rezultonte me nje numer.
Nuk e di sa u sqarova po me pyesni nese ndonje gje e paqarte.
Ndonje gabim koti e di (por jam fillestar)
Flmd nga Patrioti
Krijoni Kontakt