特殊・他 サイトマップ作成用更新頻度・優先度を返す関数

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][特殊・他 サイトマップ作成用更新頻度・優先度を返す関数]
Option Explicit


'*********************************************
'サイトマップ作成用更新頻度・優先度を返す関数
'*********************************************

Function Changefreq(lebelno As ByteAs String
'****************************************
'サイトマップ作成用更新頻度を返す関数
'****************************************

Select Case lebelno
Case 1 '毎時間
Changefreq = "hourly"
Case 2 '毎日
Changefreq = "daily"
Case 3 '毎週
Changefreq = "weekly"
Case 4 '毎月
Changefreq = "monthly"
Case Else '該当なし
Changefreq = "monthly"
End Select

End Function


Function Priority(lebelno As ByteAs String
'****************************************
'サイトマップ作成用優先度を返す関数
'****************************************

Select Case lebelno
Case 1 '高
Priority = "1.0"
Case 2 '中
Priority = "0.5"
Case 3 '低
Priority = "0.0"
Case Else '該当なし
Priority = "0.0"
End Select

End Function






Production Japan Import Application. Since 1998