Function GetAreaName, GetZoneName

Function GetAreaName( ByVal nNo& ) As String

Function GetZoneName( ByVal nNo& ) As String

Purpose: Retrieve name of area or zone number

Works in:      OneLiner and Power Flow.

Parameters:     

nNo             [in] Area or Zone number

Return value:

Name of area or zone.

Remarks:

Example:

Sub main

  Do

    nNo = Val(InputBox("Area no"))

    If nNo = 0 Then Stop

    Print "Area " & nNo & " name=" & GetAreaName( nNo )

    Print "Zone " & nNo & " name=" & GetZoneName( nNo )

  Loop

End Sub