UDFs_01 : Defining and calling
Functions and Procedures ( sometimes referred as User Defined Function : UDF )
are basic building block of Harbour programs.
Functions and Procedures are similar, only diffrence is requirments of return value;
by definition, procedures return NIL and functions have a return value.
Practically no difference between two; functions and procedures both may or may not
return value and undefined return value is NIL.
This is a typical example of a user-defined function definition and calling it.
For more information refer here.
PROCEDURE Main() cCurrent:= "01:43" ? AmPm( cCurrent) WAIT RETURN // Main() *-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._. FUNCTION AmPm( cTime ) IF VAL( cTime ) < 12 cTime += " am" ELSEIF VAL( cTime ) = 12 cTime += " pm" ELSE cTime += STR( VAL( cTime ) - 12, 2 ) +; SUBSTR( cTime, 3 ) + " pm" ENDIF RETURN cTime // AmPm()