ConverteDataHoraDateTime

Esta função é utilizada quando se trabalha com um campo no formato datetime (um campo tipo datetime armazena o valor de uma data e hora). A função serve para montar uma data e uma hora passados como parâmetro em uma string no formato datetime do banco. É utilizada quando for montado um select com um campo datetime.

Sintaxe: ConverteDataHoraDateTime(Numero xdate, Numero hora,  Alfa End Convertido);

Parâmetros:

Nome Tipo Descrição
xdate Numérico Data utilizada.
hora Numérico Hora utilizada.
convertido Alfa Retorna o valor convertido para ser usado no select.

Exemplo:

/* Pega os valores da tela de entrada (data incial, hora incial, data final e hora final) e converte para formato do banco para ser utilizado no select. */
Definir alfa vdatini;
Definir alfa vdatfim;
Definir data xhoraux;

/* Converte Hora Inicial. */
Divide(EHorIni,100,3,vhoras);
Divide(EHorIni,100,2,vminutos);
vhoraini = (vhoras * 60) + vminutos;
ConverteDataHoraDateTime(edatini,vhoraini,vdatini);

/* Converte Hora Final. */
xhoraux = EHorFim + 1;
Divide(xhoraux,100,3,vhoras);
Divide(xhoraux,100,2,vminutos);
vhorafim = (vhoras * 60) + vminutos;
Se (vhorafim = 1440)
  vhorafim = 1439;
ConverteDataHoraDateTime(edatfim,vhorafim,vdatfim);

/* Exemplo de utilização dos valores convertidos. */
InsClauSQLWhere("Detalhe_1"," (R067LPR.DTHLOG >= ");
InsClauSQLWhere("Detalhe_1",vdatini);
InsClauSQLWhere("Detalhe_1"," ) AND ( R067LPR.DTHLOG <= ");
InsClauSQLWhere("Detalhe_1",vdatfim);
InsClauSQLWhere("Detalhe_1"," )");

Utilização: Gerador de relatórios, regras de apuração, regras de integração, gerador de Importação/Exportação.

Este artigo ajudou você?