|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 WAMP - PHP - MySQL
   Elastix - VoIP Cosas de Windows Webs interesantes Arduino
  Estación meteorológica Visual Basic Script (VBS)    

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

Visual Basic Script, tutorial en español
Visual Basic Script - Juan Antonio Villalpando

-- Tutorial de iniciación a Visual Basic Script --

Volver al índice del tutorial

___________________________

5.- Fechas.

- Baja a tu ordenador estos archivos y ejecútalos:

 

13Dias.vbs

13Dias.vbs
Fe = InputBox ("Introduzca su fecha de nacimiento en este formato dd/mm/aa Ejemplo: 12/9/83",,"12/9/83")
x=Datediff("d",Fe,Now)
a=MsgBox("Has vivido " &x &" días. Enhorabuena.",,"Días vividos")

14Hora.vbs

 

14Hora.vbs
fh=Now
x = MsgBox(fh,,"Fecha y hora")
h=Hour(fh)
y = MsgBox("Son las " & h & " horas",,"Hora actual")

' Ver hora, minuto, segundo, Time
' Ejercicio: Realiza un programa en el salga el día que es de la semana
' o sea, Lunes, Martes, Miércoles .... utilizar Weekday y la instruccióo IF

 

15Semana.vbs

15Semana.vbs
h=Now
d=Weekday(h)

Select Case d
Case 1
dia="¡¡¡ DOMINGO !!!"
Case 2
dia="el maldito lunes."
Case 3
dia="martes tonto."
Case 4
dia="el mediano miércoles."
Case 5
dia="un maravilloso jueves."
Case 6
dia="por fin es viernes."
Case 7
dia="amable sábado."
End Select

x=MsgBox("Hoy es: " &dia,,"Día de la semana")

' Ver Weekday

 

 

_____________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información