DATA DE VALIDADE

FISH40 22/10/2009 12:04:19
#326056
Olá Pessoal :D.

Bom Queria Saber Como Faz Para Que o Programa Seja Blockeado no PC Depois Que Se Passa a Data Colocada!,Isso eu Sei:

 Private Sub Form_Load()
If data_atual >= Data_Validade Then
Form1.Enabled = False
End If
End Sub


Mais Como Faço Para Que Quando o Programa Rodar,Ele Verifique a Data ATUAL e Que Passe 3 Dias,Que é a Data de Validade?

é Isso,Vlw!

Msn: [txt-color=#0101DF]rub3n5.dll@hotmail.com[/txt-color]
TECLA 22/10/2009 12:27:46
#326057
Segue um exemplo simples.

[txt-color=#0B610B][ô] Utilizar por 3 dias[/txt-color]
Dim DataBloq As Date
DataBloq = #10/18/2009#
If DateDiff([Ô]d[Ô], DataBloq, Now) > 3 Then
    MsgBox [Ô]O programa será encerrado![Ô], , [Ô]Atenção[Ô]
    End
End If


O segredo é armazenar a DataBloq em algum lugar [Ô]seguro[Ô].
FISH40 22/10/2009 12:36:28
#326058
Mais Uma Pergunta,é Possivel Que Uma Label Capite Os Dias Restantes?

Exemplo: Ao Ser Iniciado Mostra 3 Dias
No Outro Dia Mostra 2
No Outro Mostra 1 Dia
ACG1574 22/10/2009 15:06:09
#326077
seguindo o exemplo do colega acima

[ô] Utilizar por 3 dias
Dim DataBloq As Date
DataBloq = #10/18/2009#
If DateDiff([Ô]d[Ô], DataBloq, Now) > 3 Then
MsgBox [Ô]O programa será encerrado![Ô], , [Ô]Atenção[Ô]
End
else
lblDias.caption = [Ô]Faltam [Ô] & DateDiff([Ô]d[Ô], DataBloq, Now) & [Ô] para travar o programa.[Ô]
End If
RALECO 22/10/2009 16:16:59
#326086
no meu formulario coloquei um textbox, qual o comando que devo colocar para comparar a data que coloquei com a data atual
ACG1574 22/10/2009 16:19:55
#326088
If txtDataForm.text = date Then
MsgBox [Ô]data igual[Ô]
else
MsgBox [Ô]data diferente[Ô]
End If
RALECO 22/10/2009 16:29:36
#326091
em qual formato devo digitar a data no textbox?
NILTON.VIANNA 22/10/2009 17:55:47
#326104
Dim RS As New ADODB.Recordset
Private Sub Form_Load()
[ô]** [LITAMITA USO DO SISTEMA] **
txtData = Date
[ô] BROQUEIA O SISTEMA
DTPicker1.Value = Date
If DTPicker1.Value >= CDate([Ô]30/9/2009[Ô]) Then

flag = True
FrmLogAces.cmdOK.Enabled = False
lblaviso.Visible = True
lblSisnews.Visible = False
txtSenha.Enabled = False
End If

[ô] AVISO PARA TéRMINO DO USO UM MES ANTES
DTPicker1 = Date
DTPicker1.Value = Date
If DTPicker1.Value >= CDate([Ô]30/8/2009[Ô]) Then

flag = True
Me.lblRegistro.Caption = [Ô]Atualizar o Sistema em 30/08/2009[Ô]
lblRegistro.Visible = True

End If
[ô]** [FIM DO LIMITE DE USO] **

End Sub

Private Sub cmdCancel_Click()
CnSql.Close
Close
Set Variavel = Nothing
Me.Hide
End
End Sub

Private Sub cmdOK_Click()
Set RS = New ADODB.Recordset
Dim Resp As Byte
RS.Open [Ô]Select NomeLogin, Senha, Acesso FROM CadUsuario[Ô], CnSql, adOpenKeyset, adLockOptimistic

While RS.EOF <> True

If Me.txtSenha = RS!Senha And Me.txtSenha = RS!Senha Then

[ô]** [BROQUEIA USUÁRIO] **
txtAcesso = RS!Acesso
If Me.txtAcesso = [Ô]Usuário[Ô] Then
flag = True

MenuSisnews.SubCadUsuario.Enabled = False
MenuSisnews.SubBkaup.Enabled = False
MenuSisnews.GB3.Enabled = False

End If
[ô]** [FIM DO BROQUEIA USUÁRIO] **


flag = True
MenuSisnews.StatusBar.Panels(2).Text = RS!NomeLogin
End If

RS.MoveNext
Wend
If flag = True Then
Me.Hide
[ô][ô][ô]Resp = MsgBox([Ô]Tipo de Acesso: [Ô] & txtTipo & [Ô] [Ô], vbQuestion, [Ô] Sisnews Sistemas[Ô])

Unload FrmLogAces
MenuSisnews.Show
Else
MsgBox [Ô]Senha do Usuário invalida ou negada ! [Ô], vbInformation, [Ô] Login de Acesso[Ô]
txtSenha.Text = [Ô][Ô]
txtSenha.SetFocus
End If
RS.Close
End Sub
FUTURA 23/10/2009 08:00:22
#326131
analise bem este esquema d data, é muito comum o usuário mudar a data do windows pra consultar algo pra frente, tipo feriado, etc...e ai seu sistema para antes da hora, fique atento.
Tópico encerrado , respostas não são mais permitidas
Voltar