Dedicado a mis proyectos en Gambas ,un lenguaje de programación parecido al Visual Basic + Java pero ampliamente mejorado y...¡¡para gnu/linux!!.La potencia del gnu/linux sumada a la facilidad del Basic



Consultas, Desarrollo de programas y petición de presupuestos:



sábado, 7 de octubre de 2017

Gambas: Obtener numero de dias del Mes. Ejemplo Uso de funciones externas.

Gambas: Obtener número de días del Mes. Ejemplo Uso de funciones externas.


Revisando el foro de gambas-es.org, encontré este interesante código donde el usuario Vuott, usaba la función externa "g_date_get_days_in_month" de la libreria "libglib-2.0", para obtener el numero de días de una mes y año concreto.



Library "libglib-2.0"


' guint8 g_date_get_days_in_month (GDateMonth month, GDateYear year)

' Returns the number of days in a month, taking leap years into account.

Private Extern g_date_get_days_in_month(GDmonth As Integer, GDyear As Integer) As Byte


Public Sub Main()

 
 Dim num As Byte

 Dim mes As String

 Dim meses As String[] = [Null"Enero""Febrero""Marzo""Abril""Mayo""Junio","Julio""Agosto""Septiembre""Octubre""Noviembre""Diciembre"]

 
  mes = "Febrero"

 
  num = g_date_get_days_in_month(meses.Find(mes), 2016)

   
  Print "El mes de "; mes; " contiene "; num; " dias."

  
End




Codigo descargable: Alojado en google drive


fuente:
https://www.gambas-es.org/viewtopic.php?f=4&t=6633