Using subfunction in a function
Is it possible to refer to a subprocedure in a function?
I am trying to use a variable that is referred to in a function but is defined in a subfunction. I want the variable to retain a value with the end of the function. This is what I am trying to do: Sub CalculateTotal() total = timelapse + total End Sub Function Downtime(CurrentLoadSig, PrevLoadingSig, PastTime, PresentTime) 'Calculates the amount of time lapsed for downtime If CurrentLoadingSig = 0 Then Select Case PrevLoadSig Case Is = 0 timelapse = PrevTime - CurrentTime Downtime = total Case Is = 1 timelapse = PrevTime - CurrentTime Downtime = total Else total = total * 0 End Function |
Using subfunction in a function
I'm not clear exactly what you want your program to do, but my rewrite of
your program (below) should clarify some of your questions about how to use functions. HTH, Shockley Sub tester() cls = 0 pls = 1 preT = 30 CurT = 60 DTime = Downtime(cls, pls, preT, CurT) End Sub Function Total(timelapse) Total = timelapse + Total End Function Function Downtime(CurrentLoadSig, PrevLoadSig, _ PrevTime, CurrentTime) If CurrentLoadSig = 0 Then Select Case PrevLoadSig Case Is = 0 timelapse = CurrentTime - PrevTime Downtime = Total(timelapse) Case Is = 1 timelapse = CurrentTime - PrevTime Downtime = Total(timelapse) End Select Else Downtime = 0 End If End Function "Elizabeth" wrote in message ... Is it possible to refer to a subprocedure in a function? I am trying to use a variable that is referred to in a function but is defined in a subfunction. I want the variable to retain a value with the end of the function. This is what I am trying to do: Sub CalculateTotal() total = timelapse + total End Sub Function Downtime(CurrentLoadSig, PrevLoadingSig, PastTime, PresentTime) 'Calculates the amount of time lapsed for downtime If CurrentLoadingSig = 0 Then Select Case PrevLoadSig Case Is = 0 timelapse = PrevTime - CurrentTime Downtime = total Case Is = 1 timelapse = PrevTime - CurrentTime Downtime = total Else total = total * 0 End Function |
All times are GMT +1. The time now is 02:59 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com