Quiero crear una clase con funciones para no tener que repetir código pero al intentar utilizarla me da el siguiente error:
Mensaje de error del compilador: BC30002: El tipo 'Funciones' no está definido.
Línea 95: Línea 96: Línea 97: Dim dia As New Funciones Línea 98: Dim mes As New Funciones Línea 99: Dim ntempo As New Funciones
Mi código:
Public Class Funciones
Shared Function nombreDia(ByVal pfecha As String) As String
Dim pndia As Integer
Dim vDias(7) As String
vDias(1) = "Lunes"
vDias(2) = "Martes"
vDias(3) = "Miércoles"
vDias(4) = "Jueves"
vDias(5) = "Viernes"
vDias(6) = "Sábado"
vDias(7) = "Domingo"
pndia = DatePart(DateInterval.Weekday, CDate(pfecha))
nombreDia = vDias(pndia)
End Function
End class
Dim dia As New Funciones
Dim mes As New Funciones
Dim ntempo As New Funciones
lblfechacab.Text = Funciones.nombreDia(fecha) & " " & Day(fecha) & " de " & Funciones.nmes(Month(fecha)) & " " & Year(fecha)
lbltempocab.Text = Funciones.nombreTempo(fecha)
RecogerParamGen()