精华内容
下载资源
问答
  • 在ASP(VB)自定义日期格式函数

    千次阅读 2006-12-31 11:39:00
    代码如下:Function AddZero(val, digit) Dim Ret Ret = CStr(val) Ret = Replace(Space(digit - Len(val)), " ", "0") & Ret AddZero = retEnd FunctionFunction FormatDataTime(dt, format...
    代码如下:
    
    Function AddZero(val, digit)
        
    Dim Ret
        Ret 
    = CStr(val)
        Ret 
    = Replace(Space(digit - Len(val)), " ""0"& Ret        
        AddZero 
    = ret
    End Function
    Function FormatDataTime(dt, format)
        
    Dim ret
        ret 
    = Replace(format, "MM", AddZero(Month(dt), 2))
        ret 
    = Replace(ret, "M"Month(dt))
        ret 
    = Replace(ret, "mm", AddZero(Minute(dt), 2))
        ret 
    = Replace(ret, "m"Minute(dt))
        ret 
    = UCase(ret)
        ret 
    = Replace(ret, "YYYY"Year(dt))
        ret 
    = Replace(ret, "DD"Day(dt))
        ret 
    = Replace(ret, "D", AddZero(Day(dt), 2))
        ret 
    = Replace(ret, "HH"Hour(dt))
        ret 
    = Replace(ret, "H", AddZero(Hour(dt), 2))
        ret 
    = Replace(ret, "SS", AddZero(Second(dt), 2))
        ret 
    = Replace(ret, "S"Second(dt))
        FormatDataTime 
    = ret
    End Function
    Response.Write FormatDataTime(
    Now"yyyy-MM-dd hh:mm:ss")
    显示结果:
    2006-12-31 11:37:27
    展开全文
  • 函数的定义在Lisp中函数的定义使用下面的格式:(defun function1 ()(format *query-io* "in function1~%"))其中defun是函数定义的关键字,function1是函数名,跟着的()是参数定义,在这里不需要参数,所以()中间是空...

    进一步了解一下Lisp语言中函数的使用,虽然从这篇文章才开始介绍函数,但是我们在之前的Lisp文章中已经多次接触函数了。

    函数的定义

    在Lisp中函数的定义使用下面的格式:

    (defun function1 ()

    (format *query-io* "in function1~%"))

    其中defun是函数定义的关键字,function1是函数名,跟着的()是参数定义,在这里不需要参数,所以()中间是空的,然后(format *query-io* "in function1~%")是函数体,就是调用函数时需要执行的代码。

    其中的函数体可以是任意多行的语句,如下面这样:

    (defun function1 ()

    (format *query-io* "in function1 line 1~%")

    (format *query-io* "in function1 line 2~%")

    (format *query-io* "in function1 line 3~%"))

    函数的调用

    函数的调用比较简单,使用括号加函数名就可以了,如(function1)。

    函数的返回

    在没有加入返回语句的情况下,一个函数的最后一个语句的计算结果会被当作函数的返回值返回给调用者,如下面的代码中,main函数调用function1函数,而function1函数的最后一个语句计算结果是“value to return”,所以在main函数中调用function1函数后会将变量result赋值为“value to return”,然后通过format语句将result的结果打印出来:

    (defun main ()

    (setq result (function1))

    (format *query-io* "result is: ~a~%" result)

    )

    (defun function1 ()

    (format *query-io* "in function1~%")

    "value to return")如果希望提前从一个函数中返回,需要用到return-from函数,如下面的代码中函数function1执行到第二句的时候直接调用return-from返回了“value returned by return-from”作为返回值,后面的语句就不执行了,main函数中result的结果就是“value returned by return-from”

    (defun main ()

    (setq result (function1))

    (format *query-io* "result is: ~a~%" result)

    )

    (defun function1 ()

    (format *query-io* "in function1~%")

    (return-from function1 "value returned by return-from")

    (format *query-io* "this line will not be reached")

    "value to return")

    需要注意的是return-from函数的第二个参数是函数名,从哪个函数返回就写哪个函数的函数名,如果一个函数的函数名有修改记得修改return-from对应的函数名。

    这一点多少有点令人不满,为什么从函数返回还要指定函数的名称,不像Lisp简洁的风格。

    参数的定义

    上面提到的函数都市没有参数的,现实中定义和使用函数一定会需要参数,Lisp中函数的参数如何定义呢?

    Lisp中函数的参数定义在函数名后面的括号中,如下面的代码就定义了a 和b 两个参数。因为Lisp使用的是动态类型,而非静态类型,所以参数是不需要指定类型的,不像c语言那样需要(int a , String b)这样定义参数。

    (defun function3 (a b)

    (format *query-io* "parameter a is: ~a b is: ~a~%" a b ))

    对于有参数的函数,调用时需要在函数名后带上相同数量的变量作为实际参数,如function3的调用如下,其中10会被赋予变量a,而20会被赋予变量b。

    (function3 10 20)

    如果函数调用是填写的参数数量和函数定义时不同,执行时会报错的。

    如(function3 10)会报参数太少,而(function3 10 20 30)会报参数太多。

    有关Lisp函数的参数定义还有更复杂的形式,如可选参数,关键字参数等,在以后的文章中我们继续学习。

    展开全文
  • 今天把一个VB.NET的程序翻成C#的,在ref这堵了半天。函数定义是这样的: Public Shared Function GetUsers(ByVal portalId As Integer, ByVal isHydrated As Boolean, ByVal pageIndex As Integer, ...
    今天把一个VB.NET的程序翻成C#的,在ref这堵了半天。

    函数定义是这样的:

    Public Shared Function GetUsers(ByVal portalId As IntegerByVal isHydrated As BooleanByVal pageIndex As IntegerByVal pageSize As IntegerByRef totalRecords As IntegerAs ArrayList

    在VB.NET中可以这样引用:

    Users = UserController.GetUsers(UsersPortalId, False, CurrentPage - 1, PageSize, TotalRecords)

    但在C#中,引用要加上"ref",参见MSDN: ref(C# 参考)

    Users = UserController.GetUsers(UsersPortalId, false, CurrentPage-1, PageSize, ref TotalRecords);

    展开全文
  • 主要是通过使用Win32 API函数中的SystemParametersInfo函数来更换墙纸,墙纸图片貌似只能是bmp格式才能成功。 Option ExplicitPrivate Declare Function SystemParametersInfo Lib "user32" Alias &...

    主要是通过使用Win32 API函数中的SystemParametersInfo函数来更换墙纸,墙纸图片貌似只能是bmp格式才能成功。

    Option Explicit
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
    Private Const SPI_SETDESKWALLPAPER = 20
    Private Const SPIF_UPDATEINIFILE = &H1

    Private Sub setWallpaper(FilePath As String)
        Dim t As Long
        t = SystemParametersInfo(ByVal SPI_SETDESKWALLPAPER, True, ByVal FilePath, SPIF_UPDATEINIFILE)
        If t Then
            MsgBox "设置成功,请看桌面"
        Else
            MsgBox "设置失败"
        End If
    End Sub

    Private Sub Form_Load()
        Call setWallpaper("D:\图片\墙纸\1.bmp") '图片路径
    End Sub

    摘自:网络整理

    展开全文
  • 在采用VB.NET开发WEB页面的时候,需要在后台将Datatable转换为Json格式数据,由于Json格式数据包含很多双引号,开始用单引号,通过Jquery.Post方式不能再function(data){}函数中回去到返回的结果,后来通过以下...
  • 由于VB中的记录集对象与所使用的数据库格式及类型是相互独立的,所以在非Access数据库中也可以使用数据库存取对象变量的方法。因而 对FoxPro等外来数据库而言,使用数据库存取对象变量的方法同样也是一种最佳的选择...
  • 之前为了用当前时间作为文件命名,因为不能包含某些字符,还特意写了个消除这些字符的函数。 回过头来看,呃...其实有更简约的办法。 (摊手,没办法,VB.NET网络资源不好找,经常是找C#资源然后去翻译,我都想...
  • 时间格式(11:12)控件的自动输入实现5.动态控制光标在TEXTBOX控件的移动6.使用API函数播放WAV声音.7.使用API函数实现文件的创建,移动,删除.1.将全角数字转换成半角数字Public Function ZenkakuNumT
  • vb下调用C++dll的方法

    千次阅读 2009-05-22 09:29:00
    VB下调用dll的函数必须要有特殊的声明,用... 语句格式为:Declare Sub 过程名Lib [ Alias " 别名]([ByVal 参数AS类型]),或为Declare Function函数名Lib [Alias " 别名]([ByVal 参数AS类型])AS类型在声明
  • vb Script参考文档

    2009-07-28 22:13:02
    FormatCurrency 函数 返回的表达式为货币值格式,其货币符号采用系统控制面板定义的。 FormatDateTime 函数 返回格式化为日期或时间的表达式。 FormatNumber 函数 返回格式化为数的表达式。 FormatPercent 函数...
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    (自己的) ◆ 111.htm 在VB中实现文件上传 ◆ 112.htm 在VB中实现文件上载 ◆ 113.htm 在VB中使用UDP协议 ◆ 114.htm 在VB中用Outlook发电子邮件 ◆ 115.htm 在WindowsNT网络中广播消息 ...
  • 【【请注意】】:在以下语法格式中,请注意 [函数名] 的【大小写】!!! 静态与动态比较: 静态调用简单,动态调用麻烦;静态调用占用资源多,动态调用占用资源少;正所谓鱼和熊掌不可兼得。 静态调用定义: ...
  • 因为手机短消息的发送是以PDU串的形式发送出去的,中文字符...这个函数主要应用到VB自带的一个格式转换函数:ChrW()将中文转换为Unicode码。   Public Function chg(rmsg As String) As String Dim tep As Stri...
  • VB利用GDI+显示PNG图像

    千次阅读 2008-04-08 22:06:00
    VB使用PNG透明格式的图片其实是非常容易的,那就是使用XP以上操作系统的GDI+库:需要声明的GDI+的函数: Private Declare Function GdiplusStartup Lib "gdiplus.dll" ( _ ByRef token As Long, _ ByRef ...
  • ├─Example022-在VB中制作和使用菜单 ├─Example023-设计弹出菜单 ├─Example024-向菜单中添加图标 ├─Example025-动态装入菜单项 ├─Example026-动态创建控件 ├─Example027-具有动感的图片按钮 ├─Example...
  • 运行时生成其它EXE文件(VB6)

    千次阅读 2006-01-25 10:04:00
    首先我们需要把一个EXE文件转为容易在程序保存的文本形式,这里我转成16进制表示,大家也可以转为Base64或其它兼容的格式。下面这个函数能将二进制文件转为VB可识别的语句。Function ConvBinToHex(byval ...
  • wordwrap.zip 在 TextBox 自动换行(2KB) 36,combosrc.zip 在 COMBO 的增量查询(2KB) 37,progman.zip 制作安装程序必备,此模块包含的SUB及Function能帮你做出专业的安装程序(2KB) 38,...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • '以下代码是将有效密文数字转换为十进制数的函数Function conv(p As String)As IntegerDim k As Integer, q As String, i As Integerk = 0: g = ""For i = 1 To 3q = Mid(p, i, 1)①Next iconv = kEn...
  • 二.Function函数 5 三.Property属性过程和Event事件过程 5 第十二节内部函数 5 一.测试函数 5 二.数学函数 5 三.字符串函数 6 四.转换函数 6 五.时间函数 6 第十三节 文件操作 6 文件 6 删除 7 打开 7 读入 7...
  • MYSQL中文手册

    2013-03-11 21:21:34
    10.8. 新字符集配置文件格式 10.9. 国家特有字符集 10.10. MySQL支持的字符集和校对 10.10.1. Unicode字符集 10.10.2. 西欧字符集 10.10.3. 中欧字符集 10.10.4. 南欧与中东字符集 10.10.5. 波罗的海字符集 ...
  • MySQL 5.1中文手冊

    2009-12-11 09:43:12
    2.7. 在其它类Unix系统安装MySQL 2.8. 使用源码分发版安装MySQL 2.8.1. 源码安装概述 2.8.2. 典型配置选项 2.8.3. 从开发源码树安装 2.8.4. 处理MySQL编译问题 2.8.5. MIT-pthreads注意事项 2.8.6. 在Windows下从...
  • 2.7. 在其它类Unix系统安装MySQL 2.8. 使用源码分发版安装MySQL 2.8.1. 源码安装概述 2.8.2. 典型配置选项 2.8.3. 从开发源码树安装 2.8.4. 处理MySQL编译问题 2.8.5. MIT-pthreads注意事项 2.8.6. 在Windows下从...
  • 10.8. 新字符集配置文件格式 http://doc.mysql.cn/mysql5/refman-5.1-zh.html-chapter/(第 9/24 页)2006-11-02 19:12:13 MySQL 5.1 Reference Manual 10.9. 国家特有字符集 10.10. MySQL支持的字符集和校对 ...

空空如也

空空如也

1 2 3 4
收藏数 64
精华内容 25
关键字:

vb中function函数格式