Webdesign - Programmeren | Forum profile

Citaat: Origineel gepost door Nightwolf Probeer het volgende eens (ik heb het zelf niet getest): Dim xl Dim xlwbook Set xl = CreateObject("Excel.Application") Set xlwbook = xl.Workbooks.Open("c:\My documents\test.xls") Hmmm, je hoort de pc iets laden en het pijltje verandert in een zandlopertje voor 2 seconden maar dat is alles. Er opent geen excel en ook niet het bestand.

Probeer het volgende eens (ik heb het zelf niet getest): Dim xl Dim xlwbook Set xl = CreateObject("Excel.Application") Set xlwbook = xl.Workbooks.Open("c:\My documents\test.xls")

Ik ken niet zo goed vb .net maar je redenatie is correct. Je triggert een functie waaraan je als parameter een integer meegeeft en die functie geeft een string terug. Zoals jij het gedaan hebt zou ik het ook doen. Een selectcase is niet erg handig in dit geval. Ik zou gewoon een stringvariabele genereren aan het begin van je functie met de waarde "infant". Als je in een true selectie komt van een ifstatement kan je die string...

Bovenstaande code is fout. muv age <= 1 zal die functie altijd Toddler weergeven. Terwijl de voorbeeldcode wel werkt. Dit komt omdat er geen elsen in staan (omdat een return de uitvoering van de functie stopt is dat niet nodig). @Deus Ex Machina een case/select kan niet want die vergelijkt met vaste waarden terwijl er hier gewerkt wordt met ranges (tenzij dit kan in vb .net)

Citaat: Origineel gepost door Slicer Bovenstaande code is fout. muv age <= 1 zal die functie altijd Toddler weergeven. Terwijl de voorbeeldcode wel werkt. Dit komt omdat er geen elsen in staan (omdat een return de uitvoering van de functie stopt is dat niet nodig). @Deus Ex Machina een case/select kan niet want die vergelijkt met vaste waarden terwijl er hier gewerkt wordt met ranges (tenzij dit kan in vb .net) ranges zijn mogelijk