Pessoal, estou tentando desenvolver uma licença de uso, mas está fogo, será que tem alguém para me ajudar ?

O que está ocorrendo: Quando eu adianto a data da máquina ele funciona, mas quando eu atrazo a data ele não funciona !!! :(

 

Obrigada

 

eis o código

 

cComand = " select * from tb_serial "
rs.Open cComand

 

   DataIgual = rs.Fields("data_expi") 'essa é a data que expira
  UltimoAcesso = rs.Fields("data_ultimo_acesso") ' essa é data do ultimo acesso
  HoraExpi = rs.Fields("HORA") ' a hora que expira
  cHora = Time ' o relogio

 

If UltimoAcesso > Date And cHora > HoraExpi Then
 MsgBox "Existe um Problemas de Licença, Contate Seu Analista", vbCritical, cNome_Emp
End
End If

If Date > DataIgual Then
  MsgBox "Existe um Problemas de Licença, Contate Seu Analista", vbCritical, cNome_Emp
     cComand = "INSERT INTO TB_SERIAL ( " & _
   "DATA_ULTIMO_ACESSO ," & _
   "HORA , " & _
   "DATA_EXPI ) VALUES ("
   cComand = cComand & _
   Date & "," & _
   cHora & "," & _
   DataIgual & " )"
 
   Set cmd = New ADODB.Command
   With cmd
     .ActiveConnection = db
     .CommandText = cComand
   End With
      cmd.Execute

  End
Else
  If UltimoAcesso = Date Then
   'não faz nada
  Else
   cComand = "INSERT INTO TB_SERIAL ( " & _
   "DATA_ULTIMO_ACESSO ," & _
   "HORA , " & _
   "DATA_EXPI ) VALUES ("
   cComand = cComand & _
   Date & "," & _
   cHora & "," & _
   DataIgual & " )"
 
   Set cmd = New ADODB.Command
   With cmd
     .ActiveConnection = db
     .CommandText = cComand
   End With
      cmd.Execute
  End If
End If

tenta algo assim:

 

create table #tb_serial
  (
   DATA_ULTIMO_ACESSO varchar(8),
   HORA integer,
   DATA_EXPI varchar(8)
  )

declare @data as varchar(8)
declare @hora as integer
declare @dataexp as varchar(8)
declare @dataultaces as varchar(8)
declare @horaexp as integer
set @data = '20051208'
set @hora = 950

set nocount on

Insert Into #tb_serial (DATA_ULTIMO_ACESSO, HORA, DATA_EXPI) Values ('20051206',950,'20051208')
Insert Into #tb_serial (DATA_ULTIMO_ACESSO, HORA, DATA_EXPI) Values ('20051207',950,'20051208')

--maior -> data de expiração e data de último acesso
select
 @dataexp = max(DATA_EXPI),
 @dataultaces = max(DATA_ULTIMO_ACESSO),
 @horaexp = max(HORA)
from #tb_serial

print 'data de expiração = ' + @dataexp
print 'hora de expiração = ' + cast(@horaexp as varchar)
print 'data ultimo acesso = ' + @dataultaces

--se está tentando acessar com data anterior a data do último acesso
if @dataultaces > @data
 begin
  print 'data do sistema inválida'
 end
else
 begin
  if @dataexp < @data
   begin 
    print 'prazo do sistema vencido - data'
   end
  else
   begin
    if @dataexp = @data
     begin
      if @horaexp <=  @hora
       begin
        print 'prazo do sistema vencido - data'
       end      
     end
   end
 end

drop table #tb_serial