CAPTURANDO A DATA DO SERVIDOR

XAVIER 02/01/2015 13:56:32
#443522
Olá pessoal !

Primeiramente eu desejo a todos um brilhante 2015, cheio de conquistas e vitórias.

Como faço para obter a data do servidor ?

Estou desenvolvendo um sistema cliente / servidor. O sistema possui um módulo de [Ô]Recebimentos[Ô] e automaticamente calcula multa e juros. Gostaria de evitar qualquer brecha para que o usuário alterasse a data na estação local e burlasse o cálculo. Caso o usuário queira dar descontos, existe um campo [Ô]Descontos[Ô] também, aí o problema é dele, pois o sistema tem log de procedimentos e registra todas as ações do usuário.

Desde já agradeço a ajuda!
TUNUSAT 02/01/2015 14:52:10
#443523
Fala XAVIER!

Você pode pegar do Servidor do MS SQL Server ... se estiver usando ele...

select GETDATE()



Veja mais em:
https://social.msdn.microsoft.com/Forums/pt-BR/5841f57d-7b42-4521-95d3-a0c1b24eb599/pegar-data-e-hora-do-servidor?forum=vscsharppt

[][ô]s,
Tunusat.
XAVIER 02/01/2015 14:56:34
#443524
Olá Tunusat !

Estou usando o SGBD NaviCat (Mysql server). Seria a mesma linha de comando [Ô]select GETDATE()[ô] ?

Desde já agradeço.



TUNUSAT 02/01/2015 15:05:02
#443526
XAVIER,

Tente que é bem capaz de ser igual, mas pelo que li abaixo, pode ser uma das duas:

SELECT CURDATE();

SELECT CURRENT_DATE();


Funções de manipulação de data do MySQL 5.5
http://www.devmedia.com.br/funcoes-de-manipulacao-de-data-do-mysql-5-5/25539

[][ô]s,
Tunusat.
MARCELO.TREZE 02/01/2015 15:07:41
#443527
No mysql use

Select Now()
XAVIER 02/01/2015 15:12:31
#443529
Vou tentar aqui e dou retorno.

Um abraço e obrigadão !!!
LEOBEVI 02/01/2015 18:05:35
#443545
Resposta escolhida
Campeão uso esta rotina com o mysql

Public Function RetornaHoraServidor() As Variant

Dim cmbRHs As ADODB.Command
Set cmbRHs = New ADODB.Command
Dim SQLS As String
Dim ServDate As String
Dim rsHSER As ADODB.Recordset
With cmbRHs
SQLS = [Ô]SET TIME_ZONE = [ô]-02:00[ô][Ô] [ô]criei esta query, não sei o motivo não estava adotando o horário de verão no sistema, passou a funcionar
.ActiveConnection = cnRH
.CommandText = SQLS
.Execute

SQLS = [Ô]SELECT NOW()[Ô]
.ActiveConnection = cnRH
.CommandText = SQLS
Set rsHSER = .Execute
ServDate = Format(rsHSER(0), [Ô]DD/MM/YYYY HH:MM:SS[Ô])
End With
RetornaHoraServidor = ServDate
End Function

valeuu!!
XAVIER 02/01/2015 22:42:12
#443555
Obrigado pelo código Leobevi !

Um abraço.
Tópico encerrado , respostas não são mais permitidas