Visual Basic-8

Fechas y horas - Inserción de controles en tiempo de ejecución.

Para los paises latino-americanos el primer día de la semana es el Lunes (vbMonday)
Para los paises anglosajones el primer día de la semana es el Domingo (vbSunday)

Formatos de fecha y hora.

Diferencia entre dos fechas o tiempos.

DateDiff(Intervalo, fechavieja, fechanueva, vbMonday)

Intervalo = "yyyy", "q", "m", "y", "d", "w", "ww", "h", "n", "s"

Private Sub Command1_Click()


viejo = #12/24/2002 10:40:24#
nuevo = Now


Enaños = DateDiff("yyyy", viejo, nuevo, vbMonday)
Enmeses = DateDiff("m", viejo, nuevo, vbMonday)
Endias = DateDiff("d", viejo, nuevo, vbMonday)
Enhoras = DateDiff("h", viejo, nuevo, vbMonday)
Enminutos = DateDiff("n", viejo, nuevo, vbMonday)
Ensegundos = DateDiff("s", viejo, nuevo, vbMonday)

Print Enaños
Print Enmeses
Print Endias
Print Enhoras
Print Enminutos
Print Ensegundos
End Sub

Añadir fecha

DateAdd(Intervalo, cantidad, Fecha)

Intervalo = "yyyy", "q", "m", "y", "d", "w", "ww", "h", "n", "s"

DateAdd("m", 25, Now) -------> Le añade 25 minutos a la hora actual.

Inserción de controles en tiempo de ejecución.

- Normalmente ponemos los controles mientras se está construyendo el Formulario, esto es insertar los controles en tiempo de diseño.
- Tambíén se pueden colocar los controles, (especialmente las matrices de controles) cuando se carga el programa, esto es insertar los controles en tiempo de ejecución.

1.- Creamos un nuevo proyecto EXE estándar y colocamos un TextBox.
2.- Al TextBox anterior le ponemos, en sus Propiedades, de nombre (Nombre) = aa y en su Propiedad Text =    (ponerlo vacio)
3.- Marcamos el casillero aa / Botón derecho - Copiar / Botón derecho - Pegar

4.- Pulsamos Sí. El casillero aa se habrá convertido en aa(0) y el otro en aa(1)
5.- Eliminamos del Formulario el aa(1), nos quedamos sólo con el aa(0)

Dim total

Private Sub aa_Change(Index As Integer)
Print Index
If (aa(Index) > 5) And (aa(Index) < 7) Then bb(Index) = "Bien"
If (aa(Index) > 7) And (aa(Index) < 10) Then bb(Index) = "Notable"
If aa(Index) < 5 Then bb(Index) = "Insuficiente"
End Sub

Private Sub Form_Load()
total = InputBox("¿Cuántos alumnos hay en esta clase? ")
 Dim i As Integer
    
    For i = 1 To total
        Load aa(i)
        aa(i).Top = 10 + i * 400
        aa(i).Visible = True
    
        Load bb(i)
        bb(i).Top = 10 + i * 400
        bb(i).Visible = True
    Next i
    aa(0).Visible = False
    bb(0).Visible = False
End Sub