コピペで使えるVBAのコード置き場

ランダムな日付を生成

筆箱にVBAのカンニングペーパーを入れる係のみすくです。こんにちは。
Const JAPANESE_CALENDAR As String = "gggee年mm月dd日" '和暦

'---------------------------------------------------------------------------------------------------
'【処 理 名】ランダム日付生成
'【処理概要】ランダムな日付を生成する
'【引    数】[I]ByVal startDate As Date  最小値
'          [I]ByVal lastDate As Date   最大値
'          [I]ByVal fmt As String      フォーマット
'【返 却 値】ランダムな整数
'---------------------------------------------------------------------------------------------------
Public Function getRandomeDate(ByVal startDate As Date, ByVal lastDate As Date, ByVal fmt As String)
    Dim rndDate As Date
    Randomize
    
    rndDate = Int((lastDate - startDate + 1) * Rnd + startDate)
    getRandomeDate = Format(rndDate, fmt)
End Function

Public Sub main()
    Debug.Print getRandomeDate(#1/1/2018#, #2/28/2018#, JAPANESE_CALENDAR)
End Sub

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です