Actividad pública reciente
Ha valorado "Buena" la respuesta
De nuevo hola !
Pues en Visual Basic 6.0 seria algo así: Private Sub Dias_Faltantes Dim Fecf As Date Dim Fecs As String Dim Dias As Integer Fecs = Str(Year(Date)) & "/12/31" Fecf = CDate(Format(Fecs, "yyyy/mm/dd")) Dias = Fecf - Date Text1 = Format(Dias, "##0") End Sub