Új hozzászólás Aktív témák

• #4267 FragMaster addikt Delila_1 #4266

  Új Válasz 2009-01-02 19:47:41 #4267

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  FragMaster

  addikt

  válasz Delila_1 #4266 üzenetére

  Megtörtént

  Közben haladok, a csibés eddig kész van, már csak át kell erőszakolni függvénnyé és kell bele hibaellenőrzés

  Sub HETES()
  Dim hetek As Integer
  Dim szüldátum As Date
  Do
  szüldátum = CDate(InputBox("Csirke kikelt?", "Csirkekor"))
  Loop Until szüldátum < Date
  hetek = (Date - szüldátum) / 7
  MsgBox ("Csibekora: " & hetek & " hét")
  End Sub

Új hozzászólás Aktív témák