Data no vb - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Data no vb

Kasf

SÃO PAULO
SP - BRASIL

Postada em 05/10/2004 14:47 hs

como eu faço para inserir uma data no meu programa no vb.....seria só colocar o nome do campo.caption=data?

Por favor..... preciso de ajuda

Geronimo

JOINVILLE
SC - BRASIL

Postada em 05/10/2004 15:20 hs

Algumas orientações:

http://www.macoratti.net/vbdatas1.htm

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Geronimo

JOINVILLE
SC - BRASIL

Postada em 05/10/2004 15:23 hs

Crie dois Labels. Ex.: Labe1 e Label2.
Crie um objeto timer com a propriedade interval = 1000
E coloque essas linhas de código no timer1:
label1.caption = time
label2.caption = date

E aparecerá automaticamente a hora e a data atualizando de 1 em 1 segundo

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Geronimo

JOINVILLE
SC - BRASIL

Postada em 05/10/2004 15:24 hs

'Função que converte um data para Extenso, e Coloca o nome da Cidade

Function DataComp(Cidade As String, Data As Variant) As String

    dia = Day(Data)
    Mes = Format(Data, "M")
    Ano = Year(Data)
    DiaSemana = WeekDay(Data)

    'Converte o Nome da Semana
    Select Case DiaSemana
       Case 1
            NomeSemana = "Domingo"
       Case 2
            NomeSemana = "Segunda-feira"
       Case 3
            NomeSemana = "Terça-feira"
       Case 4
            NomeSemana = "Quarta-feira"
       Case 5
            NomeSemana = "Quinta-feira"
       Case 6
            NomeSemana = "Sexta-feira"
       Case 7
            NomeSemana = "Sábado"
    End Select

    'Converte o nome do mês
    Select Case Mes
       Case 1
            NomeMes = "Janeiro"
       Case 2
            NomeMes = "Fevereiro"
       Case 3
            NomeMes = "Março"
       Case 4
            NomeMes = "Abril"
       Case 5
            NomeMes = "Maio"
       Case 6
            NomeMes = "Junho"
       Case 7
            NomeMes = "Julho"
       Case 8
            NomeMes = "Agosto"
       Case 9
            NomeMes = "Setembro"
       Case 10
            NomeMes = "Outubro"
       Case 11
            NomeMes = "Novemnbro"
       Case 12
            NomeMes = "Dezembro"
    End Select

    'Monta a data em extenso
    DataComp = Cidade & ", " & NomeSemana & " " & dia & " de " & NomeMes & " de " & Ano

End Function

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 05/10/2004 15:36 hs

Na verdade voce não insere uma data e sim um campo que so aceita datas. Veja em

http://www.macoratti.net/valida.htm.

Aqui na secao de dicas tem varias rotinas

__________________________________________________________________________

Qualquer coisa post

Rochª

GAMBET

TRÊS PONTAS
MG - BRASIL

Postada em 05/10/2004 17:32 hs

label1 = format(date, "long date")

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR