elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ejemplo] FECHAS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Ejemplo] FECHAS  (Leído 3,065 veces)
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
[Ejemplo] FECHAS
« en: 16 Septiembre 2010, 17:07 pm »

HOLA!!!

XD, nose si esto se puede llamar ejemplo, pero es mi intento por ayudar.

En el codigo estan las cosas basicas que se pueden hacer con fechas, son utiles ... creo.

CODIGO:
Código
  1. Private Sub Form_Load()
  2. 'FECHA ACTUAL EN FORMATO ESTANDAR MM-DD-AAAA
  3.      Label1.Caption = Date$
  4. 'FECHA ACTUAL FORMATEADA A DIAS/MESES/AÑOS
  5.      Label2.Caption = Format(Date$, "d/MM/yyyy")
  6. 'FECHA Y HORARIO ACTUAL
  7.      Label3.Caption = Now
  8. 'HORARIO ACTUAL
  9.      Label4.Caption = Time
  10. 'DIA ACTUAL
  11.      Label5.Caption = Day(Now)
  12. 'MES ACTUAL
  13.      Label6.Caption = Month(Now)
  14. 'MES ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
  15.      Label7.Caption = MonthName(Month(Now))
  16. 'AÑO ACTUAL
  17.      Label8.Caption = Year(Now)
  18. 'DIA DE LA SEMANA ACTUAL
  19.      Label9.Caption = Weekday(Now)
  20. 'DIA DE LA SEMANA ACTUAL EN LETRAS (DEPENDE DE LA CONFIGURACION REGIONAL DE LA PC)
  21.      Label10.Caption = WeekdayName(Weekday(Now))
  22. 'SOLO LA HORA
  23.      Label11.Caption = Hour(Now)
  24. 'SOLO LOS MINUTOS
  25.      Label12.Caption = Minute(Now)
  26. 'SOLO LOS SEGUNDOS
  27.      Label13.Caption = Second(Now)
  28. 'SUMA A UNA FECHA ESPECIFICA
  29. 'PARAMETROS DateAdd(INTERVALO,CANTIDAD,FECHA)
  30. 'LA CANTIDAD PUEDE SER POSITIVA O NEGATIVA
  31. 'EJEMPLO FECHA ACTUAL MENOS 35 SEGUNDOS
  32.      Label14Caption = DateAdd("S", -35, Now)
  33. 'DIFERENCIAS ENTRE 2 FECHAS
  34. 'EJEMPLO DIFERENCIA ENTRE 15/10/1329 Y HOY EXPRESADO EN DIAS
  35. 'PARAMETROS DateDiff(INTERVALO,FECHA1,FECHA2)
  36. 'LOS TIPOS DE INTERVALOS SON LOS MISMOS
  37.      Label15.Caption = DateDiff("y", #10/15/1329#, Date$)
  38.  
  39. '---------------------------------------------------------------------------------
  40.  
  41. 'TIPOS DE INTERVALOS:
  42. '"S"=SEGUNDOS
  43. '"n"=MINUTOS
  44. '"h"=HORAS
  45. '"y"=DIAS
  46. '"ww"=SEMANAS
  47. '"m"=MESES
  48. '"yyyy"=AÑOS
  49. End Sub
  50.  

GRACIAS POR LEER!!!


En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
agmen

Desconectado Desconectado

Mensajes: 17


Ver Perfil
Re: [Ejemplo] FECHAS
« Respuesta #1 en: 24 Septiembre 2010, 15:34 pm »

hola, encontre muy interesante lo que publicaste
tengo una duda

puedo convertir una variable tipo date a string?
y si se puede como lo hago?

gracias


En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [Ejemplo] FECHAS
« Respuesta #2 en: 24 Septiembre 2010, 16:41 pm »

HOLA!!!

Segun lo que tengo entendido podes de 2 formas:

Código
  1. Public FECHA_D As Date
  2. Public FECHA_S As String
  3.  
  4. Private Sub Form_Load()
  5. FECHA_D = Date$
  6. FECHA_S = FECHA_D
  7. 'o sino
  8. FECHA_S = Format(FECHA_D, "DD/MM/YYYY")
  9. End Sub


GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
agmen

Desconectado Desconectado

Mensajes: 17


Ver Perfil
Re: [Ejemplo] FECHAS
« Respuesta #3 en: 27 Septiembre 2010, 20:22 pm »

MIL Gracias por la ayuda... te pasaste  ;-)
En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [Ejemplo] FECHAS
« Respuesta #4 en: 27 Septiembre 2010, 20:46 pm »

HOLA!!!

No hay por que estamos aca para ayudarnos.


GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ejemplo del uso de udpclient
.NET (C#, VB.NET, ASP)
juanedwin 1 2,437 Último mensaje 10 Abril 2022, 04:32 am
por BloodSharp
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines