Public Class Categoria
    Inherits AuditBaseClass
 
    Private _categ_id As String
    Private _categ_descripcion As String
    Private _categ_tipo_item As Integer
    Private _categ_parent As String
    Private _categ_estado_registro As Char
    Private _creado_usuario As String
    Private _creado_fecha As DateTime
    Private _modificado_usuario As String
    Private _modificado_fecha As DateTime
 
[...]
 
    Public Property creado_fecha() As DateTime
        Get
            Return Me._ creado_fecha
        End Get
        Set(ByVal value As DateTime)
            Me._ creado_fecha = value
        End Set
    End Property
 
[...]
 
End Class

Private Sub guardar_datos()
 
        Dim oCategoriaWCF As New definiciones.DefinicionesClient    '<--- Class to store in DB
        Dim oCategoriaBE As New BE.Categoria                         '<--- Object with the Date Attribute
 
        Dim result As Integer = -1
 
        oCategoriaBE.id = CInt(Session.Item("data.id"))
        oCategoriaBE.categ_descripcion = Me.txtDescripcion.Text.Trim
        oCategoriaBE.categ_tipo_item = Me.ddlTipoItem.SelectedValue
        oCategoriaBE.categ_parent = Me.ddlParent.SelectedValue.Trim
        If oCategoriaBE.id = Nothing Or oCategoriaBE.id = 0 Then
            oCategoriaBE.creado_usuario = Session.Item("gen.user_name")
            oCategoriaBE.creado_fecha = Now()                     '<--- Now() method returns the incorrect date format and also the value stored 
        Else
            oCategoriaBE.modificado_usuario = Session.Item("gen.user_name")
            oCategoriaBE.modificado_fecha = Now()                 '<--- Now() method returns the incorrect date format and also the value stored 
        End If
 
        Try
            result = oCategoriaWCF.GuardarCategoria(oCategoriaBE)        '<---- this method fails when it tries to store in the DB
        Catch ex As Exception
            result = -2
        Finally
            oCategoriaWCF.Close()
        End Try
 
        If result > 0 Then
            Me.lblResponse.Text = "Los datos fueron guardados satisfactoriamente"
            carga_datos()
            limpiar_controles()
        Else
            Me.lblResponse.Text = "Hubo un error al guardar los datos"
        End If
 
        oCategoriaWCF = Nothing
    End Sub

<system.web>
    <globalization requestEncoding="ISO-8859-1" responseEncoding="ISO-8859-1" uiCulture="es-PE" culture="es-PE" />
</system.web>