Versión Copiada del tfs

Extensiones/IntegerExtensions.vb

@@ -0,0 +1,13 @@
+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