OpenOffice.org Basicでガントチャート
OpenOffice.org Basicを使ってガントチャート作成用マクロ ガントチャートforOOoを開発する手順を紹介していきます。
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
日付欄の更新 その1

日付の更新を容易にするため、列番号から日付を取得する関数を作成します。

Function getDateByColumn(Column As Integer) As Date
    
    Dim y As Integer
    Dim m As Integer
    Dim d As Integer
    Dim wk As Date
    
    wk = oProperty._BeginDate
    y = Year(wk)
    m = Month(wk)
    d = Day(wk)
    
    With oProperty
        
        Select Case ._CellUnit
            Case CELLUNIT_DAY
                wk = ._BeginDate + Column
            Case CELLUNIT_WEEK
                wk = ._BeginDate + Column * 7
            Case CELLUNIT_10DAYS
                
                d = Column mod 3
                m = m + (Column / 3 - 0.5)
                y = y + ((m - 1) / 12 - 0.5)
                m = (m - 1) mod 12 + 1
                
                If Column = 0 Then
                    
                ElseIf d = 0 Then
                    wk = DateSerial(y, m, 1)
                Else
                    wk = DateSerial(y, m, d * 10) + 1
                End If
                
            Case CELLUNIT_MONTH
                
                m = m + Column
                y = y + Int((m-1) / 12)
                m = (m - 1) mod 12 + 1
                wk = DateSerial(y, m, 1)
                
        End Select
        
    End With
    
    getDateByColumn = wk
    
End Function

以前作成したCalcEndDate関数と同様に、セルの単位別に日付を計算しています。

スポンサーサイト

テーマ:OpenOffice.org - ジャンル:コンピュータ

コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
http://shinob.blog42.fc2.com/tb.php/117-249f9a08
この記事にトラックバックする(FC2ブログユーザー)
この記事へのトラックバック
COPYRIGHT(C) 2004 POWERD BY FC2 ALLRIGHT RESERVED.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。