Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



VBA - zaokrouhleni na sude cislo

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: VBA - zaokrouhleni na sude cislo

Autor: Luboš

23:45:01 08.03.2011

Musím říci, že já zase nechápu vaší logiku.
Napsal jste, že vstupní číslo je desetiné číslo, ale vstupní parametr funkce ZaokrouhlinNaSuduCislo je datový typ Integer !
Takže číslo např. 2.1 je převedeno vaší funkcí na hodnotu 2, ale nejbližší vyšší sudé číslo by mělo být 4 !?!

Citovat příspěvek

 

Re: VBA - zaokrouhleni na sude cislo

Autor: David Plsek

12:26:57 08.03.2011

Ve VBA se moc nevyznam, vubec jsem ten kod nepochopil.

pro pripad ze by to nekoho zajimalo, prikladam funkci reseni:

Function ZaokrouhlinNaSuduCislo(cislo As Integer) As Integer

Dim zbytek As Integer
zbytek = cislo Mod 2

If (zbytek > 0) Then
cislo = cislo + 1
End If

ZaokrouhlinNaSuduCislo = cislo

End Function

David

Citovat příspěvek

 

Re: VBA - zaokrouhleni na sude cislo

Autor: Luboš

9:03:54 05.03.2011

'načtení
x = Val(TextBox1.Text)
'převod
If (&HFFFFFFFE And (Int(x))) <> x Then x = &HFFFFFFFE And (Int(x + 2))
'uložení
TextBox1.Text = CStr(x)

Citovat příspěvek

 

VBA - zaokrouhleni na sude cislo

Autor: David Plsek

16:45:45 04.03.2011

Prosim jak prevedu desetine cislo na nejblizsi vyssi cele sude cislo ve VBA?

Dekuji

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: