PowerBuilder -- 日期

 

#PB自带日期相关函数

Date(...), DateTime(...), RelativeDate(...), Year(...), Month(...), Day(...), DaysAfter(...)

 

#根据日期获取间隔n月第一天

//====================================================================
// 事件: uf_get_first_day()
//--------------------------------------------------------------------
// 描述: 根据日期获取间隔n月第一天
//--------------------------------------------------------------------
// 参数:
//     value    date       ad_date    
//     value    integer    ai_n       
//--------------------------------------------------------------------
// 返回:  date
//====================================================================
Date ld_first_day
Int li_year, li_month

li_year = Year(ad_date)
li_month = Month(ad_date)

li_month = li_month + ai_n

Do While li_month < 0
    li_month