| Usuario |
DIAS NATURALES Y DIAS HABILES |
japaricio
5 Mensaje(s) |
| Enviado - 15/9/2004 |
| |
Hola:
Alguien sabe de alguna FUNCTION y/o Algoritmo para obtener la cantidad de dias naturales entre 2 periodos de fechas?
Por ejemplo, cuantos dias naturales hay desde 3 Agosto 2004 al día de hoy 14 de Septiembre de 2004
Sorry, estoy trabajando con VB 6
|
| |
|
nostromo
409 Mensaje(s)
|
| Enviado - 18/9/2004 |
| |
Hola;
Ejemplo de cómo restar fechas y horas:
Dos ejemplos de cómo restar fechas y horas.
Para saber los segundos entre dos horas o los días entre dos fechas.
Crea un form con los siguientes controles, dejale los nombre por defecto.
4 TextBox
2 Labels
2 Commands
Distribuyelos para que los dos primeros TextoBoxes estén con el primer label y command, lo mismo con el resto.
Añade lo siguiente al form y pulsa F5
'Ejemplo de prueba para restar fechas y horas (26/Mar/97)
'(c) Guillermo Som, 1997
Option Explicit
Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant
'Text1 Tendrá una fecha anterior
'Text2 tendrá la nueva fecha
t0 = DateValue(Text1)
t1 = DateValue(Text2)
Label1 = t1 - t0
End Sub
Private Sub Command2_Click()
Dim t0 As Variant, t1 As Variant
'Text3 Tendrá una hora anterior
Text4 = Format(Now, "hh:mm:ss")
t0 = Format(Text3, "hh:mm:ss")
t1 = Format(Text4, "hh:mm:ss")
Label2 = Format(TimeValue(t1) - TimeValue(t0), "hh:mm:ss")
End Sub
Private Sub Form_Load()
'Para probar la diferencia de fechas
Text1 = DateValue(Now)
Text2 = DateValue(Now + 10)
'
'Para probar la diferencia de horas
Text3 = Format(Now, "hh:mm:ss")
Text4 = Format(Now, "hh:mm:ss")
Command1_Click
Command2_Click
End Sub
Nos vemos. |
| |
|
|
|
