Consulta com formato de data ymmdd

Preciso de uma luz, ou melhor de uma formula para chegar ao formato ymmdd > Ex. 30320

Infelizmente nw funiona, se eu especificar este formato retorna algo assim: 980320 PS. onde 98 seria o ano 3, de 2013 eliminando os 3 primeiros dígitos da esquerda para a direita.

Win7 JP
Access2003 JP

Arigatou

Obrigado, mas cara preciso deste formato... estou no Japao, e estou tentando exportar ja com este formato para csv...

preciso de alguma forma chegar a este resultado

ymmdd

tanks

Vc testou a opção que lhe ofereci ?

Como funciona para as datas 2010, 2011, 2012, ...

Aguardamos

Boas,
Amigo JP, tambem eu tive dificuldade com um código para exportar um ficheiro para CSV, no entanto acabei por resolver, o codigo é esse que se segue e ele já mete o campo data no formato americano "YYYY-MM-DD", ve se dá para adaptares para ti.

Código:


Dim rst As DAO.Recordset
  Dim strSQL As String
  Dim strTemp As String
  Dim strFicheiro As String
  Dim Data1 As String, Data2 As String
  Dim nHora As Byte, nMin As Byte
  Dim strNomeFicheiro As String
 
  Dim db As DAO.Database
  Dim rstSO As DAO.Recordset
 
  ' Utilizar a base de dados do projecto actual
  Set db = CurrentDb
 
  ' Datas a utilizar. Colocar no formato americano porque
  ' esse é o formato do defeito do SQL
  Data1 = Format(Me.dtaIni, "mm/dd/yyyy")
  Data2 = Format(Me.dtafim, "mm/dd/yyyy")
 
  ' Colocar o ficheiro CSV criado na mesma pasta que a Base de Dados (.mdb)
  strNomeFicheiro = "teste.csv"
  strFicheiro = CurrentProject.path & "\" & strNomeFicheiro
 
  ' Recorset com os dados filtrados entre as datas indicadas
  strSQL = "SELECT * FROM "TUATABELA" where data between #" & Data1 & "# and #" & Data2 & "# order by data"
  Set rstSO = db.OpenRecordset(strSQL)
 
  ' Posicionar-se no fim. Reposicionar-se no início.
  ' Isto permite ao Access saber com exactidão quantos registo tem o Recordset
  rstSO.MoveLast
  rstSO.MoveFirst
 
  ' Apagar ficheiro CSV se já existir
  If Dir(strFicheiro) <> "" Then
      Kill strFicheiro
  End If

  ' Criar ficheiro CSV
  Open strFicheiro For Append As #1
 
  ' Imprimir cabeçalho
  Print #1, "MEC;Código Ocorrência;Data de Início (aaaa-mm-dd);Horas;Minutos"
 
  Do While Not rstSO.EOF
    ' Separar Horas / Minutos
    nHora = Int(rstSO!tHora / 60)
    nMin = rstSO!tHora Mod 60
   
    ' Criar Linha de texto
    strTemp = rstSO![NºMecanográfico] & ";"
    strTemp = strTemp & rstSO!CODIGO & ";"
    strTemp = strTemp & Format(rstSO!DATA, "yyyy-mm-dd") & ";"
    strTemp = strTemp & Format(nHora, "00") & ";" & Format(nMin, "00")
   
    ' Escrever linha de texto
    Print #1, strTemp
   
    ' Registo seguinte
    rstSO.MoveNext
  Loop
 
  ' Fechar ficheiro CSV
  Close #1
 
  ' Libertar variáveis de Objecto
  Set rstSO = Nothing
  Set db = Nothing
 
  ' Informa que já acabou
  MsgBox "Ficheiro criado com sucesso!" & vbCrLf & _
    strFicheiro, vbOKOnly + vbInformation, "RNBP - Seriço Operacional"
   
End If
  End If
End Sub

Obrigado pela ajuda,


Deixa eu ser mais específico;

Tenho os dados em uma tabela onde esta a tal data no formato YYYY/MM/DD
Criei uma consulta onde estou tentando ter o formato Y/MM/DD porem até agora nw consegui...

Obrigado pela ajuda