一、在VB中如何输入一个日期

VB中合法的日期型常量用数字符号(#)扩起来。月份在前，中间是日期，后是年份。例如，#January 1, 1993#。

日期型变量或常量也可以用一个双精度浮点数表示，其中整数部分表示从1899-12-30到该时间的天数（1899-12-30以前的日期则用负数表示），小数部分则是从午夜起到该时间所经过的秒数占全天时间的比例。

比如当前时间是2012-5-5 17:35:50，用数字表示就是41034.7332175926，其中41034表示2012-5-5和1899-12-30相差41034天。0.7332175926表示17:35:50这个时刻在24小时中处在73.32175926%的位置。

扩展资料

dos下日期格式获取，通过指针偏移量，逗号后的数字表示提取的字符长度。

例如：

1、echo%date:~0,10%//提取年月日信息。

2、echo%date:~-3%//提取星期几信息。

3、echo%Date:~0,4%%Date:~5,2%%Date:~8,2%//yyyyMMdd。

当机器开始启动时，有自动处理文件（AUTOEXEC.BAT）被执行，则系统不提示输入系统日期。否则，提示输入新日期和时间。

二、怎样在VB编程中插入当前日期和时间

Time函数

描述:返回 Date子类型 Variant，指示当前系统时间。

语法:Time

TimeSerial函数

描述:返回一个 Date子类型的 Variant，含有指定时、分、秒的时间。

语法:TimeSerial(hour, minute, second)

hour:其值为从 0(12:00 A.M.)到 23(11:00 P.M.)的数值或数值表达式。

minute:任意数值表达式。

second:任意数值表达式。

说明:要指定一时刻，如 11:59:59，TimeSerial的参数取值应在可接受的范围内；也就是说，小时应介于 0-23之间，分和秒应介于 0-59之间。但是，可以使用数值表达式为每个参数指定相对时间，这一表达式代表某时刻之前或之后的时、分或秒数。以下样例中使用了表达式代替绝对时间数。TimeSerial函数返回中午之前六小时(12- 6)十五分钟的时间(-15)，即 5:45:00 A.M.。

TimeSerial(12- 6,-15, 0)

当任何一个参数的取值超出可接受的范围时，它会正确地进位到下一个较大的时间单位中。例如，如果指定了 75分钟，则这个时间被解释成一小时十五分钟。但是，如果任何一个参数值超出-32768到 32767的范围，就会导致错误。如果使用三个参数直接指定的时间或通过表达式计算出的时间超出可接受的日期范围，也会导致错误。

TimeValue函数

描述:返回包含时间的 Date子类型的 Variant。

语法:TimeValue(time)

time参数通常是代表从 0:00:00(12:00:00 A.M.)到 23:59:59(11:59:59 P.M.)的字符串表达式（包括 0:00:00和 23:59:59）。不过，time也可以是代表该范围内任何时间的表达式。如果 time参数包含 Null，则返回 Null。

说明:可以采用 12或 24小时时钟格式输入时间。例如"2:24PM"和"14:24"都是有效的 time参数。

如果 time参数包含日期信息， TimeValue函数并不返回日期信息。然而，如果 time参数包含无效的日期信息，则会出现错误。

三、VB判断日期的前后

'在 vb中的日期值是用#括起来的，例如#2006-07-07#

'现在就假设产品生产日期是今天(7月31日)，购买日期是 5月31日(你不是说购买日期早于生产日期吗！)

Dim s As Integer

s= DateDiff("d",#2007-07-31#,#2007-05-31#)

If s> 0 Then

MsgBox"生产日期比购买日期早"& s&"天!"

ElseIf s< 0 Then

MsgBox"购买日期比生产日期早"& Abs(s)&"天!"

End If' Abs是求绝对值，因为 s是负数

'我们要得到的是它的正数

'DateDiff("d",...)里面的"d"意思是求得那两个日期相差的天数。

问一个问题：你有没有办法在程序中获取那个产品的购买日期和生产日期?如果有就直接用上面这段代码。

四、求用vb做万年历 要求输入一个日期 得到星期节日星座节气

分数太少了，呵呵，呵呵

另外的农历，是更好地做

用的printf打印功能目录，切换来完成调用子函数很多次了，再加上大循环

日历显示，这是相对简单的，是计算的一年的第一天是星期可以

原则：第1年1月1日（星期一），计算这天的第一天，年1月1日，1的AD，除以7的中间的，其余的是周。一年365天，364正好是7的倍数，那么一年更比一天，闰年加一天。还有一个更简单，仅有400年是一个轮回，400+97= 497多

您输入的一年，除以400，计算，然后在今年剩下的天数计算量会小很多

所以在今年的第一天是星期计算

好做的一个子功能来实现这一功能，返回值是今年的几个星期的第一天，后者可用于

下一个打印子功能是一个不错的选择，

设置一个全局数组包含该月的天数来确定一个，如果在2月的天数 BR/>这里有一个技巧，就是设定一个变量来保存每月的后一天，一周，因为它是连续的，所以在下个月的第一天是星期几被很好地定义，是打印几个空格发生这个变量的值，哦

日期星期有几个还不错的事，知道在今年的第一天，然后是一周的第一天的日期，今年的差一些美好的一天，使用for循环，可以计算出

农历这做的不好，你可以看看百度，一种子功能，您可以参考 a>

后面两个函数，读取和写入文件，很简单，套用固定格式的文件可以变化不大，