Gravar data no access com formato dd/mm/aaaa

[Leonardo Rocha 0]

Boa tarde colegas,

 

É o seguinte não consigo fazer com que o sistema grave a data de cadastro com o formato dd/mm/aaaa no ACCESS.

 

Já formatei a data direto no banco e mesmo assim não adianta.

 

Já utilizei vários códigos encontrados neste forum, porém não consegui com nenhum deles.

 

Por exemplo: informo 11/10/2008 ele grava 10/11/2008.

 

Por favor necessito muito desta ajuda, se puderem me ajudar agradeço muito.

 

Abraços!

 

 

Leonardo Rocha

[Ted k' 126]

cada banco tem o seu formato, o que você tem que fazer é formatar a data na hora de apresentar para o usuário:

 

<%
Function ConverterDataBanco(ConDataBanco)
		ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
		ConverterDataBanco = ConDataBanco
End Function

data = "8/9/2008"

Response.Write(ConverterDataBanco(data))
%>

[xanburzum 169]

você pode colocar o Session.LCID=”1046” ou Tb pode usar uma função para manipular a Data e mostra-la do seu do jeito, como Ted´k disse.

 

Function UniversalDate(dteDate)
   If IsDate(dteDate) = True Then
	  dteDay = Day(dteDate)
	  dteMonth = Month(dteDate)
	  dteYear   = Year(dteDate)
	  UniversalDate = dteYear & "-" & Right(Cstr(dteMonth + 100),2) & "-" & Right(Cstr(dteDay + 100),2)
   Else
	  UniversalDate = Null
   End If
End Function

'****************************************************************************
********
'***** Display Date Format Function *************************************************
'****************************************************************************
********

Function FormatDisplayDate(aDate)
   aDate = cdate(aDate)
   aDay = Day(aDate)
   aMonth = Month(aDate)
   aYear   = Year(aDate)
   SELECT CASE DateDisplayFormat
	 CASE "US"
	   FormatDisplayDate = Right(Cstr(aMonth + 100),2) & "/" & Right(Cstr(aDay + 100),2) & "/" & aYear
	 CASE "EURO" ' EURO (dd/mm/yyyy) 
	 
	 CASE "UNIVERSAL"
	 
	 CASE ELSE
	   FormatDisplayDate = Right(Cstr(aMonth + 100),2) & "-" & Right(Cstr(aDay + 100),2) & "-" & aYear
   END SELECT

End Function

[Leonardo Rocha 0]

Pessoal muito obrigado pela força...

 

Mas é o seguinte: Já estou trabalhando com uma base de dados existente, ao qual contém 4581 registros e as datas já estão inseridas conforme mencionei, com o formato dd/mm/yyyy. Imagino que ao mostrar a data conforme informou as datas antiga serão alteradas na visualização, correto?

 

Neste caso, acho melhor que as datas sejam inseridas no seu formato correto, conforme já havia inserido anteriormente pelo próprio access.

 

Se eu estiver errado, por favor me ajudem.

 

Até mais!

 

Leonardo Rocha

[Ted k' 126]

formatadas, as datas serão mostradas de acordo como queira, mais para cadastrar terá que fazer o formato de acordo com o banco!

[xanburzum 169]

Ted k´respondeu acima, por favor evite de postar a mesma pergunta.

[Célido 0]

Pessoal muito obrigado pela força...

 

Mas é o seguinte: Já estou trabalhando com uma base de dados existente, ao qual contém 4581 registros e as datas já estão inseridas conforme mencionei, com o formato dd/mm/yyyy. Imagino que ao mostrar a data conforme informou as datas antiga serão alteradas na visualização, correto?

 

Neste caso, acho melhor que as datas sejam inseridas no seu formato correto, conforme já havia inserido anteriormente pelo próprio access.

 

Se eu estiver errado, por favor me ajudem.

 

Até mais!

 

Leonardo Rocha

Broter, é só modificar o Formato no BD. Se for access, é mais fácil, use data abreviada dd/mm/yyyy, nas propriedades do campo, mascara de entrada.

faça o teste com um backup do BD. depois é so usar LCID em sua página.

 

Valeu;

 

Célido