Mini

  • November 2019
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Mini as PDF for free.

More details

  • Words: 201
  • Pages: 1
Option Compare Database Option Explicit Oefening 1 Public Sub Letters() Dim strTekst As String Dim intLengte As Integer Dim strKarakter As String Dim strNieuweTekst As String Dim intTeller As Integer strNieuweTekst = "" strTekst = InputBox("geef een tekst in", "invoer") intLengte = Len(strTekst) For intTeller = 1 To intLengte strKarakter = Mid(strTekst, intTeller, 1) If strKarakter = "o" Then strKarakter = "s" + strKarakter + "s" strNieuweTekst = strNieuweTekst + strKarakter Else If strKarakter = "a" Then strKarakter = "s" + strKarakter + "s" Else strKarakter = strKarakter End If strNieuweTekst = strNieuweTekst + strKarakter End If Next MsgBox strNieuweTekst, vbInformation, "uitvoer" End Sub

Oefening 2 Public Sub Datum() Dim strDag As String Dim intDag As Integer Dim dteDatum As Date Dim intKwartaal As Integer dteDatum = InputBox("geef een datum in", "invoer") intDag = Weekday(dteDatum) strDag = WeekdayName(intDag, False, vbSunday) Select Case True Case Month(dteDatum) = 1 To 3 intKwartaal = 1 Case Month(dteDatum) = 4 To 6 intKwartaal = 2 Case Month(dteDatum) = 7 To 9 intKwartaal = 3 Case Month(dteDatum) = 10 To 12 intKwartaal = 4 End Select MsgBox "De dag is: " & strDag & " en het kwartaal is: " & intKwartaal, vbExclamation, "uitvoer" End Sub

Related Documents

Mini
November 2019 80
Mini
October 2019 88
Mini
July 2020 42
Mini
November 2019 74
Austria Mini Mini Max
November 2019 67
Mini Cursos
May 2020 0