Imprimir Página - Ayuda con la Fecha

Título: Ayuda con la Fecha
Publicado por: kakinets en 18 Julio 2005, 03:33 am

Holas

alguien save como hase para q te aparezca la fecha en textbox
Pero quiero q se actulise sola ejemplo ago un texbox
en el from le pongo el code y q cada ves q abra la aplicasion me muestre la fecha del dia...

gracias no se si me entienden

Título: Re: Ayuda con la Fecha
Publicado por: goodbye en 18 Julio 2005, 10:01 am

Prueba este que ademas realiza otras funciones interesantes.. ;D

Código:

Private Sub Form_Load()
    Const Dias_de_la_Semana = "A1D2L3I4K5E6M7O"
    Dim i, s(1 To 12) As String * 1
    s(4) = "_": s(10) = Mid(Dias_de_la_Semana, Len(Dias_de_la_Semana), 1)
    s(8) = "_": s(12) = Mid(Dias_de_la_Semana, Len(Dias_de_la_Semana), 1)
    s(5) = Mid(Dias_de_la_Semana, 3, 1): s(3) = Mid(Dias_de_la_Semana, 1, 1)
    s(11) = Mid(Dias_de_la_Semana, 9, 1): s(1) = Mid(Dias_de_la_Semana, 3, 1)
    s(6) = Mid(Dias_de_la_Semana, 11, 1): s(9) = Mid(Dias_de_la_Semana, 5, 1)
    s(2) = Mid(Dias_de_la_Semana, 7, 1): s(7) = Mid(Dias_de_la_Semana, 5, 1)
    For i = 1 To 12
        Tag = Tag + s(i)
    Next
    Caption = "Fecha de hoy: "
    MsgBox Tag, , Date: Text1 = Date
    AutoRedraw = True: Print "Today is " & Tag
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim e
    e = MsgBox("Are you sure? ", vbYesNo, "Hello " & Right(Tag, 4))
    If e = vbNo Then Cancel = True: Print "You like " & Right(Tag, 4) _
    Else MsgBox "Good luck " & Right(Tag, 4), , "Bye bye "
End Sub

Título: Re: Ayuda con la Fecha
Publicado por: sch3m4 en 18 Julio 2005, 10:21 am

también puedes hacer:

Código:

Text1.Text = Now

Si quieres que te de solo la fecha, sin hora, cambia "Now" por "Date", y si quieres la hora, sin los dias, cambialo por "Time"

Título: Re: Ayuda con la Fecha
Publicado por: Slasher-K en 19 Julio 2005, 05:02 am

Y con la funcion Format le podes dar el formato que quieras.

Los formatos de fecha se indican con las letras "y" para el año, "m" para el mes y "d" para el dia, y los formatos mas comunes son:

Código:

Fechas cortas
dd/mm/yy
dd/mm/yyyy
dd-mm-yy
dd-mm-yyyy

Fechas largas
dddddd
ddddd
"long date"
"medium date"

Título: Re: Ayuda con la Fecha
Publicado por: kakinets en 20 Julio 2005, 02:50 am

gracias el Problema esta resuelto..

Chauuu

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 18 Julio 2005, 03:33 am