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);

<div class="Code"><p>/* 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. */<br></br>Definir alfa vdatini;<br></br>Definir alfa vdatfim;<br></br>Definir data xhoraux;<br></br><br></br>/* Converte Hora Inicial. */<br></br>Divide(EHorIni,100,3,vhoras);<br></br>Divide(EHorIni,100,2,vminutos);<br></br>vhoraini = (vhoras * 60) + vminutos;<br></br>ConverteDataHoraDateTime(edatini,vhoraini,vdatini);<br></br><br></br>/* Converte Hora Final. */<br></br>xhoraux = EHorFim + 1;<br></br>Divide(xhoraux,100,3,vhoras);<br></br>Divide(xhoraux,100,2,vminutos);<br></br>vhorafim = (vhoras * 60) + vminutos;<br></br>Se (vhorafim = 1440)<br></br> vhorafim = 1439;<br></br>ConverteDataHoraDateTime(edatfim,vhorafim,vdatfim);<br></br><br></br>/* Exemplo de utilização dos valores convertidos. */<br></br>InsClauSQLWhere("Detalhe_1"," (R067LPR.DTHLOG >= ");<br></br>InsClauSQLWhere("Detalhe_1",vdatini);<br></br>InsClauSQLWhere("Detalhe_1"," ) AND ( R067LPR.DTHLOG &#x3C;= ");<br></br>InsClauSQLWhere("Detalhe_1",vdatfim);<br></br>InsClauSQLWhere("Detalhe_1"," )");</p></div>

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