E ai galerinha do VB
Gostaria d sabe se alguem me ajuda......
Tenho a seguinte consulta:
Select CodigoConta, NumeroNota, NumeroDocumento, Nome, DataEmissao, DataVencimento, Valor, DateDiff('" & Format(Date, "yyyy-mm-dd") & "', DataVencimento) As DiasAtraso, Historico From clientes Right Join contasreceber On clientes.CodigoCliente = contasreceber.CodigoCliente Order By DataVencimento Desc
Nessa consulta tenho os DiasAtraso q mostra a diferença em dias do dia do vencimento da conta até a data atual.... mto bem... isso tá ok..... porem se a conta naum tá vencida ele mostra negativo... normal.... mas preciso q se for negativo apareça zero (0) as invés do numero negativo.. d preferencia q o (0) fiq na variavel DiasAtraso pois depois do campo historico tenho q faze o calculo dos juros....
Obs: Teria q se na consulta pois to mostrando a lista numa DataGrid e naum to predendo as RecordSet num loop q ficaria + facil d faze é logico.
Se pudessem me ajudar.... por favor..... preciso mto disso....  
Valeu galera.... Please !!!
Um abraço

Troca

 

DateDiff('" & Format(Date, "yyyy-mm-dd") & ",'DataVencimento) As DiasAtraso

 

por

 

 

Explicando: vc constroe um if que testa se esta atrasado... se estiver, retorna os dias de atraso, se nao, retorna 0... Isso funciona no Access...

No SQL server e no IB, vc usa o seguinte:

 

 

A logica é a mesma do outro.. so mudaram os comandos...

 

Acho q isso te ajuda...