PEGAR DATA DO DIA DE UM SITE NA NET
pessoal eu preciso pegar a data de uma pagina qualquer na internet pra evitar um drible na inst do meu sistema.
Entao por que se o cliente mudar a data de inst do sistema, e inst me traz prob entao pensei em pegar a data de um site qualquer no momento do cadastro tirando assim o controle da data pelo sistema do windows. Aceito opinioes tb hehehe.
Entao por que se o cliente mudar a data de inst do sistema, e inst me traz prob entao pensei em pegar a data de um site qualquer no momento do cadastro tirando assim o controle da data pelo sistema do windows. Aceito opinioes tb hehehe.
Adicione o Inet no seu projeto...
Eu usei estes comandos p/ pegar a data e hora da pagina...
[ô][ô] pagina
s = Inet1.OpenURL([Ô]http://www.horacerta.com.br/index.php?city=sao_paulo[Ô])
[ô]Pegar a hora da página
h = InStr(1, s, [Ô]size=[Ô]) + 13
hora = Mid(s, h + 17, 11)
lblhora.caption = Format(hora, [Ô]long Time[Ô])
[ô]Pegar a data da página
data = Mid(s, h + 4, 10)
lbldata.caption = data
Eu usei estes comandos p/ pegar a data e hora da pagina...
[ô][ô] pagina
s = Inet1.OpenURL([Ô]http://www.horacerta.com.br/index.php?city=sao_paulo[Ô])
[ô]Pegar a hora da página
h = InStr(1, s, [Ô]size=[Ô]) + 13
hora = Mid(s, h + 17, 11)
lblhora.caption = Format(hora, [Ô]long Time[Ô])
[ô]Pegar a data da página
data = Mid(s, h + 4, 10)
lbldata.caption = data
ele da erro nas variaveis tentei declarar mas continuou na linha
s = Inet1.OpenURL([Ô]http://www.horacerta.com.br/index.php?city=sao_paulo[Ô])
s = Inet1.OpenURL([Ô]http://www.horacerta.com.br/index.php?city=sao_paulo[Ô])
ninguem ?
ninguem ?
Tópico encerrado , respostas não são mais permitidas