|
|
|
|
|
|
|
|
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
|
|
|
|
|
