comando para mudar a data e a hora do micro

clebermano · Mensagem por **clebermano** » 19 Nov 2005 12:45

prezados amigos, ja pesquisei no forum e nao encontrei, uma funcao que quando o usuario digite a data na entrada do sistema seja alterado a data do micro.....
aguardo...

Mensagem por **Clipper** » 19 Nov 2005 14:16

Prezado Cleber

Você terá que usar uma das funções abaixo :

SETDATE() - LIB CLIPPER TOOLS
S_SYSDATE() - LIB CLIPON
SETDATE() - LIB FASTLIB
FT_SETDATE - LIB NANFORUM

ou então +/- assim :

cls
set date brit
set epoch to 1999
data=date()
set century on
@ 02,00 say "Data : " get data pict "99/99/9999"
read
comando="date "+dtoc(data)
run &comando
return

Lembrando que o sistema precisará ter memória livre suficiente para executar o comando RUN senão não irá funcionar.

Até logo.

Marcelo

Mensagem por **janio** » 20 Nov 2005 22:03

Com a função SETDATE() da LIB CLIPPER TOOLS, seria assim:

tDATA := DATE()

@ 12,34 GET tDATA
READ

SETDATE( tDATA, .T. )

Janio

Mensagem por **Stanis Luksys** » 21 Nov 2005 23:48

Também ja passei por este problema, mas usando RUN com o comando date do DOS não funcionou não... Alguem sabe por que?

Mensagem por **Clipper** » 22 Nov 2005 09:18

Podem ter sido 2 motivos :

1 - Não tinha memória convencional suficiente para rodar o comando RUN
2 - O formato de DATA do seu Windows estava para os EUA MM/DD/AA e você passou uma data no formato brasileiro que não poderia ser aceita, exemplo :

Se você usasse :
DATE 01/01/2005 - OK
DATE 13/01/2005 - Erro (não existe mês 13)

Lembre-se que o SET DATE não afeta o formado de data no DOS.

Eu fiz o teste da rotina que especifiquei acima e funcionou tranquilamente.

Para mudar o formato de data para o DOS deve ser usado o COUNTRY.SYS para carregar o formato desejado (DOS e Windows 95/98) , no ME/2000/XP/2003 isso é feito no painel de controle.

Até logo.

Marcelo