18 lines
573 B
VB.net
18 lines
573 B
VB.net
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 |