14 lines
481 B
VB.net
14 lines
481 B
VB.net
Imports System.Runtime.CompilerServices
|
|
|
|
Namespace Extensiones
|
|
Public Module IntegerExtensions
|
|
<Extension()> Function APalabras(Numero As Integer) As String
|
|
Return NumerosAPalabras.ToCardinal(Numero)
|
|
End Function
|
|
|
|
<Extension()> Function EntreValores(Valor As Integer, RangoMenor As Integer, RangoMayor As Integer) As Boolean
|
|
Return Valor >= RangoMenor And Valor <= RangoMayor
|
|
End Function
|
|
End Module
|
|
End Namespace
|