Lenguaje Fácil ¿Cómo determinar si es día laborable o fin de semana? Tengo el código fuente, por favor...

'''''''''''''''''''. '''''''''''''''''''''''''''''''''''' '''''''' ''''''''''''' '''''''''''''''''''''

.Versión 2

.Subrutina __startup_window_created

Calcular el día laborable (a la hora ("16 de julio de 2011 22:32:47"), Obtener la hora actual ())

. la subrutina calcula la jornada laboral, un número entero

. Día, fecha y hora de inicio del parámetro

Día, fecha y hora de finalización del parámetro

Día de cálculo de la variable local, decimal de doble precisión

. , entero , "0"

Variable local día no laborable, entero, "0"

. Variable local i, número entero

Variable local x, número entero

Día de cálculo = Obtener intervalo de tiempo (día de finalización, día de inicio, # día)

. El primer día del ciclo (día de cálculo, i)

x = obtener el día de la semana (tiempo de incremento o decremento (día de finalización, # día, i))

Salida texto de depuración (x )

. if (x = 1)

agregar miembro (día no laborable, 1)

. De lo contrario

Agregar miembro (día laborable, x)

.Si final

.Contar el final del bucle ()

Texto de depuración de salida ( "día de la semana = " + al texto (tomar miembro de la matriz (días laborables)))

Texto de depuración de salida ("día no laborable = " + al texto (tomar miembro de la matriz (días no laborables))))< / p>

Texto de depuración de salida ("día no laborable = " + al texto (tomar miembro de la matriz (días no laborables))).))

Devoluciones (toma miembro de la matriz (días laborables))

'''''''''''''''''''''''''''''' ''''''''' ''''''''''''''''''''''''''''' '''' ''''''''''''' ''''''''

Si no entiende, deje su dirección de correo electrónico.