USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Algumas funções úteis para cálculo de datas
Postada em 24/8/2003 por Ð@®l@n            
Dim a(8) As Variant
Dim data As Date

data=date

'primeiro dia do mes
a(0) = Format(data - Day(data) + 1, "dd/mm/yyyy")

'ultimo dia do mes
a(1) = DateAdd("m", 1, data - Day(data))

'primeiro dia do ano
a(2) = Format(data - DatePart("y", data) + 1, "dd/mm/yyyy")

'ultimo dia do ano
a(3) = Format(DateAdd("yyyy", 1, data - DatePart("y", data)), "dd/mm/yyyy")

'dias do mes
a(4) = DatePart("d", DateAdd("m", 1, data - Day(data)))

'dias que restam no ano
a(5) = DateAdd("yyyy", 1, data - DatePart("y", data)) - data

'dias do ano
a(6) = DateAdd("yyyy", 1, data - DatePart("y", data)) - (data - DatePart("y", data))

'ano bissexto
a(7) = IIf((DateAdd("yyyy", 1, data - DatePart("y", data)) - (data - DatePart("y", data))) = 366, "Bissexto", "Ano não é bissexto")

'dias até o natal
a(8) = DateAdd("yyyy", 1, data - DatePart("y", data)) - data - 7

For i = 0 To 8
   Label2(i).Caption = a(i)
Next
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página