esse teste eu fiz usando o Now , ele adere a mudança no relogio e usando o Date$ nao...........? ???? e porq nao acontece o mesmo com o mes  ????

Olá,

 

isso não acontece aqui na minha máquina, mas talvez tenha uma explicação: O Vb costuma iniciar alguns objetos e variáveis quando você o inicia. Nem sempre ele atualiza esses objetos. Por exemplo, a coleção Printers. Pode ser que ele esteja fazendo a mesma coisa com você. Tentei aqui na minha máquina reproduzir o que você disse e funcionou normalmente. Altere i a data do relatório e o programa refletiu essa mudança com a função Date$. Eu uso o Windows ME e o XP. Nos dois funcionou normalmente, tanto Now como Date$ retornaram a data certa.

Lembrei de uma coisa. Se você usa o WinXP, entre no Painel de Controle, abra a pasta Ferramentas Administrativas e selecione Serviços. Procure por um serviço Horário do Windows. Esse troço se me lembro bem, busca na internet o servidor da Microsoft para ajustar o horário da máquina. Talvez isso esteja fazendo o seu programa se comportar dessa forma. Mas em todo caso, aqui está uma solução hipotética para o seu problema:

 

Dim DataBIOS as string, Dia As String, mes As String, ano As String

 

DataBIOS = Date$

DataBIOS = Format$(DataBIOS, "dd/mm/yyyy")

 

 

um abraço,

Sandro.

POrque Veja Bem Sandro, sao duas as respostas de Controles que eu dou que acontece isso, uam delas é um Listview , onde retorno pra Coluna o Dia atual , é um conrtole de pagamento de parcelas , entao deve ter o dia atual, mas se por acaso o relogio for mudado, la continua como o dia atual , mesmo atualizado o listview, o outro é um Relatorio no Active Report , onde num label Exibo Dia , mes e Ano Atual, só que conforme os dias passam o mes adere a quantidade de Dias, saca? dia sete , entao ele  mostra mes set , dia oito entao ele exibe mes oito, assim opr diante , os dias funcionam entao talvez a solucao seja essa que vc passou vou testar

Mas alterando a data do relogio o jeito que vc fez permite que a do programa altere tambem, isso quer dizer que nao exite um jeito de o programa ficar com a data verdadeira?

A princípio não. A não ser que, caso o seu programa rode em rede, você capture a data do servidor, partindo-se do princípio de que o servidor é a máquina mais confiável da rede. Existe aqui mesmo no fórum alguns exemplos de como capturar a data e hora do servidor, mas só funcionam com o Win2000 e XP.

Gente, posso me meter na conversa???

Korn, pelo que vi seu problema é que o usuario nao altere a data do rWindows, certo???

bem, vou dar minha opiniao: existem varios profissionais na informatica, cada um com funções diferentes... o Analista não programa... o Programador não implementa rede... o Consultor não dá manutenção... o Técnico não faz analise...

mesmo que vc reuna varias dessas funções, é importante deixar claro para o cliente quais atribuiçõe são suas e quais não sao...

Meu conselho é prático: Coloca uma tela na inicialização do seu sistema, onde mostra a DATA e HORA em Vermelho com fonte 54!.. ai vc coloca um botão escrito "A Data Está Certa" e outro "A Hora Está Errada"... se clicar no segundo, vc fecha o programa e nao deixa usar...

Com isso vc passa para o usuario a responsabilidade de manter o relogio do windows com o horario certo... isso não é problema de programador... nem de Analista, Técnico, DBA, gerente de Sistemas, gerente de TI, Consultor, etc...

 

Existem outras soluções... há softwares que impedem que o usuario acesse determinadas funções do windows, como as teclas CTRL+ALT+DEL, o painel de controle, as Ferramentas Administrativas, pasta de conta de outros usuarios, etc... esses programas podem impedir que seus usuarios alterem a dada e hora do windows, permitindo que se altere apenas se tiver uma senha de administrador... se seu cliente não confia nos usuarios do sistema (funcionarios dele, com certeza) essa é uma boa solução...

 

Bem, dei minha opiniao... perdao se fui intrometido...

Mais uma coisa: o Relogio da BIOS é o mesmo do Windows...

onde vcs acham que o Windows armazena a hora qdo o computador ta desligado???