Funçao Data!

[Guest Chaves]

Queria saber se tem alguma funçao de vb que pega a data de hoje....

[Guest Chaves]

ElseIf (idade.Value = True) Then
       datahoje = Now()
       varidade2 = InputBox(prompt, "Entre com a idade desejada", "18")
       anohoje = Year(datahoje)
       varidade = anohoje - varidade2
       MsgBox (varidade)
       formula = "SELECT itens_compras.data_compra, Year([dtnasc]) AS Expr1, musicas.nome FROM (itens_compras INNER JOIN usuarios ON itens_compras.id_usuario = usuarios.id) INNER JOIN musicas ON itens_compras.id_musica = musicas.id GROUP BY itens_compras.data_compra, Year([dtnasc]), musicas.nome, usuarios.estado Having (((Year([dtnasc])) = " + varidade + ") And ((Month([data_compra])) = " + varmes + ")) ORDER BY Count(musicas.id) DESC;"
    End If

alguém sabe oque tem de errado nesse bloco??

[ToPronto N'Area]

Queria saber se tem alguma funçao de vb que pega a data de hoje....

txtdata.text = format(now, "DD/MM/YYYY")

Assim tu pega a data de hj!

E quanto ao codigo, eu não consegui compreender o seu codigo, não sei o que é label o é text, e onde são inseridas as datas pra verificação, mas saca só, aqui vai uma dica!

O vb não lê as datas como a gente le, tem de converte-las para ele enteder que é data, por ex.

txtdata.text = format(txtdata.text, "MM/DD/YYYY")

Blza espero ter ajudado!

Abraços!

[Rochedo]

Tenta isso

LABELQUALQUER.Caption = "Sua Cidade, " & Format(Now, "dd") & " de " & Format(Now, "mmmm") & " de " & Format(Now, "yyyy") & "."

aqui funciona :)