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