Rozwiązane

Pobierz od użytkownika datę urodzenia z inputbox i wyświetl ile dni zostało do jego
urodzin - VB Excel

Odpowiedź :

Odpowiedź:

Sub liczbaDniDoUrodzin()

   Dim dataUrodzenia As Date

   Dim tegoroczneUrodziny As Date

   dataUrodzenia = InputBox("Podaj datę urodzenia")

   tegoroczneUrodziny = CDate(Day(dataUrodzenia) & "." & Month(dataUrodzenia) & "." & Year(Date))

   

   If tegoroczneUrodziny < Date Then

       MsgBox ("Do urodzin pozostało " & (CDate(Day(dataUrodzenia) & "." & Month(dataUrodzenia) & "." & (Year(Date) + 1)) - Date) & " dni")

   Else

       MsgBox ("Do urodzin pozostało " & (tegoroczneUrodziny - Date) & " dni")

   End If

End Sub

Wyjaśnienie:

Viz Inne Pytanie