Função para reconhecer formatos de data

[Gvip 0]

Galera to com um grande problema, tenho um programa que processa arquivos xls de empresas que nos enviam tarifas.

O que acontece é que cada empresa envia a data em um formato diferente no arquivo o que me traz um problema:

Formato americano (MM/DD/YYYY) e formato brasileiro (DD/MM/YYYY), há como identificar qual formato está no arquivo???

[Claudio Neto 3]

Puts, tem nada.

 

Se a data for 20/05/2008 ou 05/20/2008 é fácil dizer para o programa o formato, mas se for 06/05/2008 é impossível o programa sozinho saber qual é o mês e qual é o dia, mesmo a gente olhando não tem como saber.

 

O que pode fazer é, coloque um campo na planilha que recebe que identifique o formato que a data vem, o ai o programa lê esse campo e saberá se deve ser dd/mm/aaaa ou mm/dd/aaaa.

 

Boa sorte.

[christianhess 0]

faça o seguinte..

 

If IsDate(Text1.Text) = True Then
		 MsgBox CStr(CVDate(Text1.Text))
End If

converte em data e depois para texto e boa.. pode colocar ambos os tipos.. funciona..

talvez você nao precise saber qual é o formato.. mas esta seria uma solução para o problema

talvez se tiesse o ano com 4 caracteres.. seria facil.. bastava separar com split as "/" ver quantos caracteres tem e você sabe onde está o ano.. agora o mes e o dia vai ser fogo..