将stringinput数据改为周/月格式

我不知道这是否可能,但我想我会问,如果有人可以有一个解决scheme。

问题:我有一个macros,用户在input框中input一个string(例如021513)的date。 它是string格式,因为它用来打开一个文件(string在文件名的末尾)。

从这个string(例如021513),我需要在两个单独的字段中派生出以下内容:

  • 周周期(例如,周:11日至15日)。
  • 月(例如二月)。

任何帮助或想法将不胜感激。

夏兰

你也可以用Excel公式做到这一点:

假定您的string是单元格A1,请使用以下公式:

  • B1(date): =DATE(right(A1,2)+2000,LEFT(A1,2),MID(A1,3,2))
  • C1平日: =WEEKDAY(B1,2) – 星期一返回1,星期二返回2。
  • D1星期开始: =B1-C1+1
  • E1周末: =D1+4
  • F1月份: =TEXT(B1,"MMMM")

您需要DateSerial VBA函数 – 它将使用Mid和其他文本函数从string的各个部分返回实际的Date值。 有实际的date,你将能够返回例如使用Monthfunction的Month

也许还需要使用CInt将string部分转换为数字。