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

• #4341 FragMaster addikt Delila_1 #4339

  Új Válasz 2009-01-08 15:20:30 #4341

  Ú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 #4339 üzenetére

  Megpróbálom úgy is

• #4340 FragMaster addikt FragMaster #4338

  Új Válasz 2009-01-08 15:10:57 #4340

  Ú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 FragMaster #4338 üzenetére

  Első megoldva célértékkereséssel.

• #4338 FragMaster addikt

  Új Válasz 2009-01-08 13:53:39 #4338

  Ú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

  
  
  A gazdasági részből kb már csak ezek vannak hátra, valakinek van tippje rájuk?

• #4314 FragMaster addikt FragMaster #4309

  Új Válasz 2009-01-04 23:29:29 #4314

  Ú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 FragMaster #4309 üzenetére

  Na én a kiemelt sort alahogy így értelemezem:

  Dim MyTime
  Dim MyDouble
  MyTime = Time
  MyDouble = CDbl(MyTime)

  Egyáltalán kapizsgálok?

• #4312 FragMaster addikt Delila_1 #4311

  Új Válasz 2009-01-04 22:05:07 #4312

  Ú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 #4311 üzenetére

  Köszönöm a kiegészítést. A másik feladathoz a tippet még értelmezem

• #4309 FragMaster addikt

  Új Válasz 2009-01-04 15:30:44 #4309

  Ú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

  Készítsen olyan függvény makrót, amely egy beadott időérték alapján
  köszönti a felhasználót.
  Ha például az időérték:
  reggel 6 óra és 10 közötti, akkor Jó reggelt, ha
  10 és 18 óra közötti, akkorJó napot, ha
  18 és 22 óra közötti, akkor Jó estét,
  amennyiben 22 óra és reggel 6 közötti az idő, akkor
  Jó éjszakát legyen az eredmény.
  Használja az idő bekérésére a TIME függvényt, míg számmá konvertálásra a Cdbl függvényt.
  A függvénymakró ellenőrizze le, hogy a bevitt adat szám-e, ha nem akkor a függvény eredmény a Hiba szó legyen.

  Na itt csak a kiemelt rész homály. Hihetetlen mennyire használhatatlan a kapott tankönyv

• #4308 FragMaster addikt Delila_1 #4307

  Új Válasz 2009-01-04 15:05:18 #4308

  Ú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 #4307 üzenetére

  Kisebb módosításokkal meglett ennek a segítségével egy másik, hasonló feladat is.

  Function KORA(Születési_dátum)
  If VarType(Születési_dátum) = 0 Then
  KORA = "Nincs adat": Exit Function
  End If
  If VarType(Születési_dátum) <> 7 Then
  KORA = "Dátumot kérek": Exit Function
  End If
  KORA = Round((Date - Születési_dátum) / 365)
  End Function
  
  
  Sub Start_KORA()
  Születési_dátum = ActiveCell.Value
  KORA Születési_dátum
  ActiveCell.Offset(, 1).Value = KORA(Születési_dátum)
  End Sub

  A " If VarType(Születési_dátum) <> 7 Then " sorban nem vagyok biztos a 7-es számban, de működik.

• #4306 FragMaster addikt Delila_1 #4275

  Új Válasz 2009-01-04 09:30:13 #4306

  Ú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 #4275 üzenetére

  

• #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

• #4265 FragMaster addikt Delila_1 #4258

  Új Válasz 2009-01-02 19:01:49 #4265

  Ú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 #4258 üzenetére

  Köszönöm lehetséges, ki is egészítettem

• #4257 FragMaster addikt Fire/SOUL/CD #4256

  Új Válasz 2009-01-02 14:02:56 #4257

  Ú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 Fire/SOUL/CD #4256 üzenetére

  Áhh, nagyon köszönöm, közelebb jutottam ezzel is
  Én sem tudom hova kötni, mert ennyi áll a feladatban
  Közben nyúzom a többit, de ha valakinek még van ötlete elérhetőségeim publikusak

• #4254 FragMaster addikt

  Új Válasz 2009-01-02 12:11:56 #4254

  Ú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

  Az alábbi feladatokkal tudnátok nekem segíteni? Kb ezek maradtak, az alapabbakat megcsináltam, de ezek közül néhányaknál már a megfogalmazás magas nekem
  [link1]
  [link2]
  (A kettő ugyan az, csak más elérhetőséggel.)
  

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