De nuevo hola !
Igual sobre.net como hago para que en una caja de texto me muestre cuantos días faltan para que se termine el año desde la fecha actual... Gracias
Respuesta de ifrancoz
1
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
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
