Funciones VBA

Funciones similares a las utilizadas en VBA.

---

 

//Devuelve un valor tipo fecha desde yyyy,mm,dd
_DLL FUNCTION DateSerial (dwY AS DWORD, dwM AS DWORD, dwDay AS DWORD);
 AS DATE PASCAL:VO28RUN.ConDate

//Devuelve la posición de una ocurrencia de una cadena dentro de otra,
//desde el final de la cadena.
_DLL FUNCTION InStrRev (cSearch AS STRING, c AS STRING) AS DWORD PASCAL:VO28RUN.RAt

//Convierte una cadena de texto en minúsculas
_DLL FUNCTION LCASE (cSorce AS _NC STRING) AS STRING PASCAL:VO28RUN.Lower

//Mostrar Cuadro de mensaje 
FUNC MSGBOX(sMensaje:="" AS usual,sTitulo:= "" AS Usual,dwBoton:=0 AS dword) AS INT PASCAL
RETURN  MessageBox(0,psz(_cast, AsString(sMensaje)),;
        psz(_cast,iif(Empty(sTitulo), __application__ , AsString(sTitulo))), dwBoton + MB_TASKMODAL)

//Devuelve un número especifico de caracteres de una cadena de texto.
_DLL FUNCTION MID (cTexto, iInicio, wLongitud) AS STRING CLIPPER:VO28RUN.SubStr

//Devuelve el nombre del mes, parametro {1-12} 1=Enero, 2=Febrero ...
_DLL FUNCTION MonthName(dwMonth AS DWORD) AS STRING  PASCAL:VO28RUN.NToCMonth

//Remplaza una cadena de texto, dentro de un texto.
_DLL FUNCTION Replace(c, cSearch, cReplace, iStart, nCount);
     AS STRING CLIPPER:VO28RUN.StrTran
 
//devuelve la cantidad de elementos de una matriz
_DLL FUNCTION UBound(a AS ARRAY) AS DWORD  PASCAL:VO28RUN.ALen

//Convierte una cadena de texto en mayúsculas.
_DLL FUNCTION UCASE (cSorce AS _NC STRING) AS STRING PASCAL:VO28RUN.Upper

//Devuelve un número que indica el día de la semana
_DLL FUNCTION Weekday (d AS DATE) AS DWORD PASCAL:VO28RUN.DoW

//Devuelve el nombre del Dia, parametro {1-7} 1=Domingo, 2=Lunes ...
_DLL FUNCTION WeekdayName (dwDay AS DWORD) AS STRING PASCAL:VO28RUN.NToCDoW