CBool Function

መቀየሪያ የ ሀረግ ማነፃፀሪያ ወይንም የ ቁጥር ማነፃፀሪያ ለ ቡልያን መግለጫ: ወይንም መቀየሪያ ነጠላ የ ቁጥር መግለጫ ወደ ቡልያን መግለጫ:

አገባብ:


መግለጫ የ ተቀየረ ልዩነት ከ ንዑስ አይነት ቦሊያን (መግለጫ1 {= | <> | < | > | <= | >=} መግለጫ2) ወይንም መግለጫ የ ተቀየረ ልዩነት ከ ንዑስ አይነት ቦሊያን (ቁጥር)

ይመልሳል ዋጋ:

ቡል

ደንቦች:

መግለጫ1: መግለጫ2: ማንኛውም ሀረግ ወይንም የ ቁጥር መግለጫ እርስዎ ማዋዳደር የሚፈልጉት: መግለጫው ተመሳሳይ ከሆነ: ከ ሲቡል ተግባር ይመልሳል እውነት ያለ በለዚያ ሀሰት ይመልሳል

ቁጥር: ማንኛውም የ ሂሳብ መግለጫ እርስዎ መቀየር የሚፈልጉት:መግለጫው እኩል ከሆነ ከ 0, ጋርሀሰት ይመልሳል: ያል በለዚያ እውነት ይመልሳል:

የሚቀጥለው ምሳሌ የሚጠቀመው መግለጫ የ ተቀየረ ልዩነት ከ ንዑስ አይነት ቦሊያን ተግባር ለ መገምገም የ ተመለሰውን ዋጋ በ ኢንቲጀር ይመልሳል የ መጀመሪያ ቦታ እና ሁኔታ ለ ተወሰነው ሀረግ ተግባር: ይህ ተግባር ይመረምራል ቃል "እና" አረፍተ ነገር ውስጥ የሚገኝ በ ተጠቃሚው የ ገባውን

የ ስህተት ኮዶች:

5 ዋጋ የሌለው የ አሰራር ጥሪ

ለምሳሌ:


Sub ExampleCBool
Dim sText As String
    sText = InputBox("Please enter a short sentence:")
    ' ማረጋገጫ ይህ ቃል »እና« በ አረፍተ ነገር ውስጥ ይታይ እንደሆን
    ' ከ ትእዛዝ መስመር ይልቅ
    ' ከሆነ ትእዛዝ(ማስገቢያ: "እና")<>0 ከዛ...
    ' የ መግለጫ የ ተቀየረ ልዩነት ከ ንዑስ አይነት ቦሊያን ተግባር የሚፈጸመው እንደሚከተለው ነው:
    ከሆነ መግለጫ የ ተቀየረ ልዩነት ከ ንዑስ አይነት ቦሊያን(ኢንቲጀር ይመልሳል የ መጀመሪያ ቦታ እና ሁኔታ ለ ተወሰነው ሀረግ(sጽሁፍ: "እና")) ከዛ
        MsgBox "The word »and« appears in the sentence you entered!"
    EndIf
End Sub