Calculando Fim de Semana Parte II

Olá pessoal beleza...Eu preciso add dias quando for fim de semana, seguindo essa logica em VB.. tem como fazer isso direto no SQL ?????Sub calc()linha = 2Do While Plan1.Cells(linha, 1) <> ""inicio = Plan1.Cells(linha, 1)fim = Plan1.Cells(linha, 2)prazo = 1If Weekday(fim) = 1 Then: fim = fim - 2If Weekday(fim) = 7 Then: fim = fim - 1 Do While inicio <> fim If Weekday(inicio) <> 1 And Weekday(inicio) <> 7 Then prazo = prazo + 1 End If inicio = inicio + 1 LoopPlan1.Cells(linha, 3) = prazolinha = linha + 1LoopEnd SubTem como ?Tipo utilizando essa formula eu vou ter ;;;; 6 dias de prazo..Inicio Fim Prazo01/06/2006 13/06/2006 9Obrigado