MESES

USUARIO.EXCLUIDOS 20/08/2007 09:49:44
#231619
estou criando uma calc que faz calculos d icms,etc..tbem faz os calcs do faturamento d uma loja d roupas dia a dia e depois do mes td + nao estou conseguindo uma forma de mostrar os meses a diferença entre os meses do dia 30 31 e os 28 29 d fev....c alguem puder ajudar vlw....
USUARIO.EXCLUIDOS 20/08/2007 09:55:54
#231622
Não entendi o que vc quer mostrar.
Dá pra refinar melhor qual é a sua dúvida?
Vc quer fazer um cálculo entre datas, tipo quantos meses?
At,
USUARIO.EXCLUIDOS 20/08/2007 10:49:58
#231630
o assim tenho q criar a calc para faturamento da empresa....+ nao sei como fazer para ele diferenciar os meses d 30,31 e os d fevereiros.
pq nesse programa vc tem q digitar o faturamento dia por dia.....
USUARIO.EXCLUIDOS 20/08/2007 11:12:00
#231634
SR.MAGAL,

Posta uma parte do codigo, fica mais claro para o pessoal entender.
Valeu!
LCSD 20/08/2007 11:12:05
#231635
tenta isso....

Datepart("d", DateSerial(2007,11 + 1, 0))


Onde "11" referese ao mes de novembro

Para fazer do mes atual vc pode trocar o "11" por 

Datepart("d", DateSerial(2003,format(now(),"mm") + 1, 0))
USUARIO.EXCLUIDOS 20/08/2007 11:17:25
#231637
Basta somar sempre 1 (dia) na data atual. Vc terá sempre o dia correto.
Tipo se for dia 28/2/2000, somando 1 vc terá 29/2/2000 e somando mais 1 1/3/2000, etc.
Usa a função de adicionar dias na data.
USUARIO.EXCLUIDOS 20/08/2007 12:52:11
#231647
Oi Sr.Magal, talvez essa função te ajude achar quando o mes tem 30, 31, 28 ou 29 dias

Private Function UltimoDia(ByVal dtaData As Date) As Date
    Dim intMes As Integer
    Dim intAno As Integer
    Dim intDia As Integer
    '
    intMes = Month(dtaData)
    intAno = Year(dtaData)
    '
    Select Case intMes
        Case 1, 3, 5, 7, 8, 10, 12
            intDia = 31
        Case Is <> 2
            intDia = 30
        Case Else
            If intAno Mod 4 = 0 Then
                intDia = 29
            Else
                intDia = 28
            End If
    End Select
    UltimoDia = intDia & "/" & intMes & "/" & intAno
End Function


Uso:
Debug.Print UltimoDia("23/02/2007")
Debug.Print UltimoDia(Date)
VB6MASTER 20/08/2007 13:11:02
#231652 Resposta escolhida
Se eu pude entender direito o que vc quer, nada disso será necessário, porque o que vc precisa é buscar, selecionar, em sua base de dados o faturamento referente ao mês "X", independentemente da quantidade de dias que ele possua.
Acredito que ao lançar o faturamento em sua base de dados vc deve ter salvo a data (dd/mm/aaaa). Assim, o que vc deve buscar em sua base de dados será todas as informações referentes ao (mm/aaaa).
Acredito que apenas um select resolverá seu problema.
A lógica seria algo +/- do tipo:
Selecione o campo valor da tabela faturamento onde ANO seja igual à "2007" e MÃÅ S igual a "02".
Tópico encerrado , respostas não são mais permitidas
Voltar