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.
English
Español
