Página 1 de 1
comando para mudar a data e a hora do micro
Enviado: 19 Nov 2005 12:45
por clebermano
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...
Enviado: 19 Nov 2005 14:16
por Clipper
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
Enviado: 20 Nov 2005 22:03
por janio
Com a função SETDATE() da LIB CLIPPER TOOLS, seria assim:
tDATA := DATE()
@ 12,34 GET tDATA
READ
SETDATE( tDATA, .T. )
Janio
Enviado: 21 Nov 2005 23:48
por Stanis Luksys
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?
Enviado: 22 Nov 2005 09:18
por Clipper
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