4 virtual currency
that can be launched http://www.btchina.net/ It's easy to find seeds in the league
· Sqr(9)=根号9=3
· Len(" 4")= [UNK]符串 4" [UNK][UNK]=1
but in this program,
? Define len (x1, Y1, X2, Y2) sqrt ((x1-x2) * (x1-x2) + (y1-y2) * (y1-y2)) defines a macro to calculate the straight line distance between two points (x1, Y1) and (Y1, Y2)
= prompt ((left (A1: a100,3) = & quot; HKD")* Mid (A1: a100,4,15))
2. Find USD
= prompt ((left (A1: a100,3) = & quot; USD")* Mid (A1: a100,4,15))
seek other similarities
first of all, are you a user-defined value or a text type? If it is text type, separate currency from value first
is RMB, HKD and USD all three digit? If so, it can be well separated
and then SUMIF is used to sum conditionally
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -; USD")*(-- RIGHT(A1:A6,LEN(A1:A6)-3)))*6.8+SUMPRODUCT((LEFT(A1:A6,3)=" HKD")*(-- RIGHT(A1:A6,LEN(A1:A6)-3)))*0.9+SUMPRODUCT((LEFT(A1:A6,3)=" RMB")*(-- Right (A1: A6, len (A1: A6) - 3))
then the following is the exchange rate, which can be changed. Please understand the principle
len is the fourth of a series of vocal chords. December 27, 2007 P >
2, len: < month > < person >
len ("Moon") Utakuki Juya (the night of the moon): people who live in the same way as cats, and cats and cats. One handed standing inward P >
3, len: len functions in the len function
len in Excel, excel. Lenb functional merit. P >
4, len: the fundamental function of len function in the positive function of the len function
in the VBA, the number of characters in the enclosed string, or the number of characters in the enclosed character. P >
. It is also used for the revision of the rendition. Note: lenb function is the number of digits in the spar, and the number of characters in the same word. P > is the return of lenb, and the number of characters in the representative marks, and the number of characters in the remark. The following are the following: P > use lenb example: Note: the number of characters used in this type is the number of characters, and the number of characters is not available. P >
Private Functionsetdata (numAsInteger)AsString ' SelectCasenum
Case0
setdata=" Organisation br/>Case1
setdata=" Organisation 22777; br />Case2
setdata=" <36144;
Case3
setdata=" 0121441; br />Case4
setdata=" " < br />Case5
setdata=" "< br />Case6
setdata=" Organisation br />Case7
setdata=" < br />Case8
setdata=" <25420; br />Case9
setdata=" < EndSelect
EndFunction
Private Functionchang(aaaAsInteger) Replace the degrees
SelectCaseaaa
Case1
chang=" " < br/>Case2
chang=" "< br/>Case3
chang=" %s " < br/>Case4
chang=" Organisation br/>Case5
chang=" Organisation br/>Case6
chang=" "< br/>Case7
chang=" %s " < br/>Case8
chang=" Organisation br/>Case9
chang=" Cannot initialise Evolution's mail component. br/>Case10
chang=" "< EndSelect
End Function
PrivateSubForm_Activate()' Design the text length
Text2.MaxLength=10
Text2.SetFocus
End Sub
PrivateSubText2_Change()' DimmyintAsIntegeeger
DimmyintAsInteger
DimmyintAsInteger
Dimmyint1AsInteger
Dimmyint1AsInteger
Dimmyint1AsInteger
Dimmyint1AsInteger
Dimmyint1AsInteger
DimmydoubAsDouble
DimmydoubAsDouble
DimmystrAsString
DimmystrAsString
Dimmystr1AsDimmoneyAsString
DimmoneyAsLong
Dimmoney1AsInteger
Dimmoney2AsLong
mystr=Text2.Text
myint=InStr(mystr, "" quot;) br/>Ifmyint=0Then
mystr=Text2.Text
Else
mystr3=Right(Text2.Text,Len(Text2.Text)-myint)
Ifmystr3< & gt; & Organisation " Then & #39; convert minorities
mystr4=Left(mystr3.1)
mystr3=Right(mystr3,Len(mystr3)-1)
Ifmystr4< " gt; & " 0" Then
mystr2=mystr2+setdata(Val(mystr4)+" Organisation br/>EndIf
Ifmystr3<" gt; & Organisation " Then
mystr4=Left(mystr3.1)
mystr2=mystr2+setdata(Val(mystr4)+" "< EndIf
EndIf
mystr=Left(Text2.Text,myint-1)
EndIf
j=Len(mystr)
Fori=1ToLen(mystr)' convert integer
money2=Left(mystr,i)
money1=Right(money2,1)
Ifmoney1=0Then
Ifj=5Then
IfRight(mystr1,1)< " gt; & " Van Thenmystr1=mystr1&" " Organisation br/>Else
IfRight(mystr1.1)<" gt; & " Organisation AndRight(money,j)> 0Thenmystr1=mystr1&" " Organisation EndIf
Else
mystr1=mystr1& setdata(money1)+chang(j)
EndIf
j=j-1
Nexti
Text1.Text=mystr1&& " Organisation amp; mystr2 & #39; EndSub
PrivateSubCommand1_Click()
End
End Sub
# index: the I in a [i] indicates the number of elements. It starts from 0
# a [0] indicates the first element
range (5)
# range (5) is [0,1,2,3,4] < / pre >
Len in VB is to measure the number of characters in a string
for example, len & quot; ABC1234") The value of is 7, len & quot; He is 14 years old The value of is 6
len (x) returns the length of string variable x, that is, the number of characters x contains:
if x = & quot; 1234"
then len (x) = 4, len (x) / 2 = 2
note that x must be a string variable (or string constant)
extended data:
in VBA, the function of len is to return long, which contains the number of characters in a string, or the number of bytes needed to store a variable
len function syntax
len (string | Varname)
len function syntax has the following parts:
1, string
any valid string expression. If the string contains null, null is returned
2, Varname
any valid variable name. If Varname contains null, null is returned. If Varname is variant, len treats it as a string and always returns the number of characters it contains
(2) mortgage of the bank's credit: to pay off the loan, bring with you the supporting materials provided by the bank, usually including the of the business license of the bank, the of the legal person, the of the client, other rights certificates, etc., and the house property certificate to the transaction center for cancellation
2. Common mortgage process
(1) prepared materials: original house property certificate, of house property certificate amount, ID card, marriage certificate (marriage certificate or single certificate or divorce certificate), income certificate, social security details, etc
(2) make an appointment with the bank to sign a mortgage or loan contract with the bank (both the husband and wife of the property owner on the house property certificate are required to go to the bank with their ID cards)
(3) after the mortgage is approved, register the mortgage with the housing exchange
(4) take out the property right certificate of mortgage registration at the housing exchange, and then send the property right certificate of mortgage registration back to the bank, waiting for the loan
(5) generally, the mortgage loan is about one month (30 working days)
3. The process of releasing the mortgage
usually, after the bank's loan is settled, it can apply to the real estate management department for cancellation and mortgage registration proceres. After the bank's proceres are completed, it will give the customer the following information:
(1) the ownership certificate of the house
(2) other certificates of title
(3) application for registration of cancelled mortgage (the content of which is: customer X has settled the loan in the bank, and now entrusts_________ The registration of the cancelled mortgage shall be handled; Pay attention to fill in the name of the client in the third space. The client can be himself or another person
note: take the above things and a of the client's ID card to the mortgage window of the real estate management center, hand in these materials, and you will receive a receipt. Two working days later, the client will take the receipt and the original ID card to get the property right certificate, that is, cancel the mortgage.