Make your own free website on Tripod.com
Volver a Procedimientos y Funciones parte 1 Ir al Indice
- 3ra.parte

En el ejercicio siguiente vamos a trabajar con fechas.Como sabemos las computadoras llevan cuenta de la fecha, por lo que vamos a aprovechar esta cualidad para poner en una caja de texto la fecha completa.
Veamos la explicación de las funciones que utilizaremos:

Option Explicit

Function Mes(Nro As Integer) As String
Select Case Nro
Case 1
Mes = "Enero"
Case 2
Mes = "Febrero"
Case 3
Mes = "Marzo"
Case 4
Mes = "Abril"
Case 5
Mes = "Mayo"
Case 6
Mes = "Junio"
Case 7
Mes = "Julio"
Case 8
Mes = "Agosto"
Case 9
Mes = "Setiembre"
Case 10
Mes = "Octubre"
Case 11
Mes = "Noviembre"
Case 12
Mes = "Diciembre"
End Select
End Function
Function Dia(Nro As Integer) As String
Select Case Nro
Case 1
Dia = "Domingo"
Case 2
Dia = "Lunes"
Case 3
Dia = "Martes"
Case 4
Dia = "Miercoles"
Case 5
Dia = "Jueves"
Case 6
Dia = "Viernes"
Case 7
Dia = "Sabado"
End Select
End Function

  • Date( ).............................................fecha
  • Day(fecha)......................................día
  • Month(fecha).................................mes
  • Year(fecha)....................................año
  • Weekday(fecha,vbSunday)........dia de la semana que se empieza a contar según lo que siga a vb
Private Sub Form_Load()
Tb.Text = "Hoy es " & Dia(Weekday(Date, vbSunday)) & " " & Day(Date) & " de " & Mes(Month(Date)) & " del año " & Year(Date)
End Sub

Función Mid :
Esta función se utiliza para obtener de una cadena, una parte, para ello se indica: la cadena, la posición inicial y la cantidad de caracteres a partir de ese elemento.
mid(cad,Posinicial,cantidad)
A="hola mundo"
?Mid(A,1,4)........................................."hola"

El 1 indica el origen y el 4 la cantidad de caracteres.
?Mid(A,6,5).............................."mundo"
?Mid(A,6,1).............................."m"
La función Len nos indica la cantidad de caracteres que hay en un cadena de caracteres: Por ejemplo:
Len("hola")............................(nos indicará 4)
Len("mundo")........................(nos indicará 5)
Len("hola mundo").................(nos indicará 10 ya que el espacio se cuenta como 1 caracter)
Len(" hola")...........................(nos indicará 5)
En el siguiente ejercicio hay un caja de texto de nombre TbS donde se podrá colocar una cadena de caracteres definida por el usuario. TbC, servirá para que el usuario coloque un caracter cualquiera de la cadena ubicada en Tbs. En TbCant deberá aparecer la cantidad de caracteres que hay en TbS coincidentes con lo indicado en TbC. Finalmente para dar ejecución al programa existe un botón CmdContar.
Dim I As Integer
Dim A As Integer

Private Sub CmdContar_Click()
A = Len(TbS.Text)
`Guarda en la variable A la cantidad de caracteres existentes en TbS.Text
For I = 1 To A
If TbC.Text = Mid(TbS.Text, I, 1) Then
'El ciclo For recorre caracter a caracter y compara c/u con el caracter guardado en TbC, si ambas son iguales entonces...de lo contrario va a Next y sigue recorriendo la cadena de TbC
TbCant.Text = Val(TbCant) + 1 ' suma 1 en TbCant
End If
Next
End Sub

La función Trim devuelve una variable (String) con una copia de la cadena seleccionada sin ningún espacio. Para eliminar los espacios a la izquierda (LTrim), para eliminar los espacios a la derecha (RTrim).

Sintaxis:
Trim(cadena)
LTrim(cadena)
RTrim(cadena)

Ejemplos:
LTrim(" hola").......... ...(da como resultado"hola")
RTrim("hola ").............(da como resultado"hola")
Trim(" hola ")...............(da como resultado"hola")

Option Explicit
Dim A As String
Private Sub CmdMostrar_Click()
A = Txt1.Text
Txt2.Text = Trim(A)
End Sub

La función UCase devuelve un tipo(String) copia de una cadena especificada pero convertida a mayúsculas.
Sintaxis:
UCase(cadena)
La función LCase devuelve un tipo(String) copia de una cadena especificada pero convertida a minúsculas.
Sintaxis
LCase(cadena)

Ejemplos:
UCase("pepe")..........(da como resultado"PEPE")
LCase("PEPE")..........(da como resultado"pepe")

La función Asc nos devuelve el número ascii correspondiente al caracter elegido o en caso de tratarse de una cadena, del primer caracter.
Ejemplo
Asc(caracter).........................(nos da el Nro.Ascii del caracter)
Chr(número ascii)...................(nos da el caracter)
Combinando ambos podemos hacer lo siguiente:
Cht(Asc("A")).........................(nos da como resultado "A")

En el siguiente ejercicio colocamos una caja de texto TbChr donde el usuario podrá colocar un caracter a us elección. Otra caja de texto de nombre Tbasc le dará el número ascii correspondiente. El proceso es reversible, ya que colocando el número correspondiente en Tbasc, TbChr deberá darnos el caracter correspondiente. Para esto existen dos botones btnchr y btnasc, de acuerdo a cual se oprima será el resultado.
Private Sub btnasc_Click()
TbAsc = Asc(TbChr.Text)
End Sub
Private Sub btnchr_Click()
TbChr = Chr(TbAsc.Text)
End Sub
Volver arriba Volver a Procedimientos y Funciones parte 1 Ir al Indice