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

• #4275 Delila_1 veterán FragMaster #4267

  Új Válasz 2009-01-03 09:07:22 #4275

  Ú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

  

  Delila_1

  veterán

  válasz FragMaster #4267 üzenetére

  A csirkés feladatra:

  Function HETES(Kikelési_dátum)
  If VarType(Kikelési_dátum) = 0 Then 'Üres string
  HETES = "Nincs adat": Exit Function
  End If
  If VarType(Kikelési_dátum) <> 7 Then 'Nem dátum tip. adat
  HETES = "Dátumot kérek": Exit Function
  End If
  HETES = Round((Date - Kikelési_dátum) / 7) 'Kerekítve
  End Function
  
  
  Sub Start_HETES()
  Kikelési_dátum = ActiveCell.Value
  HETES Kikelési_dátum
  ActiveCell.Offset(, 1).Value = HETES(Kikelési_dátum)
  End Sub

  A lényeg a Function, a zárójelek közé olyan nevet adj a változónak, ami utal a függvényben megadandó adatra.

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