Visual basic
El siguiente ejemplo tiene 5 funciones para obtener:
• La cantidad de días de un año determinado
• Calcular la cantidad de días de un mesespecífico
• Averiguar si un día corresponde a un fin de semana
• Averiguar el último día de un Mes determinado
• Averiguar el último día de una semana
Controles:
• Agregar parael ejemplo 5 CommandButton: Command1, Command2, Command3, Command4 y Command5
Código fuente en un form
Private Sub Command1_Click()
MsgBox Dias_del_Año(2006) & " días"
End Sub
Private SubCommand2_Click()
MsgBox Dias_Del_Mes("05/09/2006") & " días"
End Sub
Private Sub Command3_Click()
MsgBox es_Fin_de_Semana(Date)
End Sub
Private Sub Command4_Click()
MsgBoxfin_del_Mes(Date)
End Sub
Private Sub Command5_Click()
MsgBox fin_de_Semana(Date)
End Sub
Private Sub Form_Load()
Command1.Caption = " Cantidad de Dias de un Año "
Command2.Caption= " Cantidad de Días de un Mes "
Command3.Caption = " Fin de semana ? "
Command4.Caption = " Obtener último día de un Mes "
Command5.Caption = " Obtener último día de una semana "
EndSub
'Funciones
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Calcula la cantidad de días de un año
Public Function Dias_del_Año(ByVal valor As Variant) As Integer
IfIsDate(valor) Or _
IsNumeric(valor) Then
Dias_del_Año = IIf(saltarYear(valor), 366, 365)
End If
End Function
Public Function saltarYear(ByVal valor As Variant) As BooleanOn Error GoTo LocalError
Dim iYear As Integer
If IsDate(valor) Then iYear = Year(valor) Else iYear = CInt(valor)
If TypeName(iYear) = "Integer" Then
saltarYear =Day(DateSerial(iYear, 3, 0)) = 29
End If
Exit Function
LocalError:
End Function
'Calcula la cantidad de días de un mes de una fecha determinada
'La fecha debe tener el formato...
Regístrate para leer el documento completo.