DATA ATUALIZA A CADA MES

PROPAR 30/03/2005 11:39:37
#75731
tenho um campo DataGrav onde vai gravar a data da atualizaçao quando fizer um mês do dia/mes/ano da atualização(DataGrav) como faço para ele somar exemplo
um mes da data (DataGrav)
PAULOHSV 30/03/2005 12:25:55
#75750
Voce pode somar 30 dias ou 20 dias o que vc quiser assim ficaria mais facil
CLAUDIOLUCROCHA 30/03/2005 12:27:42
#75751
Propar, nao entendi voce quer somar a data


Se for para somar um mes a data faca


datagrav = DateSerial(year(datagrav), month(datagrav) + 1,day(datagrav))
PAULOHSV 30/03/2005 12:35:22
#75755
Propar o grade problema de se somar um mes exato na data é que se for uma empresa por exemplo este dia pode cair em um dia em que a empresa não esteja aberta por exemplo um domingo, ai se vc verificar um condição = o sistema não avisara que esta na data de fazer a atulização
PROPAR 30/03/2005 16:33:09
#75836
O meu Codigo esta dando um problema , SSS=29/04/05 e datatual 01/05/05
mais ele fala que o SSS é Maior que datatual como faço para corrigir a soma de data( qual data é maior que a outra)

Private Sub Command1_Click()
Dim SSS As String
Dim datatual As String

Label3.Visible = False
Label4.Visible = False
Text4.Visible = False
datatual = CDate(Day(Date) & "/" & Month(Date) & "/" & Year(Date))
SSS = CDate(Day(Data1.Recordset("Data")) & "/" & Month(Data1.Recordset("Data")) + 1 & "/" & Year(Data1.Recordset("Data")))


If SSS >= datatual Then
VerificaSenha

Else
MsgBox "SENHA EXPIROU VC TEM QUE RENOVAR"

End If

end sub
PAULOHSV 31/03/2005 07:59:53
#75942
Declare SSS e dataatual como as date
Tópico encerrado , respostas não são mais permitidas
Voltar