在ASP.NET中处理 datetime 的一些通用函数(vb)

转载 2004年07月01日 10:05:00
在ASP.NET中处理 datetime 的一些通用函数(vb)

转贴:Andy.m   日期:2003-07-12   人气:69
'Uses the Timespan method to subtract a certain number of days
Function Date1()
     Dim NewTime as DateTime
     NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
     NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo)
     response.write(NewTime)
End Function

'Uses the AddDays method to subtract X number of days
Public Function Date2()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.AddDays(-7)
  Dim s as string = NewTime
  return s
End Function

'Thanks to Paul Czywczynski for this idea
'This probably (In My opinion) Offers the most flexibility found so far
'Change where the MM/dd/yyyy to whatever
'response.write(System.String.Format("{0:d}",NewTime))
'would return just the name of the Day
Function Date3()
  Dim NewTime as DateTime = now.addDays(-7)
  response.write(System.String.Format("{0:MM/dd/yyyy}",NewTime))
End Function


Function Date4()
Dim NewTime as DateTime
  NewTime = now.addDays(-7)
  return NewTime.ToString()
End Function

'Uses the toLongTimeString method
Public Function Date5()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toLongTimeString()
End Function

'Uses the toShortTimeString method
Public Function Date6()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toShortTimeString()
End Function

'Uses the toLongDateString method
Public Function Date7()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toLongDateString()
End Function

'Uses the toShortDateString method
Public Function Date8()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toShortDatestring()
End Function

'Uses FormatDateTime function General format
Function Date9()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 0)
End Function

'Uses FormatDateTime function LongDate format
Function Date10()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 1)
End Function

'Uses FormatDateTime function ShortDate format
Function Date11()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 2)
End Function

'Uses FormatDateTime function LongTime format
Function Date12()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 3)
End Function

'Uses FormatDateTime function ShortTime format
Function Date13()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 4)
End Function

'Bring Back just the name of the Day
Function Date14()
  Dim NewTime as DateTime = now.addDays(-7)
  dim s as string
  s = (System.String.Format("{0:dddd}",NewTime))
  Return s
End Function

'Returns the Integer of what day of week
Function Date15()
  Dim MyDate as DateTime
  Dim MyWeekDay as Integer
  MyDate = Now.AddDays(-5)
  MyWeekDay = Weekday(MyDate)   
  return MyWeekDay
End Function

'Returns the Month Integer
Function Date16()
  Dim MyDate as DateTime
  Dim MyMonth as Integer
  MyDate = Now.AddDays(-5)
  MyMonth = Month(MyDate)   
  return MyMonth
End Function

'Returns just a formatted string
'This method provides just formatting but
'Very flexible with not a lot of code
Function Date17()
  Dim MyDate as String
  MyDate = Format(Now(), "yyyy")
  return MyDate
End Function
</script>

VB动态调用类模块中的函数的方法

动态地调用函数是令广大VB程序员比较苦恼的一件事情。VB不同于C++,不同于Java,没有传递函数指针的概念。这么一说,肯定有很多的大神级别的VB高手要来喷我了,说“新手不懂就不要在这里胡说!”。的确...
  • keikisou
  • keikisou
  • 2016年01月22日 20:45
  • 1075

asp.net绝对与相对路径

对于asp.net 路径的问题,闲心有很多人和我一样,只是知道一点,理解并不深刻。下面我就来整理一下相路径和绝对路径的知识。 绝对路径: 每个网页都有一个唯一的地址,它就是该网页的绝对路径。绝对路...
  • lu930124
  • lu930124
  • 2015年01月28日 14:07
  • 1507

解决Asp.net Mvc返回JsonResult中DateTime类型数据格式的问题

问题背景:            在使用asp.net mvc 结合jquery esayui做一个系统,但是在使用使用this.json方法直接返回一个json对象,在列表中显示时发现datetim...
  • WANGYAN9110
  • WANGYAN9110
  • 2014年07月21日 15:14
  • 4408

VB中对EXCEL的各种操作

全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Applica...
  • wzk456
  • wzk456
  • 2017年02月08日 15:20
  • 3866

vb常用函数一览表

vb常用函数一览表   常用内部函数 数学函数 函数 功能 示例 结果 说明 Ab...
  • u014451076
  • u014451076
  • 2014年11月23日 00:26
  • 939

在ASP.NET MVC中json的应用(即JsonResult)(asp.net mvc 后台返回json数据方式 )

 1,博文简介  本博文提供了两种解决方案。 a)ajax+Handler b) ajax+ JsonResult 2,a)例子代码...
  • jiazhongkai521
  • jiazhongkai521
  • 2014年06月25日 11:29
  • 365

ASP.NET MVC的JSON序列化陷阱

转自:http://blog.darkthread.net/post-2012-08-29-aspnet-mvc-json-serializer.aspx 在ASP.NET MVC中,可透過以下...
  • fax5201314
  • fax5201314
  • 2013年04月09日 13:04
  • 4828

JS 中 DateTime日期时间及方法函数

出处:http://www.cnblogs.com/carekee/articles/1678041.html: 一、js获取当前日期时间 var myDate = new Date(); myDat...
  • u010678947
  • u010678947
  • 2015年02月16日 15:45
  • 3554

Matlab中处理日期与时间的函数详解

Matlab中处理日期与时间的函数详解 转自:http://www.eefocus.com/czzheng/blog/10-01/184048_13d5c.html Matlab用三种格式来表示日...
  • congzhao27
  • congzhao27
  • 2013年10月30日 13:32
  • 4483

VB Cells.find函数参数解释

用VBA录制的查找 Cells.Find(What:="想查找的数据", After:=ActiveCell, LookIn:=xlValues, LookAt:= xlPart, SearchOr...
  • Seabiscuit_92
  • Seabiscuit_92
  • 2016年05月31日 10:54
  • 1696
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在ASP.NET中处理 datetime 的一些通用函数(vb)
举报原因:
原因补充:

(最多只允许输入30个字)