Versión Copiada del tfs

2025-05-29 17:58:18 +02:00
commit 857f247df5
69 changed files with 22831 additions and 0 deletions
--- a/clFuncionesGenericas.vb
+++ b/clFuncionesGenericas.vb
@@ -0,0 +1,18 @@
+Public Class clFuncionesGenericas
+    Public Shared Function MesEnCastellano(ByVal Fecha As Date) As String
+        Dim sMeses(11) As String
+        sMeses(0) = "Enero"
+        sMeses(1) = "Febrero"
+        sMeses(2) = "Marzo"
+        sMeses(3) = "Abril"
+        sMeses(4) = "Mayo"
+        sMeses(5) = "Junio"
+        sMeses(6) = "Julio"
+        sMeses(7) = "Agosto"
+        sMeses(8) = "Septiembre"
+        sMeses(9) = "Octubre"
+        sMeses(10) = "Noviembre"
+        sMeses(11) = "Diciembre"
+        MesEnCastellano = sMeses(Now.Month - 1)
+    End Function
+End Class