Ejemplos usando el Api de windows para Visual basic

17 - Algunas funciones Api de formato de fechas y números

En esta sección podés ver algunos ejemplos que utilizan algunas funciones api variadas para formatear números, fechas, horas.

Contenido

Formatear un número decimal a formato de moneda
Formatear un número
Formatear fechas y horas
Formatear en Bytes, KiloBytes, Megas, Gigas
Relacionados

Formatear un número decimal a formato de moneda mediante el Api GetCurrencyFormat

Este simple ejemplo muestra como formatear un número de tipo decimal a un formato de tipo moneda.

Los principales parámetros son lpValue que es el valor que le tenemos que enviar a la función y el parámetro lpCurrencyStr que es un buffer de retorno de tipo String con el valor devuelto.

Por ejemplo si le enviamos el valor 150 nos retorna el valor $150,00

Controles

Agregar un Command1
un TextBox

Código fuente en un formulario

' declaraciones de funciones '''''''''''''''''''''''''''''''''''''''' 'Función Api GetCurrencyFormat para formatear valores de tipo moneda Private Declare Function GetCurrencyFormat Lib "kernel32" Alias "GetCurrencyFormatA" _ (ByVal Locale As Long, _ ByVal dwFlags As Long, _ ByVal lpValue As String, _ lpFormat As Any, _ ByVal lpCurrencyStr As String, _ ByVal cchCurrency As Long) As Long Private Sub Command1_Click() Dim Buffer As String 'creamos un buffer para el resultado Buffer = String(255, 0) 'Llamamos a la función api, en el _ tercer parámetro le enviamos el valor a formatar Call GetCurrencyFormat(ByVal 0&, 0, Text1, ByVal 0&, Buffer, Len(Buffer)) 'Elimina los espacios nulos Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1) 'Mostramos el valor MsgBox Buffer, vbInformation End Sub Private Sub Form_Load() Command1.Caption = "Formatear" Text1 = 150 End Sub

Formatear un número especificando el número de dígitos a devolver y el tipo de separador de miles.

Con el Api GetNumberFormat podemos por ejemplo formatear un número inidicandole la cantidad de dígitos a devolver y el separador de miles que devolverá. Esta función usa una estructura simple llamada NUMBERFMT en la cual especificamos los datos anteriores que tendrá que devolver. Este ejemplo le pasa el número 300.12 en el parametro lpValue y devuelve el n° 300,12000. Anteriormente en la estructura tenemos que especificar en la variable lpDecimalSep la coma o el punto, y en NumDigits, la cantidad de digitos a devolver.

Código fuente en un formulario

'Estructura NUMBERFMT para usar con la función Api Private Type NUMBERFMT NumDigits As Long LeadingZero As Long Grouping As Long lpDecimalSep As String lpThousandSep As String NegativeOrder As Long End Type 'Función Api GetNumberFormat para formatear números Private Declare Function GetNumberFormat Lib "kernel32" Alias "GetNumberFormatA" _ (ByVal Locale As Long, _ ByVal dwFlags As Long, _ ByVal lpValue As String, _ lpFormat As NUMBERFMT, _ ByVal lpNumberStr As String, _ ByVal cchNumber As Long) As Long Private Sub Command1_Click() Dim Buffer As String, NF As NUMBERFMT 'Creamos un buffer que retornará la _ función api con el número formateado Buffer = String(255, 0) 'Establecemos la extructura de formato With NF 'Establecemos el n° de digitos decimales que tendrá que devolver la función .NumDigits = 5 'Ni idea para que está .Grouping = 1 'Indicamos el separador de miles que tendrá que usar al formatear .lpDecimalSep = "," .lpThousandSep = "" .NegativeOrder = 0 End With Call GetNumberFormat(ByVal 0&, 0, "300.12", NF, Buffer, Len(Buffer)) 'mostramos el número MsgBox Buffer End Sub

Formatear fechas y horas.

Al igual que el ejemplo anterior, en esta función debemos llenar una estructura con los valores de formato etc.. En el ejemplo se especifica en la estructura un dia, un mes y un número de año. Cuando se la enviamos a la función retorna el valor de la siguiente manera: dd/mm/yyyy esto creo que es dependiendo de la configuración del sistema operativo, es decir de la configuración regional.

Código fuente en un formulario:

'Estructura SYSTEMTIME que le enviamos a la función Api GetDateFormat Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type 'Declaración del Api GetDateFormat Private Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" _ (ByVal Locale As Long, _ ByVal dwFlags As Long, _ lpDate As SYSTEMTIME, _ ByVal lpFormat As String, _ ByVal lpDateStr As String, _ ByVal cchDate As Long) As Long Private Sub Form_Load() 'Declaramos un buffer de retorno y una _ variable para la extructura systemTime Dim Buffer As String, ST As SYSTEMTIME 'Con la extructura le inicializamos _ valores para pasarlo a la api With ST .wDay = 6 .wMonth = 8 .wYear = 2000 End With 'inicializamos el buffer Buffer = String(255, 0) 'Llamamos a la función Call GetDateFormat(ByVal 0&, 0, ST, vbNullString, Buffer, Len(Buffer)) 'Formateamos el dato devuelto quitandole los espacios nulos Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1) 'Mostramos el valor formateado MsgBox Buffer End Sub

Ejemplo para formatear un número en bytes

Esta función llamada StrFormatByteSize, da formato a un número en bytes, a su equivalente. Por ejemplo, si le pasamos como número 1024, retorna una cadena con lo siguiente: 1 Kb.

Option Explicit 'Delaración del Api StrFormatByteSize Private Declare Function StrFormatByteSize Lib "shlwapi.dll" Alias "StrFormatByteSizeA" _ (ByVal dw As Long, _ ByVal szBuf As String, _ ByVal uiBufSize As Long) As Long Private Function Formatear(ByVal Numero As Long) As String Dim ret As String 'Buffer que retorna el resultado ret = Space$(256) Call StrFormatByteSize(Numero, ret, Len(ret)) Formatear = Left$(ret, InStr(ret, vbNullChar) - 1) End Function Private Sub Command1_Click() 'Agunos ejemplos de la llamada a la función para formatear en bytes MsgBox Formatear(1024), vbInformation MsgBox Formatear(10000000), vbInformation MsgBox Formatear(5), vbInformation End Sub

Nota: en todos estos ejemplos vistos, los valores de retorno de las funciónes Api se traen en un Buffer que luego devemos formatear quitandole los espacios nulos, es decir eliminado el Chr(0).

Enlaces relacionados

Buscar en Recursos vb