Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Valor Descripción
yyyy Año
q Trimestre
m Mes
y Día del año
d Día
w Día de la semana
ww Semana del año
h Hora
n Minuto
s Segundo
El argumento numero es asi:
Constante Valor Descripción
vbUseSystem 0 Usa valores de API de idioma nacional (NLS).
vbSunday 1 domingo (valor predeterminado)
vbMonday 2 lunes
vbTuesday 3 martes
vbWednesday 4 miércoles
vbThursday 5 jueves
vbFriday 6 viernes
vbSaturday 7 sábado
MiFecha = "19 de Octubre de 1962" ' Define una fecha.
MiFechaCorta = CDate(MiFecha ) ' Convierte en tipo de datos Date.
MiHora = "4:35:47 PM" ' Define una hora.
MiHoraCorta = CDate(MiHora) ' Convierte en tipo de datos Date.DateDiff(intervalo, fecha1, fecha2[,primerdíadelasemana[,primerasemanadelaño]])Option Explicit
Private Sub Form_Load()
Text1 = " Escriba una fecha para calcular el númerode días de un mes "
End Sub
Private Sub Command1_Click()
Dim Fecha_1 As Date
Dim Fecha_2 As Date
Fecha_1 = CDate(Text1)
Fecha_2 = DateAdd("m", 1, Fecha_1)
' Muestra los días
MsgBox " Este mes tiene : " & Format$(DateDiff("d", Fecha_1, Fecha_2))
End Sub 'Poner este código en el Form_Load
Dim Hora(24) As Integer
Dim i As Integer, Mayor As Integer
'Llenar el array con números...
'(en esta entrega veremos cómo hacerlo de forma aleatoria)
'...
'Comprobar cual es el mayor
For i = 1 To 24
If Hora(i) > Mayor Then
Mayor = Hora(i)
End If
Next
Print "El número mayor es:"; Mayor'Los mismos comentarios iniciales que el primero
Dim Hora(24) As Integer
Dim i As Integer, Menor As Integer
'
For i = 1 To 24
If Hora(i) Then 'Sólo si no vale cero
If Menor = 0 Then 'Si aún no tiene un valor
Menor = Hora(i) 'se lo asignamos
Else
If Hora(i) < Menor Then 'Si el contenido de Hora(i) es menor
Menor = Hora(i) 'lo asignamos como menor
End If
End If
End If
Next
Print "El número menor es "; Menor
Private Function Existe(Archivo As String) As Integer
Existe = Len(Dir$(Archivo))
If Existe Then
Label1 = Archivo & " Si existe"
Else
Label1 = Archivo & " No existe"
End If
End Function
Private Sub Form_Load()
Dim A As Integer, Nombre As String
Show
Label1 = ""
Nombre = "C:\Autoexec.exe"
A = 5
If A > 10 Then
If Existe(Nombre) Then
Print A; "mayor de 10 y " & Nombre & " existe"
Else
Print A; "es mayor de 10 pero " & Nombre & " no existe"
End If
Else
Print A; "no es mayor de 10 o " & Nombre & " no existe"
End If
End Sub text3.text = val(text1.text) + val(text2.text)Private Sub Tirada_Click()
For Contador = 1 To NumTiradas.Text
Dado.AddItem (Int(6 * Rnd) + 1)
Next Contador
End SubAzul = "Arriba"
print AzulPrivate Sub Command1_Click()
If Text1.Text = "Balón" Then
Label4.Caption = "Balón"
End If
If Text1.Text = "Raqueta" Then
Label4.Caption = "Raqueta"
End If
If Text1.Text = "Ordenador" Then
Label4.Caption = Ordenador
End If
End SubPrivate Sub Label1_Click()
Text1.Text = "Balón"
End SubPrivate Sub Label2_Click()
Text1.Text = "Raqueta"
End SubPrivate Sub Label3_Click()
Text1.Text = "Ordenador"
End SubPrivate Sub Command1_ClickIf Text1.Text = "Balón" ThenLabel4.Caption = "Balón"
