Pídele a un experto en VB que te ayude a traducir un programa...esperando en línea...

La identificación de la función privada YTS (yue1asinteger) es la definición de función de número entero, el parámetro es el número de meses, un número entero.

Si yue 1<>12 entonces '12 si los meses son diferentes.

iDYTS = CDate(" 1999/" & Guangdong 1+1 & "/1 ")-CDate(" 1999/" & Guangdong 1 & "/1 ") 'El cálculo del número de meses es calcular el primer día del mes siguiente CDATE(" 1999/" & Guangdong 1+1 & "/1")

Restar el primer día de este mes, cdate (" 1999/" & Guangdong 1 & "/1 "), la diferencia entre las dos fechas es el número de días.

En caso contrario son 31 días.

iDYTS = 31

Terminará si...

' End Function 'Los datos de la función finalizan.

Esta es una función que calcula el número de días de cualquier mes del año 1999.