Autor
|
Tema: Ayuda con la Fecha (Leído 1,881 veces)
|
kakinets
Desconectado
Mensajes: 414
[>Argentina<]
|
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
|
|
|
En línea
|
|
|
|
goodbye
Desconectado
Mensajes: 93
|
Prueba este que ademas realiza otras funciones interesantes.. 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
|
|
« Última modificación: 18 Julio 2005, 11:36 am por CrackelDestripador »
|
En línea
|
Al lado de la dificultad está la facilidad. Cambiad de placeres, pero no cambies de amigos. Aceptar un favor de un amigo, es hacerle otro.
|
|
|
sch3m4
Ex-Staff
Desconectado
Mensajes: 1.608
Nihil est in intelectu quod prius not fuerit insen
|
también puedes hacer: 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"
|
|
|
En línea
|
SafetyBits
"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
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: Fechas cortas dd/mm/yy dd/mm/yyyy dd-mm-yy dd-mm-yyyy
Fechas largas dddddd ddddd "long date" "medium date"
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
kakinets
Desconectado
Mensajes: 414
[>Argentina<]
|
gracias el Problema esta resuelto.. Chauuu
|
|
|
En línea
|
|
|
|
|
|