[Resolvido]TextBox Bissexto

Olá, preciso que as funções abaixo preencham o campo "txtTrabalho" com 365 se for ano normal e 366 se for ano bissexto. Para isso deve pegar a data do campo "txtAte" .O campo com a data é carregado com dados selecionados em outro form; não é digitado e "Text1" deve receber a parte da data que se refere ao ano e o restante da function faz o cálculo. Qual seria um evento para atirar o valor 365 ou 366 corretamente em txtTrabalho???

Sub VerificaBissexto()
Dim data As Date ' Declara variaveis

data = txtAte.Text
Text1.Text = DatePart("yyyy", data)

Bissexto (Text1)

End Sub

Public Function Bissexto(intAno As Integer) As Boolean
'' verifica se um ano é bissexto
Bissexto = False

txtTrabalho.Text = "365"


 If intAno Mod 4 = 0 Then
    If intAno Mod 100 = 0 Then
       If intAno Mod 400 = 0 Then
           Bissexto = True
       End If
    Else
          Bissexto = True
    End If
   
    txtTrabalho.Text = "366"

 End If

End Function


ALAN

Pessoal, o erro que está ocorrendo e que está me atrasando é que o Access fica sempre pedindo foco nos textbox abaixo para poder executar as functions. Como faço para desviar isso???

data = txtAte.Text ´as vezes aqui
Text1.Text = DatePart("yyyy", data) ' ou aqui

ALAN

Ola;

Varias coisinhas mal;

1º Não pode usar palavras reservadas do Access, tais como a palavra "Data" entre outras
2º Não deve usar o .Text para estes casos, deve usar o .Value

Código:

Sub VerificaBissexto()
Dim dt As Date ' Declara variaveis

dt = Nz(Me.txtAte.Value, 0)
Me.Text1.Value = DatePart("yyyy", dt)
Bissexto (Me.Text1.Value)

End Sub

Public Function Bissexto(intAno As Integer) As Boolean
'' verifica se um ano é bissexto
Bissexto = False

 If intAno Mod 4 = 0 Then
    If intAno Mod 100 = 0 Then
       If intAno Mod 400 = 0 Then
           Bissexto = True
       End If
    Else
          Bissexto = True
  End If
End If
 
 If Bissexto = False Then Me.txtTrabalho.Value = 365
 If Bissexto = True Then Me.txtTrabalho.Value = 366
End Function

JPaulo, as suas dicas foram muito importantes e como sempre direto ao ponto. Agora funcionou perfeitamente. Encerramos por aqui.Grande abraço, valeu!!!

ALAN

Fico feliz
Obrigado pelo retorno o fórum agradece.