If ³¯z¦¡¬O³Ì¦³¥Îªº±±¨îµ²ºc¤§¤@¡C¥¦¥i¦b¬Y±ø¥ó¬° True ®É¡A¥Î¨ÓÅçºâ¤@²Õ³¯z¦¡¡F¦Ó¬Y±ø¥óY¬° False¡A«hÅçºâ¤£¦P²Õªº³¯z¦¡¡C
ª`·N ·í®æ¦¡¤Æ±ø¥ó¦¡¤½¦¡®É¡A½Ð¤@©wn¨Ï¥Î ElseÃöÁä¦r¡A§_«h¤£²Å¦X If ±ø¥óªº¼ÆÈ¥i¯à¤£·|«O«ùì©lªº®æ¦¡¡CYnÁ×§Kµo¥Í³oºØ±¡ªp¡A½Ð¨Ï¥Î DefaultAttribute ¨ç¦¡ (If...Else formula = DefaultAttribute)¡C
½d¨Ò
¬Y¤½¥qpµe´£¼· 4% ªº¬õ§Qµ¹û¤u¡A¦ý¾P°â³¡ªùªºû¤u±N¥i±o¨ì 6%¡C¤U¦C¤½¦¡¨Ï¥Î If ³¯z¦¡¨Ó°õ¦æ³o¶µ¥ô°È¡G
Rem ¦h¦æ If ½d¨Ò 1
If {û¤u.³¡ªù} = "Sales" Then
formula = {û¤u.Á~¤ô} * 0.06
Else
formula = {Employee.Salary} * 0.04
End If
¦b¥»½d¨Ò¤¤¡A¦pªG±ø¥ó {Employee.Dept} = "Sales" Åçºâ¬° True¡A«h·|°õ¦æ
formula = {û¤u.Á~¤ô} * 0.06
³¯z¦¡¡C§_«h·|³B²z Else ¤§«áªº³¯z¦¡¡A¤]´N¬O
formula = {Employee.Salary} * 0.04
¡C
°²©w¥t¤@®a¤½¥qn´£¼· 4% ªº¬õ§Q (³Ì¤Ö $1,000) µ¹û¤u¡C½Ðª`·N½d¨Ò¤¤¨Ã¥¼¥]§t Else ¤l¥y¡A¦]¬° Else ¤l¥y¬O¿ï¾Ü©Êªº¡A¦b¦¹³B¨Ã¤£»Ýn¡C
Rem Multi-line If example 2
formula = {Employee.Salary} * 0.04
If formula < 1000 Then
formula = 1000
End If
²{¦b°²©w«ez¤½¥qÁÙn±N¬õ§Qªº³Ì°ª¤Wq¬° $5,000 ¤¸¡C²{¦b»Ýn¨Ï¥Îªº¬O ElseIf ¤l¥y¡C½Ðª`·N ElseIf ¥u¦³¤@Ó¦r¡C¥H¤U½d¨Ò¥u¦³¤@Ó ElseIf ¤l¥y¡A¥i¬O±z¥i¥H¨Ì»Ýn¥ô·N¥[²K¡C
ª`·N ¨CÓ If ³¯z¦¡³Ì¦h§¡¥u¯à¦³¤@Ó Else ¤l¥y¡C
¦pªG If ©Î ElseIf ±ø¥ó§¡¤£¬° True¡AElse ¤l¥y´N·|°õ¦æ¡C
Rem Multi-line If example 3
formula = {Employee.Salary} * 0.04
If formula < 1000 Then
formula = 1000
ElseIf formula > 5000 Then
formula = 5000
End If
½d¨Ò
°²³]¬Y¤½¥q·Qnpºâ¨C¦ìû¤uµ|´Úªº¦ôpÈ¡A¨ÃÅã¥Ü¾A·íªº°T®§¡C¦¬¤J¦pªG§C©ó $8,000 ¤¸«h¤£¥Îúµ|¡A¦¬¤J¦b $8,000 ¨ì $20,000 ¤¸¤§¶¡ªº»Ýú¯Ç 20% ªºµ|´Ú¡A¦¬¤J¦b $20,000 ¨ì $35,000 ¤¸¤§¶¡ªº»Ýú¯Ç 29% ªºµ|´Ú¡A¦Ó $35,000 ¤¸¥H¤W¦¬¤JªÌ»Ýúµ| 40% ªºµ|´Ú¡C
Rem Multi-line If example 4
Dim tax As Currency, income As Currency
income = {û¤u.Á~¤ô}
Dim message As String
If income < 8000 Then
tax = 0
message = "§Kµ|"
ElseIf income >= 8000 And income < 20000 Then
message = "³Ì§C"
tax = (income - 8000)*0.20
ElseIf income >= 20000 And income < 35000 Then
message = "¤¤µ¥"
tax = (20000 - 8000)*0.20 + (income - 20000)*0.29
Else
message = "³Ì°ª"
tax = (20000 - 8000)*0.20 + (35000 - 20000)*0.29 + _
(income - 35000)*0.40
End If
Dim taxStr As String
Rem ¨Ï¥Î¤G¦ì¤p¼Æ
Rem ¨Ï¥Î³r¸¹°µ¬°¤d¤À¦ì¤À¹j²Å¸¹
taxStr = CStr (tax, 2, ",")
formula = "±zÄÝ©ó " & message & _
" ¯Çµ|µ¥¯Å¡C " & _
"±zªº¹w¦ôµ|ÃB¬° " & taxStr & "¡C"
½Ðª`·N¡A¤W¨Ò¤¤¨Ï¥ÎÅܼƨÓ²¤ÆpºâªºÅÞ¿è¡C¦¹¥~¡Aª`·N¨ì¦b¬YÓ±ø¥ó²Å¦X®É¡A·|°õ¦æ¨âÓ³¯z¦¡¡G¤@Ó«ü¬£ tax ÅܼơA¥t¤@Ó«ü¬£ message ÅܼơC¦b²Å¦X¤@Ó±ø¥ó®É°õ¦æ¦hÓ³¯z¦¡±ø¥ó¬O«Ü¦³¥Îªº§@ªk¡C