自己手写一个 VB 的 DateAdd 函数(VB/C 双语言版本)

最新推荐文章于 2022-03-24 15:56:23 发布
最新推荐文章于 2022-03-24 15:56:23 发布
阅读量1.3k 收藏 2
点赞数 2
分类专栏： VB 文章标签： 日期运算 DateAdd 自制DateAdd函数 单片机日期运算
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/supermanking/article/details/81003697
版权

         可能有些朋友觉得这是多余的事情，既然 VB 有了 DateAdd 函数来进行日期运算，干嘛还要自己手写一个？坏笑 其实这一点也不多余，因为有些时候我们的开发环境不一定就在 VB 里，而那些个开发环境不一定就有那么多现成的函数可以使用，那么这个时候要做个日期运算那就不是那么简单的事情了。就比如我写这函数的理由，就是在单片机里需要做日期运算写的。因为在单片机里，就连想取得个时间都要外挂一个外围的时钟芯片，要读个时间也要进行专门的通讯才能读到内容，更别说什么现成的日期时间类型或对其进行运算了，这些全要自己弄，所以做这些个蛋疼的事情并不是没必要的，而是你是否接触到这种蛋疼的需求而已。好了，闲话不多说，先看看这个函数如果用 VB 可以怎么写吧。

'====================================================================================================
'  Definition structure ( 结构体定义 )
'====================================================================================================
Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
'====================================================================================================
'  API function declaration ( API 函数声明 )
'====================================================================================================
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, _
                                                                     Source As Any, _
                                                                     ByVal Length As Long)
'====================================================================================================
'  Custom function ( 自定义函数 )
'====================================================================================================
'----------------------------------------------------------------------------------------------------
' Function   Name: DateAdd2
' Description    : A function for computing time.
' Input Parameter: interval      - (String)Necessary,Type of operation time.
'                : number        - (Long)Necessary,The numeric value that needs to be performed.
'                : dateInfo      - (SYSTEMTIME)Necessary,The time required for computation is also
'                :                 the result of computation..
' Return    Value: (void)        - No return
' Version        : 1.0.0
' Author         : Zhou Wen Xing <mail@rljy.com>
' CSDN   Accounts: SupermanKing
' Date           : June, 26nd 2018
'----------------------------------------------------------------------------------------------------
Private Sub DateAdd2(ByVal interval As String, _
                     ByVal number As Long, _
                     ByRef dateInfo As SYSTEMTIME)
    Dim m_Year As Long
    Dim IsLeapYear As Long
    Dim m_Month As Long
    Dim m_AllMonth As Long
    Dim m_Day As Long
    Dim m_AllDay As Long
    Dim m_DayCount As Long
    Dim m_AllHour As Long
    Dim m_Hour As Long
    Dim m_AllMinute As Long
    Dim m_Minute As Long
    Dim m_AllSecond As Long
    Dim m_Second As Long
    Dim m_SYSTEMTIME As SYSTEMTIME
    Select Case interval
    Case "yyyy":
                dateInfo.wYear = dateInfo.wYear + number
    Case "m"
                m_Year = dateInfo.wYear
                m_AllMonth = dateInfo.wMonth + number
                If m_AllMonth > 12 Then
                    m_Year = m_Year + Int(m_AllMonth / 12)
                    m_Month = m_AllMonth Mod 12
                    If m_Month = 0 Then
                        dateInfo.wMonth = 1
                    Else
                        dateInfo.wMonth = m_Month
                    End If
                    dateInfo.wYear = m_Year
                Else
                    dateInfo.wMonth = m_AllMonth
                End If
    Case "d"
                m_Year = dateInfo.wYear
                If (m_Year - 1980) Mod 4 = 0 Then
                    IsLeapYear = 1
                Else
                    IsLeapYear = 0
                End If
                m_Month = dateInfo.wMonth
                Select Case m_Month
                Case 1, 3, 5, 7, 8, 10, 12
                        m_DayCount = 31
                Case 2
                        If IsLeapYear Then
                            m_DayCount = 29
                        Else
                            m_DayCount = 28
                        End If
                Case 4, 6, 9, 11
                        m_DayCount = 30
                End Select
                m_AllDay = dateInfo.wDay + number
                If m_AllDay > m_DayCount Then
                    Do
                        m_AllDay = m_AllDay - m_DayCount
                        m_Month = m_Month + 1
                        If m_AllDay > m_DayCount Then
                            If m_Month > 12 Then
                                m_Month = 1
                                m_Year = m_Year + 1
                                If (m_Year - 1980) Mod 4 = 0 Then
                                    IsLeapYear = 1
                                Else
                                    IsLeapYear = 0
                                End If
                            End If
                        End If
                        Select Case m_Month
                        Case 1, 3, 5, 7, 8, 10, 12
                                m_DayCount = 31
                        Case 2
                                If IsLeapYear Then
                                    m_DayCount = 29
                                Else
                                    m_DayCount = 28
                                End If
                        Case 4, 6, 9, 11
                                m_DayCount = 30
                        End Select
                    Loop While m_AllDay > m_DayCount
                    If m_AllDay = 0 Then
                        m_AllDay = 1
                    End If
                    dateInfo.wDay = m_AllDay
                    dateInfo.wMonth = m_Month
                    dateInfo.wYear = m_Year
                Else
                    dateInfo.wDay = m_AllDay
                End If
                
    Case "h"
                m_AllHour = dateInfo.wHour + number
                If m_AllHour < 24 Then
                    dateInfo.wHour = m_AllHour
                Else
                    m_Hour = m_AllHour Mod 24
                    m_AllDay = Int(m_AllHour / 24)
                    CopyMemory m_SYSTEMTIME, dateInfo, LenB(m_SYSTEMTIME)
                    
                    DateAdd2 "d", CInt(m_AllDay), m_SYSTEMTIME
                    dateInfo.wHour = m_Hour
                    dateInfo.wDay = m_SYSTEMTIME.wDay
                    dateInfo.wMonth = m_SYSTEMTIME.wMonth
                    dateInfo.wYear = m_SYSTEMTIME.wYear
                End If
                
    Case "n"
                m_AllMinute = dateInfo.wMinute + number
                If m_AllMinute < 60 Then
                    dateInfo.wMinute = m_AllMinute
                Else
                    m_Minute = m_AllMinute Mod 60
                    m_AllHour = Int(m_AllMinute / 60)
                    
                    CopyMemory m_SYSTEMTIME, dateInfo, LenB(m_SYSTEMTIME)
                    
                    DateAdd2 "h", CInt(m_AllHour), m_SYSTEMTIME
                    
                    dateInfo.wMinute = m_Minute
                    dateInfo.wHour = m_SYSTEMTIME.wHour
                    dateInfo.wDay = m_SYSTEMTIME.wDay
                    dateInfo.wMonth = m_SYSTEMTIME.wMonth
                    dateInfo.wYear = m_SYSTEMTIME.wYear
                End If
                
    Case "s"
                m_AllSecond = dateInfo.wSecond + number
                If m_AllSecond < 60 Then
                    dateInfo.wSecond = m_AllSecond
                Else
                    m_Second = m_AllSecond Mod 60
                    m_AllMinute = Int(m_AllSecond / 60)
                    
                    CopyMemory m_SYSTEMTIME, dateInfo, LenB(m_SYSTEMTIME)
                    
                    DateAdd2 "n", CInt(m_AllMinute), m_SYSTEMTIME
                    
                    dateInfo.wSecond = m_Second
                    dateInfo.wMinute = m_SYSTEMTIME.wMinute
                    dateInfo.wHour = m_SYSTEMTIME.wHour
                    dateInfo.wDay = m_SYSTEMTIME.wDay
                    dateInfo.wMonth = m_SYSTEMTIME.wMonth
                    dateInfo.wYear = m_SYSTEMTIME.wYear
                End If
    End Select
End Sub

上面是 VB 的实现过程，我写来主要是用来调试逻辑的偷笑 ，因为如果要在单片机里调试逻辑怎么都没直接在 Windows 下方便坏笑 ，其实写好了程序直接翻译一下就可以成为 C 语言的函数了，比如以下代码：

//====================================================================================================
//    Adduction head file ( 引用头文件 )
//====================================================================================================
#include <STRING.H>
//====================================================================================================
//    Type definition ( 类型定义 )
//====================================================================================================
#define BYTE unsigned char
#define WORD unsigned int
//====================================================================================================
//    Definition structure ( 结构体定义 )
//====================================================================================================
typedef struct tagSYSTEMTIME{
    BYTE    Century;                // 世纪
    BYTE    FullYear;               // 年份
    BYTE    Month;                  // 月份
    BYTE    Day;                    // 日期
    BYTE    Hours;                  // 小时
    BYTE    Minutes;                // 分钟
    BYTE    Seconds;                // 秒钟
    BYTE    Week;                   // 周几
}SYSTEMTIME,*PSYSTEMTIME;
//====================================================================================================
//    Custom function ( 自定义函数 )
//====================================================================================================
//----------------------------------------------------------------------------------------------------
// Function   Name: DateAdd
// Description    : A function for computing time.
// Input Parameter: interval      - (char *)Necessary,Type of operation time.
//                : number        - (WORD)Necessary,The numeric value that needs to be performed.
//                : dateInfo      - (SYSTEMTIME *)Necessary,The time required for computation is also
//                :                 the result of computation..
// Return    Value: (void)        - No return
// Version        : 1.0.0
// Author         : Zhou Wen Xing <mail@rljy.com>
// CSDN   Accounts: SupermanKing
// Date           : June, 26nd 2018
//----------------------------------------------------------------------------------------------------
void DateAdd(char *interval,WORD number,SYSTEMTIME *dateInfo)
{
    WORD m_Year;
    WORD m_Month;
    WORD m_Hour;
    WORD m_Minute;
    WORD m_Second;
    WORD m_AllMonth;
    WORD m_AllDay;
    WORD m_AllHour;
    WORD m_AllMinute;
    WORD m_AllSecond;
    WORD m_DayCount;
    BYTE IsLeapYear;
    BYTE m_SType;
    SYSTEMTIME m_SYSTEMTIME;
    if(strcmp(interval,"y")){
        m_SType = 0;    
    }else if(strcmp(interval,"M")){
        m_SType = 1;    
    }else if(strcmp(interval,"d")){
        m_SType = 2;    
    }else if(strcmp(interval,"h")){
        m_SType = 3;    
    }else if(strcmp(interval,"i")){
        m_SType = 4;    
    }else if(strcmp(interval,"s")){
        m_SType = 5;    
    }
    switch(m_SType){
    case 0: // 年份计算
            m_Year  = (dateInfo->Century*100)+dateInfo->FullYear;
            m_Year += number;
            dateInfo->Century = ((m_Year-(m_Year%100))/100)&0xFF;
            dateInfo->FullYear = (m_Year%100)&0xFF;
            break;
    case 1: // 月份计算
            m_Year      = (dateInfo->Century*100)+dateInfo->FullYear;
            m_AllMonth  = dateInfo->Month+number;
            if(m_AllMonth>12){
                m_Year = m_Year+(m_AllMonth / 12);
                m_Month = m_AllMonth % 12;
                if(m_Month==0){
                    dateInfo->Month = 1;    
                }else{
                    dateInfo->Month = m_Month;
                }
                dateInfo->Century = ((m_Year-(m_Year%100))/100)&0xFF;
                dateInfo->FullYear = (m_Year%100)&0xFF; 
            }else{
                dateInfo->Month = m_AllMonth;
            }
            break;
    case 2: // 日期计算
            m_Year      = (dateInfo->Century*100)+dateInfo->FullYear;
            if((m_Year-1980)%4==0){
                IsLeapYear = 1;
            }else{
                IsLeapYear = 0;
            }
            m_Month = dateInfo->Month;
            switch(m_Month){
            case 1:
            case 3:
            case 5:
            case 7:
            case 8:
            case 10:
            case 12:
                    m_DayCount = 31;
                    break;
            case 2:
                    if(IsLeapYear){
                        m_DayCount = 29;
                    }else{
                        m_DayCount = 28;
                    }
                    break;
            case 4:
            case 6:
            case 9:
            case 11:
                    m_DayCount = 30;
                    break;
            }
            m_AllDay = dateInfo->Day+number;
            if(m_AllDay>m_DayCount){
                while(m_AllDay>m_DayCount){
                    m_AllDay = m_AllDay - m_DayCount;
                    m_Month++;
                    if(m_AllDay>m_DayCount){
                        if(m_Month>12){
                            m_Month = 1;
                            m_Year++;
                            if((m_Year-1980)%4==0){
                                IsLeapYear = 1;
                            }else{
                                IsLeapYear = 0;
                            }
                        }
                    }
                    switch(m_Month){
                    case 1:
                    case 3:
                    case 5:
                    case 7:
                    case 8:
                    case 10:
                    case 12:
                            m_DayCount = 31;
                            break;
                    case 2:
                            if(IsLeapYear){
                                m_DayCount = 29;    
                            }else{
                                m_DayCount = 28;
                            }
                            break;
                    case 4:
                    case 6:
                    case 9:
                    case 11:
                            m_DayCount = 30;
                            break;
                    }
                }
                if(m_AllDay == 0){
                    m_AllDay = 1;
                }
                dateInfo->Day = m_AllDay&0xFF;
                dateInfo->Month = m_Month&0xFF;
                dateInfo->Century = ((m_Year-(m_Year%100))/100)&0xFF;
                dateInfo->FullYear = (m_Year%100)&0xFF; 
            }else{
                dateInfo->Day = m_AllDay&0xFF;  
            }
            break;
    case 3: // 小时计算
            m_AllHour = dateInfo->Hours + number;
            if(m_AllHour<24){
                dateInfo->Hours = m_AllHour&0xFF;   
            }else{
                m_Hour = m_AllHour%24;
                m_AllDay = m_AllHour/24;
                memcpy((void *)&m_SYSTEMTIME,(void *)dateInfo,sizeof(SYSTEMTIME));
                DateAdd("d",m_AllDay,(SYSTEMTIME *)&m_SYSTEMTIME);
                dateInfo->Hours = m_Hour&0xFF;
                dateInfo->Day = m_SYSTEMTIME.Day;
                dateInfo->Month = m_SYSTEMTIME.Month;
                dateInfo->FullYear = m_SYSTEMTIME.FullYear;
                dateInfo->Century = m_SYSTEMTIME.Century;
            }
            break;
    case 4: // 分钟计算
            m_AllMinute = dateInfo->Minutes + number;
            if(m_AllMinute<60){
                dateInfo->Minutes = m_AllMinute&0xFF;   
            }else{
                m_Minute = m_AllMinute%60;
                m_AllHour = m_Minute/60;
                memcpy((void *)&m_SYSTEMTIME,(void *)dateInfo,sizeof(SYSTEMTIME));
                DateAdd("h",m_AllHour,(SYSTEMTIME *)&m_SYSTEMTIME);
                dateInfo->Minutes = m_Minute&0xFF;
                dateInfo->Hours = m_SYSTEMTIME.Hours;
                dateInfo->Day = m_SYSTEMTIME.Day;
                dateInfo->Month = m_SYSTEMTIME.Month;
                dateInfo->FullYear = m_SYSTEMTIME.FullYear;
                dateInfo->Century = m_SYSTEMTIME.Century;
            }
            break;
    case 5: // 秒钟计算
            m_AllSecond = dateInfo->Seconds + number;
            if(m_AllSecond<60){
                dateInfo->Seconds = m_AllSecond&0xFF;   
            }else{
                m_Second = m_AllSecond%60;
                m_AllMinute = m_AllSecond/60;
                memcpy((void *)&m_SYSTEMTIME,(void *)dateInfo,sizeof(SYSTEMTIME));
                DateAdd("n",m_AllMinute,(SYSTEMTIME *)&m_SYSTEMTIME);
                dateInfo->Seconds = m_Second&0xFF;
                dateInfo->Minutes = m_SYSTEMTIME.Minutes;
                dateInfo->Hours = m_SYSTEMTIME.Hours;
                dateInfo->Day = m_SYSTEMTIME.Day;
                dateInfo->Month = m_SYSTEMTIME.Month;
                dateInfo->FullYear = m_SYSTEMTIME.FullYear;
                dateInfo->Century = m_SYSTEMTIME.Century;
            }
            break;
    }
}
代码看上去是不是就像直译的偷笑，其实本来也是差不多 直译过来用的。好了有需要的就拿去用 呲牙
现在还是人类
关注
  • 2
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
JavaScript 模仿vbs中的 DateAdd() 函数的代码
12-12
项目中需要用到日历，.net的日历控件又太重，只好用js写一个，日历的核心函数是 DateAdd()，编写过程中发现 js 里面操作时间比想象中的繁琐，不像vbscript中的可以轻松地dateadd，后来才想到用 setFullYear()、...
ASP中DateAdd函数中日期相加或相减使用方法
01-02
ASP中DateAdd函数用法 2006/09/22 12:29 注意vbs中和sql中写法略有不同,以下帖出的为vbs帮助。 sql的可搜索sql自带帮助文档 字符串表达式，表示要添加的时间间隔。有关数值，请参阅”设置”部分。 返回已添加指定...
VB学习笔记——DateAdd函数
june905206961的专栏
03-10 1万+
语法：        DateAdd( interval, number, date)：DateAdd函数返回包含一个日期的Variant(Data)，这一日期还加上了一段时间间隔。 参数介绍： 1、Interval：必要的，字符串表达式，是所要加上去的时间间隔。 2、number：必要的，数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以是负数（得到过去的日
DateAdd函数
热门推荐
李赛男
06-07 2万+
在dateadd 函数中，w，y，d返回的日期值是相同的。 在datediff中，y，d返回日期值相同，w不同。 在datepart中，w，y，d各不相同。 w可以理解为一周的第几天，y可以理解为一年的第几天。d理解为日期就行了。 例如D=#2018-1-29# 1、dateadd。dateadd（“d”，2，d）表示天数加2，函数返回日期2018-1-31。dateadd（“y”，2，d）返回天数所在的日期。如题是29+2=31天，2018年的31天就是2018-1-31.dateadd（“w”
DATEADD() 函数详细说明
学无止境
03-14 7641
DATEADD()
DateAdd 函数
weixin_33892359的博客
11-17 223
DateAdd 函数 返回已添加指定时间间隔的日期。 DateAdd(interval, number, date) 参数 interval 必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。 number 必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。 date 必选项。Variant ...
vb6.0时间转换计算方法
skyang在路上
02-18 4295
vb6.0时间转换demo的主要代码是 Private Sub Command1_Click() Text1.Text = Now ’Now是现在的时间 Text2.Text = DateAdd(&amp;amp;quot;h&amp;amp;quot;,-15,Text1.Text) End Sub 其中DateAdd(interval, number, date)是核心方法 DateAdd 函数语法中有下列命名参数： 部分 描述 inter...
模拟SQLSERVER的两个函数：dateadd(),datediff()
12-17
php//文件名：date.inc.php3//在使用这两个函数前，要先将日期或日期时间转换成timestamp类型。//如：//$today=mktime(0,0,0,date("m"),date("d"),date("Y"));/****模拟sqlserver中的dateadd函数*******$part 类型：...
VB函数大全
12-23
在VB（Visual Basic）编程语言中，函数和运算符是构建程序的重要组成部分。VB函数大全包含了一系列用于处理各种计算、转换、数据操作的内置函数，这些函数极大地简化了编程任务。下面将详细介绍部分常见的VB函数和...
VB函数大全_基本函数大全.pdf
09-30
VB函数大全_基本函数大全是VB编程语言的函数大全，涵盖了大量的基本函数和运算符，涵盖了字符串、数学、日期、时间、数组、对象等多个方面。下面是VB函数大全_基本函数大全中的知识点： 1. 数学函数： Abs 函数返回...
VB 6.0时间戳和时间互转
weixin_39672275的博客
07-31 3708
'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区    '返回值：strTime相对于1970年1月1日午夜0点经过的秒数    '示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060    Function ToUnixTime(strTime, intTimeZone)       If IsEmpty
Windows脚本初探之VBScrip日期时间函数DateAdd()
weixin_33711647的博客
03-01 213
使用VBScript中的DateAdd（）函数，可以把一个具体的时间间隔加到给定的日期上，或者合并日期/时间。函数的语法如下：DateAdd(intervel,number,date)intervel参数是时间间隔类型，例如月，日number参数是要增加的时间间隔的数量；date参数用来设置初试日期；以下是intervel参数的类型表：时间间隔说明YYYY年Q季度M月W周D天...
VB6.0 写的日历类模块
钅隼戋 ‘s Bolg
01-06 3144
VB6.0 自带的日历控件的外观并不是很满意。为了满足程序UI的美观，我决定自己用类来写个属于自己的日历界面，满足审美需求
【VBA研究】利用DateAdd函数取上月或上年同期的日期
驽马十驾 才定不舍
03-17 1万+
作者：iamlaosong      DateAdd函数返回一个日期，这一日期加上了一个时间间隔。通过这个函数可以计算很多我们需要的日期，比如上月上年同期日期等。      语法     DateAdd(interval, number, date)     DateAdd 函数语法中有下列命名参数：     interval  必要。字符串表达式，是所要加上去的时间间隔。它具有好
Trafodion日期运算——DATEADD函数
yangpengpeng2015的博客
12-22 2732
Trafodion的dateadd函数用法： DATEADD(datepart, num-expr,datetime-expr) Datepart：YEAR,MONTH, DAY, HOUR, MINUTE, SECOND, QUARTER, WEEK。 num-expr：正数、负数均可以。正数表示在原有日期上做加法，负数表示在原有日期上做减法。 datetime-expr：给定的DATE
VB6的日期/时间函数
damyzl的专栏
06-14 1万+
VB6常用的时间/日期函数，包括获取时间/日期的方法，截取时间/日期的部分，时间/日期的计算方法
sqlserver中dateadd函数用法
m0_37841468的博客
03-24 1万+
dateadd()函数在日期中添加或者减去指定的时间间隔 DATEADD(datepart,number,date) date 参数是合法的日期表达式。number 是您希望添加的间隔数；对于未来的时间，此数是正数，对于过去的时间，此数是负数。 datepart 参数可以是下列的值： datepart 缩写 年 yy, yyyy 季度 qq, q 月 mm, m 年中的日 dy, y 日 dd, d 周 wk, ww 星期 dw, w 小时 hh 分钟 mi, n 秒 ss, s 毫秒 ms 微妙 mcs
dateadd函数的用法
最新发布
05-17
DATEADD函数是一种SQL Server函数，它允许您向指定的日期或时间值添加或减去一个或多个时间间隔。下面是DATEADD函数的语法： ``` DATEADD(datepart, number, date) ``` 其中，`datepart`表示您要添加或减去的时间...

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值