Return UDT from Function II

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
 
Type PatientRecord
   name As String * 14
   age As Long
   married As Long
End Type
 
Function PBMain() As Long
   Local T As PatientRecord, V As String
   V = GetPatientRecord
   Type Set T = V
   ? T.name + $CrLf + Str$(T.age) + $CrLf + IIf$(T.married,"Yes","No")
End Function
 
 
Function GetPatientRecord() As String
   Local R As PatientRecord
   R.name = "Eric Pearson"
   R.age = 31
   R.married = 1
   Function = R
End Function
 
'gbs_01383
'Date: 10-17-2014                    

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm