function(e),function(val)的含义

funciton()中,有东西就是代表需要传递参数。
e一般代表enter,也就是事件。简单来说就是指向了当前发生的事件变化,保存了当前事件的信息。
val一般代表数组中原本的值。

  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Imports System.Globalization Imports System.Math Imports System.Collections.Generic Namespace xFunction Public Class f Const NumList = "零壹贰叁肆伍陆柒捌玖" Const UnitList = "仟佰拾亿仟佰拾万仟佰拾元角分" Public Shared Sub StringList() Dim tmepList As New List(Of String) Console.WriteLine(vbLf & "Capacity: {0}", tmepList.Capacity) tmepList.Add("Tyrannosaurus") tmepList.Add("Amargasaurus") tmepList.Add("Mamenchisaurus") tmepList.Add("Deinonychus") tmepList.Add("Compsognathus") Console.WriteLine() For Each dinosaur As String In tmepList Console.WriteLine(dinosaur) Next Console.WriteLine(vbLf & "Capacity: {0}", tmepList.Capacity) Console.WriteLine("Count: {0}", tmepList.Count) Console.WriteLine(vbLf & "Contains(""Deinonychus""): {0}", _ tmepList.Contains("Deinonychus")) Console.WriteLine(vbLf & "Insert(2, ""Compsognathus"")") tmepList.Insert(2, "Compsognathus") Console.WriteLine() For Each dinosaur As String In tmepList Console.WriteLine(dinosaur) Next Console.WriteLine(vbLf & "tmepList(3): {0}", tmepList(3)) Console.WriteLine(vbLf & "Remove(""Compsognathus"")") tmepList.Remove("Compsognathus") Console.WriteLine() For Each dinosaur As String In tmepList Console.WriteLine(dinosaur) Next tmepList.TrimExcess() Console.WriteLine(vbLf & "TrimExcess()") Console.WriteLine("Capacity: {0}", tmepList.Capacity) Console.WriteLine("Count: {0}", tmepList.Count) tmepList.Clear() Console.WriteLine(vbLf & "Clear()") Console.WriteLine("Capacity: {0}", tmepList.Capacity) Console.WriteLine("Count: {0}", tmepList.Count) End Sub #Region "RMB number to Word" Public Shared Function RmbNumberToWordFull(ByVal Number As Decimal) As String 'RMB 数字大写 If Number = 0 Then Return "零元整" If Number > 999999999999D Then Return "Error" Try Dim unitCharSet() As Char = UnitList.ToCharArray Dim digitalCharSet() As Char = NumList.ToCharArray Dim sOriginalNumber As String = CStr(Round(Number * 100, 0)) Dim cOriginalCharSet() As Char = sOriginalNumber.ToCharArray Dim numWords As String = "" Array.Reverse(cOriginalCharSet) Array.Reverse(unitCharSet) For i As Int16 = 0 To cOriginalCharSet.Length - 1 numWords = digitalCharSet(Val(cOriginalCharSet(i))) & unitCharSet(i) & numWords Next Return numWords Catch ex As Exception 'MessageBox.Show(ex.Message) Return "Error" End Try End Function Public Shared Function RmbNumberToWordStandard(ByVal Number As Decimal) As String Dim numWords As String = "" If Number = 0 Then Return "零元整" Try numWords = RmbNumberToWordFull(Number) For i As Int16 = 1 To 4 numWords = numWords.Replace("零仟", "零") numWords = numWords.Replace("零佰", "零") numWords = numWords.Replace("零拾", "零") numWords = numWords.Replace("零零", "零") numWords = numWords.Replace("零亿", "亿") numWords = numWords.Replace("零万", "万") numWords = numWords.Replace("零元", "元") numWords = numWords.Replace("亿万", "亿") numWords = numWords.Replace("零角零分", "整") numWords = numWords.Replace("零角", "零") numWords = numWords.Replace("零分", "整") Next Return numWords Catch ex As Exception Return "Error" End Try End Function #End Region End Class Public Class Collection(Of ItemType) Shared Items As New List(Of ItemType) Public Shared Sub Add(ByVal Value As ItemType) Items.Add(Value) End Sub Public Shared Function GetList() As ItemType End Function End Class Public Class xDatetime 'Dateteim convertion class,All functions are shared. Public Shared Function GetMonthList(Optional ByVal MonthCount As Int16 = 5) As String() If MonthCount = 0 Then MonthCount = 1 End If Dim ItemCount As UInt16 = Math.Abs(MonthCount) - 1 Dim dt As Date Dim Monthlist(ItemCount) As String dt = Date.Today For iMonth As Int16 = 0 To ItemCount Step 1 Dim newDT As Date If MonthCount >= 0 Then newDT = DateAdd(DateInterval.Month, iMonth, dt) Else newDT = DateAdd(DateInterval.Month, iMonth + MonthCount, dt) End If Monthlist(iMonth) = newDT.ToString("yyyyMM") Next Return Monthlist End Function Public Shared Function CYYYYMMToMMM(ByVal RegionName As String, ByVal sYYYYMM As String) As String 'Convert month formatn egg .convert "201101" to "Jan" 'Note: string start position is begin form 0 Dim dt As DateTime = New DateTime(sYYYYMM.Substring(0, 4), sYYYYMM.Substring(4, 2), 1) Select Case RegionName Case "US" CYYYYMMToMMM = dt.ToString("MMM", DateTimeFormatInfo.InvariantInfo) Case "CN" CYYYYMMToMMM = dt.ToString("MMM", DateTimeFormatInfo.InvariantInfo) Case Else CYYYYMMToMMM = dt.ToString("MMM", DateTimeFormatInfo.InvariantInfo) End Select End Function Public Shared Function MonthFirstDayYYYYMMDD(ByVal sYYYYMM As String) As String Dim dt As DateTime = New DateTime(sYYYYMM.Substring(0, 4), sYYYYMM.Substring(4, 2), 1) Return dt.ToString("yyyyMMdd", DateTimeFormatInfo.InvariantInfo) End Function Public Shared Function MonthLastDayYYYYMMDD(ByVal sYYYYMM As String) As String Dim dt As DateTime = New DateTime(sYYYYMM.Substring(0, 4), sYYYYMM.Substring(4, 2), 1) dt = dt.AddMonths(1).AddDays(-1) Return dt.ToString("yyyyMMdd", DateTimeFormatInfo.InvariantInfo) End Function End Class End Namespace

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值