lunes, 3 de junio de 2013

EJEMPLO MATEMATICO:

*En este ejemplo se utiliza el método Abs de la clase Math para calcular el valor absoluto de un número.
' Returns 50.3.
Dim MyNumber1 As Double = Math.Abs(50.3)
' Returns 50.3.
Dim MyNumber2 As Double = Math.Abs(-50.3)

*En este ejemplo se utiliza el método Atan de la clase Math para calcular el valor de pi.
Public Function GetPi() As Double
    ' Calculate the value of pi.
    Return 4.0 * Math.Atan(1.0)
End Function

*En este ejemplo se utiliza el método Cos de la clase Math para devolver el coseno de un ángulo.
Public Function Sec(ByVal angle As Double) As Double
    ' Calculate the secant of angle, in radians.
    Return 1.0 / Math.Cos(angle)
End Function
EJEMPLO DE FECHA:
la función
DATE()
nos retorna la fecha actual del sistema si se ejecuta sin argumentos. Para evitarcomplicaciones con fechas ambiguas es conveniente que siempre utilicemos la funciónDATE(nAnio,nMes,nDia) con sus argumentos para crear expresiones de tipo Date.

dFecha = DATE() && Fecha actual del sistemadFecha = DATE(2000,03,01) && 1 de Marzo de 2000


La función
DATETIME()
nos retorna la fecha y hora actual del sistema si se ejecuta sin argumentos.Al igual que la función DATE() y para evitar complicaciones con fechas ambiguas es conveniente quesiempre utilicemos la función DATETIME(nAnio,nMes,nDia,nHoras,nMinutos,nSegundo) con todos susargumentos para crear expresiones de tipo DateTime.
tFHora = DATETIME() && Fecha y hora actual del sistematFHora = DATETIME(2000,03,01,16,15,30) && 1 de Marzo de 2000, 16:15:30 horas

________________________________________________________________________________

EJEMPLO DE FINANCIEROS

Devuelve el importe de cada pago periódico de un préstamo a interés fijo.

Ejemplo

STORE 100000 to gnPrincipal     && $100,000 beginning principal
STORE .105/12 TO gnInterest  && 10.5% annual interest rate
STORE (20*12) TO gnPayments     && 20 years of monthly payments
CLEAR
? PAYMENT(gnPrincipal, gnInterest, gnPayments)  && Displays 998.38
PAYMENT(nPrincipal, nInterestRate, nPayments)

No hay comentarios:

Publicar un comentario