Reporte de prácticas del capítulo 8

 

 

Practica [08.01]

 >> Uso de funciones de fecha y hora.

A continuación aprenderá a utilizar las funciones de fecha y hora.

1. Genere un nuevo proyecto EXE estándar (Ctrl+N).

• Editar código: Form, Evento: Activate.

Print        Date

Print        Time

Print        "------------------------------"

Print        "La fecha de hoy es: " & Now

Print        "Año: " & Year(Now)

Print        "Mes: " & Month(Now)

Print        "Dia: " & Day(Now)

Print        "-- Usando DatePart ---"

Print        "Año: " & DatePart("yyyy", Now)

Print        "Mes: " & DatePart("m", Now)

Print        "Día: " & DatePart ("d", Now)

Print        "Ubicación en el año"

Print        "Trimestre: " & DatePart("q", Now)

Print        "Semana: " & DatePart("ww", Now)

Print        "Dia de la semana: " & DatePart("w", Now)

Print        "Dia del año: " & DatePart("y", Now)

Print        "------------------------------"

‘cambiar a 200x las siguientes 2 líneas para tener año actual

Print "Falta para el fin de año del 2002"

Print (DateSerial(2001, 12, 31) - Now) & " días"

Conclusiones:

Esta practica nos enseño a como utilizar las funciones de fecha y hora a nuestro gusto.

  

 

Practica [08.02]

 >> Uso de funciones de manipulación de cadenas.

1.                                     Genere un nuevo proyecto EXE estándar (Ctrl+N).

• Editar código: Form, Evento: Activate.

Dim strMensaje As String

Dim intCuentaVocales As Integer

Dim intContador As Integer

Dim strLetra As String * 1

strMensaje$ = "Éste es un mensaje de prueba"

Print LCase(strMensaje$)

Print UCase(strMensaje$)

Print StrConv(strMensaje$, vbProperCase)

Print "El primer espacio en la posición:" & _

InStr(strMensaje$, " ")

Print "De atrás para adelante:" & InStrRev(strMensaje$, _

   " ")

Print "Texto al revés:" & StrReverse(strMensaje$)

Print "Longitud del texto:" & Len(strMensaje$)

Print "A partir de la posición 9, 4 letras:" & _

Mid(strMensaje$, 9, 4)

intCuentaVocales% = 0

For intContador% = 1 To Len(strMensaje$)

strLetra$ = Mid(strMensaje$, intContador%, 1)

If InStr("aeiouAEIOU", strLetra$) > 0 Then

intCuentaVocales% = intCuentaVocales% + 1

End If

Next intContador%

Print "Cantidad de vocales:" & intCuentavocales%

Print "Remplazando espacios:" & _

Replace(strMensaje$, " ", "_")

Conclusiones:

Aprendimos las diversas formas que existen para manipular una cadena de caracteres o mas bien dicho las variables de tipo String.

 

 

 

Practica [08.03]

 >>Uso de funciones numéricas y de decisión.

 

1. Genere un nuevo proyecto EXE estándar (Ctrl+N).

• Editar código: Form, Evento: Activate.

 

Dim strCaptura As String

Dim sngNumero As Single

Dim blnBandera As Boolean

Dim intOpcion As Integer

blnBandera = True

Do While blnBandera

strCaptura$ = InputBox("Número (con o sin decimales):")

If IsNumeric(strCaptura) Then

Print "Lo capturado puede traducirse a numero"

sngNumero! = CSng(strCaptura$)

Print "Valor absoluto:" & Abs(sngNumero!)

Print "Número " & IIf(Int(sngNumero!) = sngNumero!, "entero", "con decimales")

If Int(sngNumero!) = sngNumero! Then

Print "Redondeado a 2 posiciones:" & _

Round(sngNumero!, 2)

End If

Select Case Sgn(sngNumero!)

Case Is = -1

intOpcion% =1

Case Is = 0

intOpcion% = 2

Case Is = 1

intOpcion% = 3

End Select

Print "El número es " & _

Choose(intOpcion%, "negativo", "cero", "positivo")

Print "Hexadecimal:" & Hex(sngNumero!)

Print "Octal:" & Oct(sngNumero!)

If sngNumero! > 0 Then

Print "Raíz cuadrada:" & Sqr(sngNumero!)

End If

Else

Print "Nada que hacer; no es expresión numérica"

End If

Print "------------------------"

If MsgBox("Desea otro ejemplo?", vbOKCancel + vbQuestion, _

"Números") = vbCancel Then

   blnBandera = False

End If

   Loop

   End

 

Conclusiones:

En esta practica se aprendió a utilizar las funciones númericas y de decision como lo son las funciones Choose e Iif.

1