rmarra Posted September 28, 2009 Report Share Posted September 28, 2009 Prezados, alguém já descobriu como pegar a hora atual no XP? Ex: Entro no sistema as 16:00h, mudo a hora do computador para 17:30h, uso a função time() para pegar a hora atual e continua a anterior. Só passa a pegar a correta se sair do sistema e entrar novamente. Preciso muito que isto funcione em FW 16 bits. Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
rmarra Posted September 28, 2009 Author Report Share Posted September 28, 2009 Prezados, alguém já descobriu como pegar a hora atual no XP? Ex: Entro no sistema as 16:00h, mudo a hora do computador para 17:30h, uso a função time() para pegar a hora atual e continua a anterior. Só passa a pegar a correta se sair do sistema e entrar novamente. Preciso muito que isto funcione em FW 16 bits. Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 28, 2009 Report Share Posted September 28, 2009 mira se ti sirve: http://www.fivewin.com.br/exibedicas.asp?id=699 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
rmarra Posted September 28, 2009 Author Report Share Posted September 28, 2009 Não entendi bem como fazer a função time() funcionar corretamente no fw. Preciso que funcione sem telas, janelas, barras, etc. Vc poderia simplificar para mim? Grato. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Editado por - rmarra on 29/09/2009 08:51:51 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 29, 2009 Report Share Posted September 29, 2009 \samples TESTTIM?.PRG João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sambomb Posted September 29, 2009 Report Share Posted September 29, 2009 /**************************************************************************/ Static function MostrarHora() /*************************************************************************** *Autor: Samir *Data: 29-09-2009 ***************************************************************************/ Local cBat := "", chora := "", cArqBat := "", cArqTxt := "" cArqBat := pDir+"Hora.Bat" cArqTxt := pDir+"Hora.Txt" //Msg(Time(),"Hora atual") fErase(cArqBat) fErase(cArqTxt) SysRefresh() cbat += "@echo off" + CRLF cbat += "time /t > " + '"' + cArqTxt + '"' + CRLF cbat += "exit" CreateTxt(cArqBat,cBat) WinExec(cArqBat,0) SysRefresh() //cHora := MemoRead(cArqTxt) //cHora := UT(StrTran(cHora,CRLF)) //cHora += ":00" //Msg(cHora,"Lido do bat") fErase(cArqBat) fErase(cArqTxt) Msg(Time(),"Hora atual") Return id=code>id=code>A questão que ele estava enfrentando é que após modificar manualmente a hora no sistema o sistema em 16 bits não pegava a hora certa, com essa função ele executa um bat para pegar a hora do sistema pelo DOS e aparentemente após executar essa função o "buffer" da hora é atualizado. MSN: samirabreu@hotmail.comid=black> Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
rmarra Posted September 29, 2009 Author Report Share Posted September 29, 2009 Obrigado!!! Fiz um teste básico e aparentemente deu certo! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.