Advertisement
jsbsan

evento get

Jul 31st, 2014
1,627
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Function _get(v As Variant) As String
  2.  
  3.   Dim c As String
  4.  
  5.   c = Str$(v)
  6.   If IsNumber(c) Then
  7.     Try Return $dato[arrayKey[v]]
  8.     If Error Then
  9.       Return Null 'por si se produce un error
  10.     Endif
  11.  
  12.   Else
  13.     Try Return $dato[v]
  14.     If Error Then
  15.       Return Null 'por si se produce un error
  16.     Endif
  17.  
  18.   Endif
  19.  
  20. End
Advertisement
RAW Paste Data Copied
Advertisement