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

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

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